1 ' Svjatoslav Agejenko
\r
5 DECLARE SUB getcor ()
\r
6 DECLARE SUB show (ang1!, ang2!, ang3!)
\r
10 DIM SHARED px(1 TO 1000)
\r
11 DIM SHARED py(1 TO 1000)
\r
12 DIM SHARED pz(1 TO 1000)
\r
14 DIM SHARED ox(1 TO 1000)
\r
15 DIM SHARED oy(1 TO 1000)
\r
19 DIM SHARED pallx, pally
\r
20 DIM SHARED pallxs, pallys
\r
22 DIM SHARED paln1s, paln2s, paln3s
\r
24 mitup = 500 ' Number of dots
\r
34 show nrk1, nrk2, nrk3
\r
36 nrk1 = nrk1 + paln1s
\r
37 nrk2 = nrk2 + paln2s
\r
38 nrk3 = nrk3 + paln3s
\r
40 pallys = pallys + .1
\r
41 pallx = pallx + pallxs
\r
42 pally = pally + pallys
\r
44 IF pally > 160 THEN pallys = -pallys: pallxs = pallxs + (RND * 2 - 1): newns
\r
45 IF pallx < -200 THEN pallxs = -pallxs: newns
\r
46 IF pallx > 200 THEN pallxs = -pallxs: newns
\r
49 IF a$ <> "" THEN CLS : SYSTEM
\r
53 PRINT "Calculating cordinates"
\r
54 PRINT "Please wait....."
\r
72 x1 = x * s1 + y * c1
\r
73 y1 = x * c1 - y * s1
\r
75 z1 = z * s2 + y1 * c2
\r
76 y2 = z * c2 - y1 * s2
\r
78 z2 = z1 * s3 + x1 * c3
\r
79 x2 = z1 * c3 - x1 * s3
\r
97 paln1s = (RND - .5) / 16
\r
98 paln2s = (RND - .5) / 16
\r
99 paln3s = (RND - .5) / 16
\r
102 SUB show (ang1, ang2, ang3)
\r
119 x1 = x * s1 + y * c1
\r
120 y1 = x * c1 - y * s1
\r
122 z1 = z * s2 + y1 * c2
\r
123 y2 = z * c2 - y1 * s2
\r
125 z2 = z1 * s3 + x1 * c3
\r
126 x2 = z1 * c3 - x1 * s3
\r
130 x = x2 / z2 * 320 + 320 + pallx
\r
131 y = y2 / z2 * 300 + 240 + pally
\r
133 PSET (ox(a), oy(a)), 0
\r