home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8602.d64
/
demo_mps-support
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
84 lines
1000 REM GRAPH-64 DEMO
1010 INPUT "DEMO 1,2,3 ODER 4";DE
1020 _CLEAR:_COLOUR 1,5,7
1030 ON DE GOSUB 2000,3000,4000,5000
1040 _ZOOM:_GRAPHIC
1050 END
1999 :
2000 REM DEMO 1
2010 FOR I=-(null)/4 TO (null)/4 STEP (null)/15
2020 FOR J=0 TO 2*(null) STEP (null)/15
2030 _LINE COS(I)*319+320,SIN(I)*199+200,COS(J)*319+320,SIN(J)*199+200
2040 NEXT J,I
2050 RETURN
2999 :
3000 REM DEMO 2
3010 FOR I=0 TO 2*(null) STEP (null)/50
3020 _LINE COS(I)*50+320,SIN(I)*50+200,SQR(I/(2*(null)))*639,I/(2*(null))*399
3030 NEXT
3040 RETURN
3999 :
4000 REM DEMO 3
4010 _POLY 2,2,637,2,637,397,2,397
4020 _LINE 10,200,630,200
4030 _LINE 320,10,320,390
4040 _LINE 320,10,316,15
4050 _LINE 320,10,324,15
4060 _LINE 630,200,626,205
4070 _LINE 630,200,626,195
4080 FOR I=10+620/32 TO 630-620/32 STEP 620/32
4090 _LINE I,196,I,204:NEXT
4100 FOR I=10+380/40 TO 390-380/40 STEP 380/40
4110 _LINE 316,I,324,I:NEXT
4120 _CHAR 42,26,ASC("[255]")
4130 _CHAR 38,13,ASC("1")
4140 _CHAR 78,26,ASC("X")
4150 XC=35:YC=1:A$="F(X)":GOSUB 6000
4160 XC=6:YC=5:A$="F(X)=SIN(X)+SIN(X*1.1)":GOSUB 6000
4170 _POLY 44,36,228,36,228,50,44,50
4180 DEF FNS(X)=SIN(X)+SIN(X*1.1)
4190 Y1=FNS((0-310)/310*16*(null))*(-95)+200
4200 FOR I=1 TO 620
4210 Y2=FNS((I-310)/310*16*(null))*(-95)+200
4220 _LINE I+9,Y1,I+10,Y2
4230 Y1=Y2
4240 NEXT
4250 RETURN
4999 :
5000 REM DEMO 4
5010 DIM X1%(68),X2%(68),Z1%(68),Z2%(68)
5020 CO=COS((null)/9):SI=SIN((null)/9)
5030 Y=-168
5040 FOR X=-272 TO 272 STEP 8
5050 GOSUB 5240
5060 X1%(X/8+34)=XP:Z1%(X/8+34)=ZP
5070 NEXT
5080 FOR Y=-160 TO 168 STEP 8
5090 FOR X=-272 TO 272 STEP 8
5100 GOSUB 5240
5110 X2%(X/8+34)=XP:Z2%(X/8+34)=ZP
5120 NEXT
5130 FOR I=0 TO 67
5140 _EPOLY X1%(I),Z1%(I),X1%(I+1),Z1%(I+1),X2%(I+1),Z2%(I+1),X2%(I),Z2%(I)
5150 _POLY X1%(I),Z1%(I),X1%(I+1),Z1%(I+1),X2%(I+1),Z2%(I+1),X2%(I),Z2%(I)
5160 NEXT
5170 FOR I=0 TO 68
5180 X1%(I)=X2%(I):Z1%(I)=Z2%(I)
5190 NEXT
5200 NEXT
5210 XC=22:YC=3:A$="F(X,Y)=COS(X^2+Y^2)/EXP((X^2+Y^2)/4)":GOSUB 6000
5220 _POLY 172,20,468,20,468,34,172,34
5230 RETURN
5240 TP=(X*X/73984*(null)+Y*Y/28224*(null))
5250 Z=COS(TP*2)/EXP(TP/2)*200
5260 XQ=X*CO+Y*SI:YQ=-X*SI+Y*CO:ZQ=Z
5270 XP=XQ:YP=ZQ*SI+YQ*CO:ZP=ZQ*CO-YQ*SI
5280 XP=320+XP:ZP=250-ZP
5290 RETURN
5999 :
6000 REM
6010 FOR I=0 TO LEN(A$)-1
6020 _CHAR XC+I,YC,ASC(MID$(A$,I+1,1))
6030 NEXT
6040 RETURN