+- Discussion Forum for all things Microbee (https://microbeetechnology.com.au/forum)
+-- Forum: Microbee Forum (https://microbeetechnology.com.au/forum/forum-1.html)
+--- Forum: Microbee Software and Documentation (https://microbeetechnology.com.au/forum/forum-7.html)
+--- Thread: the solar system, galaxys and universe explained. (/thread-1069.html)
the solar system, galaxys and universe explained. - Graham72 - 20-08-2026
In the beginning was Microbee, and it created a program and spiral galaxy formed and years and years and aeons passed.
10 HIRES2
20 C=256
25 D=127
30 FOR N=16 TO 1 STEP -1
35 K=0
50 FOR T0=0 TO 94.2 STEP .1
60 R0=T0*1.348
70 K=K+1
75 IF K<N THEN 90
77 K=0
80 SET INT(R0*COS(T0)*2)+C,INT(R0*SIN(T0))+D
90 NEXT T0
95 K=0
110 FOR T0=94.2 TO 0 STEP -.1
120 R0=T0*1.348
130 K=K+1
135 IF K<N THEN 150
137 K=0
140 SET INT(R0*COS(T0)*2)+C,INT(R0*SIN(T0))+D
150 NEXT T0
160 NEXT N
170 FOR N=16 TO 1 STEP -1
175 K=0
190 FOR T0=0 TO 94.2 STEP .1
200 R0=T0*1.348
210 K=K+1
215 IF K<N THEN 230
217 K=0
220 RESET INT(R0*COS(T0)*2)+C,INT(R0*SIN(T0))+D
230 NEXT T0
235 K=0
250 FOR T0=94.2 TO 0 STEP -.1
260 R0=T0*1.348
270 K=K+1
275 IF K<N THEN 290
277 K=0
280 RESET INT(R0*COS(T0)*2)+C,INT(R0*SIN(T0))+D
290 NEXT T0
300 NEXT N
It would appear that the universe is currently around the 220 mark.
Otherwise a neat screen saver
RE: the solar system, galaxys and universe explained. - ChickenMan - 21-08-2026
Pasted into Vibedrone and after about 10 min I get
RE: the solar system, galaxys and universe explained. - Graham72 - 21-08-2026
(Yesterday, 09:05 AM)ChickenMan Wrote: Pasted into Vibedrone and after about 10 min I getyep, years and years and aeons go by. I accidently closed my laptop lid, so have not finished the run myself yet.