home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 February / 64er_Magazin_91-02_1991_Markt__Technik_de_Side_A.d64 / hidden-demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  371 b   |  13 lines
  1. 2 rem hidden-line demo  nikolaus heusler  6.9.90
  2. 4 ifpeek(49152)+peek(49153)<>143thenload"hidden-49152",8,8:rem routine nachladen
  3. 10 sys49152:rem grafik ein
  4. 20 bs=1
  5. 30 bw=-bs
  6. 40 forz=0to2*(NULL)step(NULL)/40*bs:rem 2 buckel
  7. 50 bw=bw+bs:rem blickwinkel
  8. 60 forx=0to2*(NULL)step(NULL)/135:rem 2 buckel
  9. 70 y=(sin(x))*(sin(z))*76:rem hoehe des punktes
  10. 80 sys49158,x/2/(NULL)*260+bw,140-bw-y
  11. 90 nextx,z
  12. 100 poke198,.:wait198,1:poke198,.:sys49155
  13.