start tok64 d64-hq8jQQ
100 REM    *********************
110 REM    **                 **
120 REM    ** tre dimensioner **
130 REM    **                 **
140 REM    *********************
150 REM
200 REM
210 REM      *****************
220 REM **** graphics routines ****
230 REM      *****************
240 REM
250 in=51200:of=51203:gc=51206:sc=51209:pc=51212:pl=51215:up=51218:sl=51221
290 cl=51224:gl=51227:gs=51230:hc=51233
500 GOSUB5000
1000 REM -init-
1010 th=.:ph=90*{pi}/180:rh=350:ds=2500:sp=11.25:zm=1.25:vd=320:hd=200:dp=2
1020 xc=vd/2:yc=hd/2
2000 SYSin:SYSgc:SYSsc,16*6+14:POKE198,.
2010 RESTORE:POKE53280,14
2020 GOSUB6000
2030 GETco$:IFco$=""THEN2030
2040 IFco$="w"THENGOSUB3200
2050 IFco$="z"THENGOSUB3300
2060 IFco$="a"THENGOSUB3500
2070 IFco$="s"THENGOSUB3400
2080 IFco$="+"THENGOSUB3000
2090 IFco$="-"THENGOSUB3100
2100 IFco$="{arrow left}"THENSYSof:GOSUB5000:SYSin:SYSsc,16*6+14:GOTO2030
2110 IFco$="x"THENGOTO8000
2120 GOTO2010
3000 rh=rh/zm
3010 RETURN
3100 rh=rh*zm
3110 RETURN
3200 ph=ph+sp*{pi}/180:RETURN
3300 ph=ph-sp*{pi}/180:RETURN
3400 th=th-sp*{pi}/180:RETURN
3500 th=th+sp*{pi}/180:RETURN
5000 POKE53281,.:POKE53280,.:PRINT"{light gray}{clear}{down}{right}'tre dimensioner'
5010 PRINT"{down}{right}skrivet av : mattias johansson
5020 PRINT"{down}{right}c-64 ver av: mr.p. of softwolves
5030 PRINT"{down}{right}vrid bilden med: w{down}{left*2}a{right}s{down}{left}z
5040 PRINT"{right}zooma med + och -
5050 PRINT"{down}{right}{arrow left} ger denna hj[lp
5060 PRINT"{down}{right}x avslutar
5070 POKE198,0:WAIT198,255:RETURN
6000 SYSgc
6010 READf,xs,ys,zs:IFf=4THENRETURN
6020 GOSUB7000
6021 IFyn<.ORyn>199THENyn=yn-(yn<.)+(yn>199):GOTO6021
6022 IFxn<.ORxn>319THENxn=xn-(xn<.)+(xn>319):GOTO6021
6023 ONfGOTO6024,6025,6026:GOTO6040
6024 SYS51212,30:GOTO6030
6025 SYS51212,110:GOTO6030
6026 SYS51212,254
6030 IFf<>.THENSYSsl,xo,199-yo,xn,199-yn
6040 xo=xn:yo=yn:GOTO6010
7000 ts=SIN(th):tc=COS(th):ps=SIN(ph):pc=COS(ph)
7010 xw=-xs*ts+ys*tc
7020 yw=-xs*tc*pc-ys*ts*pc+zs*ps
7030 zw=-xs*tc*ps-ys*ts*ps-zs*pc+rh
7040 IFzw=.THENts=1:tc=.:GOTO7010
7050 xn=xw/zw*ds
7060 yn=yw/zw*ds
7070 xn=xn+xc
7080 yn=yn+yc
7090 RETURN
8000 SYSof:END
9000 REM koordinater. form:
9010 REM p]/av,x,y,z
9020 REM p]=1-3,av=0
9030 REM slut: p]/av=4
9035 REM datorenhet
9040 DATA0,-10,-10,-6,1,10,-10,-6,1,10,-9,0,1,-10,-9,,1,-10,-10,-6
9050 DATA0,-10,5,-6,1,10,5,-6,1,10,5,0
9060 DATA1,-10,5,0,1,-10,5,-6,0,-10,-10,-6,1,-10,5,-6,0,10,-10,-6
9070 DATA1,10,5,-6,0,10,-9,0,1,10,5,0,0,-10,-9,0,1,-10,5,0
9075 REM sk[rm
9080 DATA0,-7.25,-8,.5,2,7.25,-8,.5,2,7.25,-6,11,2,-7.25,-6,11
9090 DATA2,-7.25,-8,.5,0,-7.25,5,.5,2,7.25,5,.5,2,7.25,5,10,2,-7.25,5,10
9100 DATA2,-7.25,5,.5
9110 DATA0,-7.25,-8,.5,2,-7.25,5,.5,0,7.25,-8,.5,2,7.25,5,.5,0,7.25,-6,11
9120 DATA2,7.25,5,10,0,-7.25,-6,11,2,-7.25,5,10
9125 REM tangentbord
9130 DATA0,-9.5,-12,-6,3,-9.5,-19.5,-6,3,9.5,-19.5,-6,3,9.5,-12,-6
9140 DATA3,-9.5,-12,-6
9150 DATA0,-9.5,-12,-4,3,-9.5,-19.5,-5.25,3,9.5,-19.5,-5.25,3,9.5,-12,-4
9160 DATA3,-9.5,-12,-4
9170 DATA0,-9.5,-12,-6,3,-9.5,-12,-4,0,-9.5,-19.5,-6,3,-9.5,-19.5,-5.25
9180 DATA0,9.5,-19.5,-6,3,9.5,-19.5,-5.25,0,9.5,-12,-6,3,9.5,-12,-4
9999 DATA4,0,0,0
stop tok64
(bastext 1.0)