-' Universal palette & mixing\r
-' made by Svjatoslav Agejenko\r
-' in 2001\r
-' H-Page: svjatoslav.eu\r
-' E-Mail: svjatoslavagejenko@gmail.com\r
+' An attempt to generate universally reusable color parette.\r
+' By Svjatoslav Agejenko in 2001.\r
+' homepage: svjatoslav.eu\r
+' email: svjatoslav@svjatoslav.eu\r
\r
\r
\r
\r
c = 0\r
FOR r = 0 TO 5\r
-FOR g = 0 TO 5\r
-FOR b = 0 TO 5\r
-OUT &H3C8, c\r
-c = c + 1\r
-OUT &H3C9, r * 12\r
-OUT &H3C9, g * 12\r
-OUT &H3C9, b * 12\r
-NEXT b\r
-NEXT g\r
+ FOR g = 0 TO 5\r
+ FOR b = 0 TO 5\r
+ OUT &H3C8, c\r
+ c = c + 1\r
+ OUT &H3C9, r * 12\r
+ OUT &H3C9, g * 12\r
+ OUT &H3C9, b * 12\r
+ NEXT b\r
+ NEXT g\r
NEXT r\r
\r
'GOTO 1\r
\r
FOR c = 0 TO 5\r
-FOR b = 0 TO 5\r
-FOR a = 0 TO 5\r
-LINE (a * 5 + c * 30, b * 5)-(a * 5 + 4 + c * 30, b * 5 + 4), c * 36 + b * 6 + a, BF\r
-NEXT a\r
-NEXT b\r
+ FOR b = 0 TO 5\r
+ FOR a = 0 TO 5\r
+ LINE (a * 5 + c * 30, b * 5)-(a * 5 + 4 + c * 30, b * 5 + 4), c * 36 + b * 6 + a, BF\r
+ NEXT a\r
+ NEXT b\r
NEXT c\r
\r
\r
ex = -100\r
ey = 0\r
FOR z = 0 TO 75 STEP 15\r
-x1 = 50 - (z / 2)\r
-y1 = 50 - (z * .866025)\r
-x2 = 50 + z\r
-y2 = 50\r
-x3 = x1\r
-y3 = 100 - y1\r
-\r
-ex = ex + 100\r
-IF z = 45 THEN ex = ex - 300: ey = ey + 101\r
-\r
-FOR x = 0 TO 100\r
-FOR y = 0 TO 100\r
-r = 7 - (SQR((x1 - x) ^ 2 + (y1 - y) ^ 2) / 15 + 1)\r
-g = 7 - (SQR((x2 - x) ^ 2 + (y2 - y) ^ 2) / 15 + 1)\r
-b = 7 - (SQR((x3 - x) ^ 2 + (y3 - y) ^ 2) / 15 + 1)\r
-IF r < 0 THEN r = 0\r
-IF g < 0 THEN g = 0\r
-IF b < 0 THEN b = 0\r
-IF r > 5 THEN r = 5\r
-IF g > 5 THEN g = 5\r
-IF b > 5 THEN b = 5\r
-c = r * 36 + g * 6 + b\r
-PSET (x + ex, y + ey), c\r
-NEXT y\r
-NEXT x\r
+ x1 = 50 - (z / 2)\r
+ y1 = 50 - (z * .866025)\r
+ x2 = 50 + z\r
+ y2 = 50\r
+ x3 = x1\r
+ y3 = 100 - y1\r
+\r
+ ex = ex + 100\r
+ IF z = 45 THEN ex = ex - 300: ey = ey + 101\r
+\r
+ FOR x = 0 TO 100\r
+ FOR y = 0 TO 100\r
+ r = 7 - (SQR((x1 - x) ^ 2 + (y1 - y) ^ 2) / 15 + 1)\r
+ g = 7 - (SQR((x2 - x) ^ 2 + (y2 - y) ^ 2) / 15 + 1)\r
+ b = 7 - (SQR((x3 - x) ^ 2 + (y3 - y) ^ 2) / 15 + 1)\r
+ IF r < 0 THEN r = 0\r
+ IF g < 0 THEN g = 0\r
+ IF b < 0 THEN b = 0\r
+ IF r > 5 THEN r = 5\r
+ IF g > 5 THEN g = 5\r
+ IF b > 5 THEN b = 5\r
+ c = r * 36 + g * 6 + b\r
+ PSET (x + ex, y + ey), c\r
+ NEXT y\r
+ NEXT x\r
NEXT z\r
\r
a$ = INPUT$(1)\r
ex = -100\r
ey = 0\r
FOR z = 0 TO 75 STEP 15\r
-x1 = 50 - (z / 2.5)\r
-y1 = 50 - (z * .566025)\r
-x2 = 50 + z / 1.5\r
-y2 = 50\r
-x3 = x1\r
-y3 = 100 - y1\r
-\r
-ex = ex + 100\r
-IF z = 45 THEN ex = ex - 300: ey = ey + 101\r
-\r
-r1 = 0\r
-g1 = 0\r
-b1 = 0\r
-FOR x = 0 TO 100\r
-FOR y = 0 TO 100\r
-r = 30 - (SQR((x1 - x) ^ 2 + (y1 - y) ^ 2) / 2 + 1)\r
-g = 30 - (SQR((x2 - x) ^ 2 + (y2 - y) ^ 2) / 2 + 1)\r
-b = 30 - (SQR((x3 - x) ^ 2 + (y3 - y) ^ 2) / 2 + 1)\r
-r1 = r1 + r\r
-g1 = g1 + g\r
-b1 = b1 + b\r
-r = r1 / 5\r
-g = g1 / 5\r
-b = b1 / 5\r
-r1 = r1 - (r * 5)\r
-g1 = g1 - (g * 5)\r
-b1 = b1 - (b * 5)\r
-\r
-IF r < 0 THEN r = 0\r
-IF g < 0 THEN g = 0\r
-IF b < 0 THEN b = 0\r
-IF r > 5 THEN r = 5\r
-IF g > 5 THEN g = 5\r
-IF b > 5 THEN b = 5\r
-c = r * 36 + g * 6 + b\r
-PSET (x + ex, y + ey), c\r
-NEXT y\r
-NEXT x\r
+ x1 = 50 - (z / 2.5)\r
+ y1 = 50 - (z * .566025)\r
+ x2 = 50 + z / 1.5\r
+ y2 = 50\r
+ x3 = x1\r
+ y3 = 100 - y1\r
+\r
+ ex = ex + 100\r
+ IF z = 45 THEN ex = ex - 300: ey = ey + 101\r
+\r
+ r1 = 0\r
+ g1 = 0\r
+ b1 = 0\r
+ FOR x = 0 TO 100\r
+ FOR y = 0 TO 100\r
+ r = 30 - (SQR((x1 - x) ^ 2 + (y1 - y) ^ 2) / 2 + 1)\r
+ g = 30 - (SQR((x2 - x) ^ 2 + (y2 - y) ^ 2) / 2 + 1)\r
+ b = 30 - (SQR((x3 - x) ^ 2 + (y3 - y) ^ 2) / 2 + 1)\r
+ r1 = r1 + r\r
+ g1 = g1 + g\r
+ b1 = b1 + b\r
+ r = r1 / 5\r
+ g = g1 / 5\r
+ b = b1 / 5\r
+ r1 = r1 - (r * 5)\r
+ g1 = g1 - (g * 5)\r
+ b1 = b1 - (b * 5)\r
+\r
+ IF r < 0 THEN r = 0\r
+ IF g < 0 THEN g = 0\r
+ IF b < 0 THEN b = 0\r
+ IF r > 5 THEN r = 5\r
+ IF g > 5 THEN g = 5\r
+ IF b > 5 THEN b = 5\r
+ c = r * 36 + g * 6 + b\r
+ PSET (x + ex, y + ey), c\r
+ NEXT y\r
+ NEXT x\r
NEXT z\r
\r
a$ = INPUT$(1)\r