I would like to introduce you to another graphic from the book "SPIELE MIT COMPUTER GRAFIK" from Norbert Treitz.
The normal speed, the counter counts up to 15382 . With the float point patch from Mike it runs a little bit faster. 15184
But, if you use SuperNumbers from the POST "Faster VIC20" the speed increases enormously to 9960.
SuperNumbers are of course the pound sign \ = £
Maybe the SuperNumbers could be included in MINIGRAFIK as an integral part?
And sorry again to send a lot of code here. I have some trouble to send the programs as a file, i dont know why?
Code: Select all
0 @on:@clr
5 ti$="000000"
10 forx=0to80:fory=0to96
15 r=x*x+y*y
20 if(r/150and1)then60
35 @1,79+x,95+y
40 @1,80-x,95+y
50 @1,80-x,96-y
55 @1,79+x,96-y
60 next:next
65 te=ti
70 geta$
75 ifa$=""then70
80 @return
85 print"zeit: "te
Code: Select all
0 @on:@clr
5 ti$="000000"
6 \a=79:\b=80:\r=0
7 \c=95:\d=96:\v=150
8 \y=0:\x=0:\z=0:\e=1
10 for\x=\zto\b
12 for\y=\zto\d
15 \r=\x*\x+\y*\y
20 if(\r/\vand\e)then60
35 @1,\a+\x,\c+\y
40 @1,\b-\x,\c+\y
50 @1,\b-\x,\d-\y
55 @1,\a+\x,\d-\y
60 next:next
65 te=ti
70 geta$
75 ifa$=""then70
80 @return
85 print"zeit: "te