2 ' made by Svjatoslav Agejenko
\r
4 ' H-Page: svjatoslav.eu
\r
5 ' E-Mail: svjatoslav@svjatoslav.eu
\r
8 DECLARE SUB fill (x1, y1, x2, y2, xx1, yy1, xx2, yy2)
\r
9 DIM SHARED torux(1 TO 10000)
\r
10 DIM SHARED toruy(1 TO 10000)
\r
11 DIM SHARED sin1(1 TO 10000)
\r
12 DIM SHARED cos1(1 TO 10000)
\r
17 FOR a = 1 TO 97 STEP .15
\r
19 su = SIN(a / 31) * 100
\r
20 x = SIN(a) * su * 3 + 320
\r
21 y = COS(a) * su + 250
\r
22 y = y - (COS(a / 31) * 200)
\r
29 OPEN "texture.dat" FOR INPUT AS #1
\r
30 DIM SHARED text$(1 TO 1000)
\r
34 IF LEFT$(a$, 3) = "END" THEN GOTO 2
\r
43 FOR b = 1 TO LEN(text$(c))
\r
44 a$ = RIGHT$(LEFT$(text$(c), b), 1)
\r
46 IF a > tor - 43 THEN GOTO 3
\r
47 tee = SIN(sin1(a + 32))
\r
48 tee = tee - COS(cos1(a))
\r
51 LINE (torux(a), toruy(a))-(torux(a + 1), toruy(a + 1)), 15
\r
52 LINE (torux(a), toruy(a))-(torux(a + 42), toruy(a + 42)), 15
\r
53 IF a$ = "M" THEN fill torux(a), toruy(a), torux(a + 1), toruy(a + 1), torux(a + 42), toruy(a + 42), torux(a + 43), toruy(a + 43)
\r
62 SUB fill (zx1, zy1, zx2, zy2, zxx1, zyy1, zxx2, zyy2)
\r
74 xx3 = (xx2 - xx1) / j
\r
75 yy3 = (yy2 - yy1) / j
\r
81 LINE (x1, y1)-(xx1, yy1), 15
\r