home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
87xx
/
8710.d64
/
fr.baeume
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
58 lines
10 REM ****************************
20 REM * FRAKTALE BAEUME *
30 REM * 1987 BY STEFAN VILSMEIER *
40 REM ****************************
50 :
60 IF A=0 THEN A=1:LOAD "FRACTAL.OBJ",8,1
70 OPEN 1,8,15,"U9":CLOSE 1: REM DIESE ZEEILE KANN BEI PROBLEMEN MIT DEM
80 REM FLOPPYSPEEDER WEGGELASSEN WERDEN!
90 POKE53280,0:POKE53281,0
100 INPUT "[147]GRAD ";GR
110 INPUT "WINKEL,FAKTOR ";WI,F
120 SE=40:XP=160:YP=150:W=-90
130 SYS 50176,14,0:SYS 50179,1:SYS 50194:REM GRAFIK EIN
140 :
150 GOSUB 300: REM 'BAUM' AUFRUFEN
160 SYS 50185,0,0,319,0,1:SYS 50185,319,0,319,199,1
170 SYS 50185,319,199,0,199,1:SYS 50185,0,199,0,0,1
180 GET A$:IF A$="" GOTO 180
190 SYS 50179,0:IF A$="S" THEN GOSUB 700: REM 'GRAFIK SPEICHERN'
200 GOTO 70: REM NEUSTART
260 :
270 :
280 REM ***************************
290 REM * 'BAUM' *
300 REM ***************************
310 :
320 T=T+1:IF GR<=0 GOTO 420
330 W=W-WI/2: REM 'DREHE'
340 S=SE:GOSUB 500: REM 'SCHREITE'
350 G(T)=GR:GR=GR-1:SE=SE/F:GOSUB300:SE=SE*F:REM 'BAUM'
360 S=-SE:GOSUB 500: REM 'SCHREITE'
370 W=W+WI: REM 'DREHE'
380 S=SE:GOSUB 500: REM 'SCHREITE'
390 G(T)=GR:GR=GR-1:SE=SE/F:GOSUB300:SE=SE*F:REM 'BAUM'
400 S=-SE:GOSUB 500: REM 'SCHREITE'
410 W=W-WI/2: REM 'DREHE'
420 T=T-1:GR=G(T):RETURN
450 :
460 :
470 REM ***************************
480 REM * 'SCHREITE' *
490 REM ***************************
500 :
510 XS=S*COS(W*(null)/180)
520 YS=S*SIN(W*(null)/180)
530 XP=XP+XS:YP=YP+YS
540 SYS 50185,XP-XS,YP-YS,XP,YP,1:REM LINIE
550 RETURN
650 :
660 :
670 REM ***************************
680 REM * 'GRAFIK SPEICHERN' *
690 REM ***************************
700 :
710 INPUT "GRAFIK-NAME ";N$
720 OPEN 2,8,2,"PI."+N$+",P,W":SYS 50191:CLOSE 2
730 RETURN