home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_1_of_3_Side_A.d64 / graph (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  424b  |  21 lines
  1. 0 rem    graph
  2. 10 (NULL)1:(NULL)1:(NULL)1
  3. 20 (NULL):(NULL)1:(NULL)7,0
  4. 30 (NULL):poke53280,0
  5. 40 :
  6. 50 def fna(x)=cos(x)-cos(2*x)+cos(4*x)-cos(8*x)
  7. 60 mx=160:my=100
  8. 70 (NULL)my:(NULL)mx
  9. 80 fori=0tomystep20:(NULL)mx,my-i:(NULL)mx,my+i:next
  10. 90 fori=0tomxstep20:(NULL)mx-i,my:(NULL)mx+i,my:next
  11. 100 pa=0:ya=my-(20*fna(-mx/20))
  12. 110 forp=1to319
  13. 120 x=(p-mx)/20:y=fna(x)
  14. 130 yy=my-(y*20)
  15. 140 ifyy<0oryy>199then160
  16. 150 (NULL)pa,ya,p,yy
  17. 160 pa=p:ya=yy
  18. 170 next
  19. 180 (NULL)0,190:print""spc(255)spc(255)spc(255)"   please press 'shift'!";
  20. 190 wait653,1:(NULL)
  21.