home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib01.dsk
/
SPACE ANIMATION.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
2KB
|
33 lines
1 PRINT ""
2 REM *************************
3 REM ** SPACE ANIMATION **
4 REM ** MICRO-SPARC, INC. **
5 REM ** P.O. BOX 325 **
6 REM ** LINCOLN MASS 01773 **
7 REM ** COPYRIGHT (C) 1980 **
8 REM *************************
55 HGR : HCOLOR= 3: HOME : VTAB 23: FLASH : PRINT "DRAW THE FIRST PLANET!"
57 HPLOT 9,0 TO 276,0 TO 276,159 TO 9,159 TO 9,0
60 FOR Z = 1 TO 180
62 R = 25:X = 10 + SIN(Z/180 *3.1415) *R
65 Y = 96 - COS(Z/180 *3.1415) *R: HPLOT X,Y: NEXT Z
70 VTAB 23: PRINT "NOW THE SECOND PLANET!"
71 FOR Z = 180 TO 360
75 R = 20:X = 275 + SIN(Z/180 *3.1415) *R
80 Y = 60 - COS(Z/180 *3.1415) *R: HPLOT X,Y: NEXT Z
85 HOME : VTAB 23: PRINT "NOW ADD A FEW STARS!"
87 FOR I = 1 TO 100:X = RND(1) *260 +10:Y = RND(1) *140 +5: HPLOT X,Y: NEXT I
100 HOME : VTAB 23: PRINT "NOW THE STARS AND SPACE PANEL ZOOM IN!": NORMAL
105 X = 138:Y = 77:J = 1:Z = 3
110 A = 135:B = 75:C = 145:D = 75:E = 145:F = 85:G = 135:H = 85
120 HCOLOR= 7: HPLOT A,B: HPLOT C,D: HPLOT E,F: HPLOT G,H
121 L = X:M = Y:K = P:X = X -2:Y = Y -2:J = J +2
122 IF J = 75 THEN 124
123 P = 2 *J: HCOLOR= Z: HPLOT X,Y TO X +P,Y TO X +P,Y +P TO X,Y +P TO X,Y
124 IF J = 75 THEN J = 1:X = 138:Y = 77:P = 2:Z = RND(1) *7 +1
126 HCOLOR= 0: HPLOT L,M TO L +K,M TO L +K,M +K TO L,M +K TO L,M
130 A = A -7:B = B -5:C = C +7:D = D -5:E = E +7:F = F +5:G = G -7:H = H +5
135 N = N +1
140 HCOLOR= 0: HPLOT A +7,B +5: HPLOT C -7,D +5: HPLOT E -7,F -5: HPLOT G +7,H -5
145 IF N = 15 THEN N = 0: HPLOT A,B: HPLOT C,D: HPLOT E,F: HPLOT G,H: GOTO 110
150 GOTO 120