commit 2ecdd21104362de05984436d6e1d7383523fb46e Author: Michaelangel007 Date: Sun Apr 16 10:58:25 2017 -0700 Initial commit diff --git a/README.md b/README.md new file mode 100644 index 0000000..9e05a56 --- /dev/null +++ b/README.md @@ -0,0 +1,35 @@ +# Atari, er, Applesoft Hat 3D + +![Hat 3D](hat3d.png) + +```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 +``` diff --git a/hat3d.bas b/hat3d.bas new file mode 100644 index 0000000..6ab0f96 --- /dev/null +++ b/hat3d.bas @@ -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 + diff --git a/hat3d.dsk b/hat3d.dsk new file mode 100644 index 0000000..a9f39ec Binary files /dev/null and b/hat3d.dsk differ diff --git a/hat3d.png b/hat3d.png new file mode 100644 index 0000000..e153977 Binary files /dev/null and b/hat3d.png differ