1 ' An attempt to generate universally reusable color parette.
\r
2 ' By Svjatoslav Agejenko in 2001.
\r
3 ' homepage: svjatoslav.eu
\r
4 ' email: svjatoslav@svjatoslav.eu
\r
8 DECLARE SUB getcol (a%, b%, c%, d%)
\r
31 LINE (a * 5 + c * 30, b * 5)-(a * 5 + 4 + c * 30, b * 5 + 4), c * 36 + b * 6 + a, BF
\r
41 FOR z = 0 TO 75 STEP 15
\r
43 y1 = 50 - (z * .866025)
\r
50 IF z = 45 THEN ex = ex - 300: ey = ey + 101
\r
54 r = 7 - (SQR((x1 - x) ^ 2 + (y1 - y) ^ 2) / 15 + 1)
\r
55 g = 7 - (SQR((x2 - x) ^ 2 + (y2 - y) ^ 2) / 15 + 1)
\r
56 b = 7 - (SQR((x3 - x) ^ 2 + (y3 - y) ^ 2) / 15 + 1)
\r
63 c = r * 36 + g * 6 + b
\r
64 PSET (x + ex, y + ey), c
\r
73 FOR z = 0 TO 75 STEP 15
\r
75 y1 = 50 - (z * .566025)
\r
82 IF z = 45 THEN ex = ex - 300: ey = ey + 101
\r
89 r = 30 - (SQR((x1 - x) ^ 2 + (y1 - y) ^ 2) / 2 + 1)
\r
90 g = 30 - (SQR((x2 - x) ^ 2 + (y2 - y) ^ 2) / 2 + 1)
\r
91 b = 30 - (SQR((x3 - x) ^ 2 + (y3 - y) ^ 2) / 2 + 1)
\r
102 IF r < 0 THEN r = 0
\r
103 IF g < 0 THEN g = 0
\r
104 IF b < 0 THEN b = 0
\r
105 IF r > 5 THEN r = 5
\r
106 IF g > 5 THEN g = 5
\r
107 IF b > 5 THEN b = 5
\r
108 c = r * 36 + g * 6 + b
\r
109 PSET (x + ex, y + ey), c
\r