Initial commit
This commit is contained in:
commit
2ecdd21104
|
@ -0,0 +1,35 @@
|
|||
# Atari, er, Applesoft Hat 3D
|
||||
|
||||

|
||||
|
||||
```Basic
|
||||
0 REM Converted from ATARI "Hat"
|
||||
1 REM By Michaelangel007
|
||||
2 REM X1 -> X
|
||||
3 REM XF -> F
|
||||
4 REM XI -> I
|
||||
5 REM XL -> L
|
||||
6 REM XT -> U
|
||||
7 REM Y1 -> Y
|
||||
8 REM YY -> V
|
||||
9 REM ZS -> S
|
||||
10 REM 2.25 * 2.25 -> 5.0625
|
||||
100 REM ARCHIMEDES SPIRAL
|
||||
110 REM
|
||||
120 REM ANALOG MAGAZINE
|
||||
130 REM
|
||||
140 HGR:POKE 49234,0:REM $C052
|
||||
150 F=4.71238905/144
|
||||
160 FOR Z=-64 TO 64
|
||||
170 S=Z*Z*5.0625
|
||||
180 L=INT(SQR(20736-S)+0.5)
|
||||
190 FOR I=-L TO L
|
||||
200 U=SQR(I*I+S)*F
|
||||
210 V=(SIN(U)+SIN(U*3)*0.4)*56
|
||||
220 X=I+Z+160:Y=90-V+Z
|
||||
222 IF X>279 THEN GOTO 250
|
||||
224 IF Y>191 THEN GOTO 250
|
||||
230 HCOLOR=3:HPLOT X,Y
|
||||
240 HCOLOR=0:HPLOT X,Y+1 TO X,191
|
||||
250 NEXT:NEXT
|
||||
```
|
|
@ -0,0 +1,30 @@
|
|||
0 REM Converted from ATARI "Hat"
|
||||
1 REM By Michaelangel007
|
||||
2 REM X1 -> X
|
||||
3 REM XF -> F
|
||||
4 REM XI -> I
|
||||
5 REM XL -> L
|
||||
6 REM XT -> U
|
||||
7 REM Y1 -> Y
|
||||
8 REM YY -> V
|
||||
9 REM ZS -> S
|
||||
10 REM 2.25 * 2.25 -> 5.0625
|
||||
100 REM ARCHIMEDES SPIRAL
|
||||
110 REM
|
||||
120 REM ANALOG MAGAZINE
|
||||
130 REM
|
||||
140 HGR:POKE 49234,0:REM $C052
|
||||
150 F=4.71238905/144
|
||||
160 FOR Z=-64 TO 64
|
||||
170 S=Z*Z*5.0625
|
||||
180 L=INT(SQR(20736-S)+0.5)
|
||||
190 FOR I=-L TO L
|
||||
200 U=SQR(I*I+S)*F
|
||||
210 V=(SIN(U)+SIN(U*3)*0.4)*56
|
||||
220 X=I+Z+160:Y=90-V+Z
|
||||
222 IF X>279 THEN GOTO 250
|
||||
224 IF Y>191 THEN GOTO 250
|
||||
230 HCOLOR=3:HPLOT X,Y
|
||||
240 HCOLOR=0:HPLOT X,Y+1 TO X,191
|
||||
250 NEXT:NEXT
|
||||
|
Loading…
Reference in New Issue