2 ' made by Svjatoslav Agejenko
\r
4 ' H-Page: svjatoslav.eu
\r
5 ' E-Mail: svjatoslav@svjatoslav.eu
\r
7 DECLARE SUB fill (x1, y1, x2, y2, xx1, yy1, xx2, yy2, hel)
\r
8 DIM SHARED torux(1 TO 10000)
\r
9 DIM SHARED toruy(1 TO 10000)
\r
10 DIM SHARED sin1(1 TO 10000)
\r
11 DIM SHARED cos1(1 TO 10000)
\r
20 FOR a = 1 TO 97 STEP .15 'CALCULATE POINTS
\r
22 su = SIN(a / 31) * 100
\r
23 x = SIN(a) * su * 3 + 320
\r
24 y = COS(a) * su + 250
\r
25 y = y - (COS(a / 31) * 200)
\r
33 OPEN "texture1.dat" FOR INPUT AS #1
\r
34 DIM SHARED text$(1 TO 1000)
\r
39 IF LEFT$(a$, 3) = "END" THEN GOTO 2
\r
50 FOR b = 1 TO LEN(text$(c))
\r
51 a$ = RIGHT$(LEFT$(text$(c), b), 1)
\r
54 IF a > tor - 43 THEN GOTO 3
\r
55 tee = SIN(sin1(a + 32))
\r
56 tee = tee - COS(cos1(a))
\r
59 LINE (torux(a), toruy(a))-(torux(a + 1), toruy(a + 1)), 15
\r
60 LINE (torux(a), toruy(a))-(torux(a + 42), toruy(a + 42)), 15
\r
62 hel1 = COS(cos1(a) - 1) + .5
\r
63 hel2 = SIN(sin1(a) + 1) + 1
\r
64 IF hel2 > 1 AND hel1 > 1 THEN
\r
65 hel3 = (hel2 - 1) * (hel1 - 1) * 8
\r
66 hel = hel / (hel3 + 1)
\r
69 IF a$ = "M" THEN hel = hel / 3
\r
70 fill torux(a), toruy(a), torux(a + 1), toruy(a + 1), torux(a + 42), toruy(a + 42), torux(a + 43), toruy(a + 43), hel
\r
79 SUB fill (zx1, zy1, zx2, zy2, zxx1, zyy1, zxx2, zyy2, hel)
\r
81 ' x1,y1 ---------------- xx1,yy1 hel - brightness
\r
85 ' x2,y2 ---------------- xx2,yy2
\r
98 j3 = SQR((j1 * j1) + (j2 * j2))
\r
102 j6 = SQR((j4 * j4) + (j5 * j5))
\r
109 xx3 = (xx2 - xx1) / j
\r
110 yy3 = (yy2 - yy1) / j
\r
116 LINE (x1, y1)-(xx1, yy1), 15
\r