home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 October / 64er_Magazin_87-10_1987_Markt__Technik_de.d64 / 2d-berge (.txt) next >
Encoding:
Commodore BASIC  |  1987-01-01  |  1.2 KB  |  49 lines
  1. 10 rem ****************************
  2. 20 rem *          2d-berge        *
  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 zeile kann bei problemen mit dem
  8. 80 rem floppyspeeder weggelassen werden!
  9. 90 poke53280,0:poke53281,0:dimh%(128)
  10. 100 input "[147]grad ";gr
  11. 110 w=128
  12. 120 sys 50176,14,0:sys 50179,1:sys 50194:rem grafik ein
  13. 130 :
  14. 140 for i=1 to gr:gosub 300:w=w/2:next: rem 'berg' aufrufen
  15. 150 gosub 400:rem darstellen
  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 500: rem 'grafik speichern'
  20. 200 goto 100: rem neustart
  21. 260 :
  22. 270 :
  23. 280 rem ***************************
  24. 290 rem *       'berg'            *
  25. 300 rem ***************************
  26. 310 :
  27. 320 br=w*16
  28. 330 w2=w/2
  29. 340 for t=0 to 127 step w
  30. 350 :b=(h%(t)+h%(t+w))/2
  31. 360 :h%(t+w2)=b+(rnd(1)-.5)*br
  32. 370 next t
  33. 380 return
  34. 390 rem ******** darstellen *******
  35. 400 for i=0 to 126 step w
  36. 410 :x1=i*2+32:x2=(i+w)*2+32
  37. 420 :y1=100-h%(i)/10:y2=100-h%(i+w)/10
  38. 430 :sys 50185,x1,y1,x2,y2,1
  39. 440 next i
  40. 450 return
  41. 460 :
  42. 470 rem ***************************
  43. 480 rem *   'grafik speichern'    *
  44. 490 rem ***************************
  45. 500 :
  46. 510 input "grafik-name ";n$
  47. 520 open 2,8,2,"pi."+n$+",p,w":sys 50191:close 2
  48. 530 return
  49.