home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 45 / 64er_Magazin_Sonderheft_45_19xx_Markt__Technik_de_Side_A.d64 / demoprogramm (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  43 lines
  1. 1 rem    demoprogramm 'prograf'
  2. 2 rem ---------------------------------
  3. 3 rem programmiert von nikolaus heusler
  4. 4 rem (c) sonderheft 64'er    nh-160789
  5. 5 rem ---------------------------------
  6. 6 rem we apologize for any inconvenience
  7. 10 poke56,67:clr:poke53280,11:poke0,111
  8. 11 ifpeek(17803)+peek(22956)<>33thensys57812"prograf",8,1:poke780,0:sys65493
  9. 12 poke777,67
  10. 14 goto100
  11. 20 poke53280,.:poke198,.:wait198,1:poke198,.:poke53280,11:return
  12. 100 print"[147] demoprogramm 'prograph'                 von nikolaus heusler
  13. 102 [153]" immer, wenn die rahmenfarbe auf schwarz
  14. 104 print"[145] schaltet, ist die grafik fertig.
  15. 106 [153]" dann wollen sie bitte eine taste druek- ken.
  16. 108 gosub20
  17. 110 !scn,1:!clr,11,1
  18. 120 !loc,320,200:ox=160:oy=0
  19. 130 fori=.to63step.1:x=40*cos(i)*(4+sin(i*3.3)):y=40*sin(i)*(3+sin(i*3.3))
  20. 140 !line,x,y,ox,oy:ox=x:oy=y:next:gosub20
  21. 150 !clr:!trans,0,0,0:!rot,0,0,0
  22. 160 !loc,320,340:e=40:!proz,180,-600,300
  23. 170 fori=-26to14step.5:fl=.:forj=-4to30step.6
  24. 180 x=i:y=j:z=sin(i-j+sin(i+j))/(3+j/3)
  25. 190 ifflthen:!zline,x*e,y*e,z*e,ox*e,oy*e,oz*e
  26. 195 fl=1:oz=z:oy=y:ox=x
  27. 200 nextj,i
  28. 210 fl=.:fori=-7to7step.2
  29. 220 x=i:a=log(3+i*i)+3:b=log(1+i*i)+3
  30. 230 ifflthen:!zline,x*e,0,a*e,ox*e,0,oa*e
  31. 232 ifflthen:!zline,x*e,0,b*e,ox*e,0,ob*e
  32. 234 fl=1:ox=x:oa=a:ob=b:next:gosub20
  33. 240 !clr:!proz,180,-1100,300:e=55:!loc,320,60:!trans,-3*e,0,-2*e
  34. 250 fori=-3to3step.5:fl=.:forj=-3to3step.5
  35. 260 x=i:y=j:z=-2/sqr(i*i+j*j+.1)
  36. 270 ifflthen:!zline,x*e,y*e,z*e,ox*e,oy*e,oz*e
  37. 275 fl=1:oz=z:oy=y:ox=x:next:next
  38. 280 fori=.5to3step.3:fl=0:forj=0to6.29step.314
  39. 290 x=i*cos(j):y=i*sin(j):z=-2/i
  40. 300 ifflthen:!zline,x*e,y*e,z*e,ox*e,oy*e,oz*e
  41. 305 fl=1:oz=z:oy=y:ox=x:next:next
  42. 310 gosub20:end
  43.