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