home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 October / 64er_Magazin_87-10_1987_Markt__Technik_de.d64 / fr.baeume (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  58 lines
  1. 10 rem ****************************
  2. 20 rem *      fraktale baeume     *
  3. 30 rem * 1987 by stefan vilsmeier *
  4. 40 rem ****************************
  5. 50 :
  6. 60 if a=0 then a=1:load "fractal.obj",8,1
  7. 70 open 1,8,15,"u9":close 1: rem diese zeeile kann bei problemen mit dem
  8. 80 rem floppyspeeder weggelassen werden!
  9. 90 poke53280,0:poke53281,0
  10. 100 input "[147]grad ";gr
  11. 110 input "winkel,faktor ";wi,f
  12. 120 se=40:xp=160:yp=150:w=-90
  13. 130 sys 50176,14,0:sys 50179,1:sys 50194:rem grafik ein
  14. 140 :
  15. 150 gosub 300: rem 'baum' aufrufen
  16. 160 sys 50185,0,0,319,0,1:sys 50185,319,0,319,199,1
  17. 170 sys 50185,319,199,0,199,1:sys 50185,0,199,0,0,1
  18. 180 get a$:if a$="" goto 180
  19. 190 sys 50179,0:if a$="s" then gosub 700: rem 'grafik speichern'
  20. 200 goto 70: rem neustart
  21. 260 :
  22. 270 :
  23. 280 rem ***************************
  24. 290 rem *        'baum'           *
  25. 300 rem ***************************
  26. 310 :
  27. 320 t=t+1:if gr<=0 goto 420
  28. 330 w=w-wi/2:  rem 'drehe'
  29. 340 s=se:gosub 500: rem 'schreite'
  30. 350 g(t)=gr:gr=gr-1:se=se/f:gosub300:se=se*f:rem 'baum'
  31. 360 s=-se:gosub 500: rem 'schreite'
  32. 370 w=w+wi:    rem 'drehe'
  33. 380 s=se:gosub 500: rem 'schreite'
  34. 390 g(t)=gr:gr=gr-1:se=se/f:gosub300:se=se*f:rem 'baum'
  35. 400 s=-se:gosub 500: rem 'schreite'
  36. 410 w=w-wi/2: rem 'drehe'
  37. 420 t=t-1:gr=g(t):return
  38. 450 :
  39. 460 :
  40. 470 rem ***************************
  41. 480 rem *      'schreite'         *
  42. 490 rem ***************************
  43. 500 :
  44. 510 xs=s*cos(w*(NULL)/180)
  45. 520 ys=s*sin(w*(NULL)/180)
  46. 530 xp=xp+xs:yp=yp+ys
  47. 540 sys 50185,xp-xs,yp-ys,xp,yp,1:rem linie
  48. 550 return
  49. 650 :
  50. 660 :
  51. 670 rem ***************************
  52. 680 rem *   'grafik speichern'    *
  53. 690 rem ***************************
  54. 700 :
  55. 710 input "grafik-name ";n$
  56. 720 open 2,8,2,"pi."+n$+",p,w":sys 50191:close 2
  57. 730 return
  58.