2 ' made by Svjatoslav Agejenko
\r
4 ' H-Page: svjatoslav.eu
\r
5 ' E-Mail: svjatoslav@svjatoslav.eu
\r
7 DECLARE SUB setstar (x2!, y2!, z2!)
\r
8 DECLARE SUB galaxy ()
\r
19 DIM SHARED px(1 TO mitu + 1000)
\r
20 DIM SHARED py(1 TO mitu + 1000)
\r
21 DIM SHARED pz(1 TO mitu + 1000)
\r
24 pz(a) = RND * 500 + 20
\r
37 IF tm$ <> TIME$ THEN
\r
40 IF fps > 20 THEN wl = wl + 2 ELSE wl = wl - 1
\r
41 IF wl < 0 THEN wl = 0
\r
46 xp = SIN(frm / 21) * 3
\r
47 yp = SIN(frm / 18) * 3
\r
49 nrk = (3.1412) / 2 + SIN(frm / 35) / 100 + SIN(frm / 21) / 100
\r
57 x1 = x / z * 160 + 160
\r
58 y1 = y / z * 100 + 100
\r
61 x5 = x * rs1 - y * rc1
\r
62 y5 = x * rc1 + y * rs1
\r
76 x1 = x / z * 160 + 160
\r
77 y1 = y / z * 100 + 100
\r
79 IF c > 31 THEN c = 31
\r
88 IF mituv - mitu > rns THEN galaxy: rns = RND * 800 + 100
\r
91 b = RND * (mitu - 10) + 1
\r
92 SWAP px(mitu), px(b)
\r
93 SWAP py(mitu), py(b)
\r
94 SWAP pz(mitu), pz(b)
\r
99 x1 = x / z * 160 + 160
\r
100 y1 = y / z * 100 + 100
\r
113 IF INKEY$ <> "" THEN SYSTEM
\r
120 xp = RND * 200 - 100
\r
121 yp = RND * 200 - 100
\r
123 FOR a = 1 TO RND * 15 + 10 STEP .04
\r
124 x = SIN(a) * a * a / 10
\r
125 y = COS(a) * a * a / 10
\r
126 setstar x + RND * a * a / 30 + xp, y + RND * a * a / 30 + yp, 700 + RND * a * a / 30 + (x * xf) + (y * yf)
\r
132 SUB setstar (x2, y2, z2)
\r