home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / dev / ace-2.0.lha / ACE-2.0 / prgs / Fractals / sierp.b < prev   
Encoding:
Text File  |  1994-01-10  |  467 b   |  37 lines
  1. '...Sierpinski Triangle
  2.  
  3. screen 1,320,200,1,1
  4. palette 0,0,0,0
  5. palette 1,1,1,1
  6. color 1,0
  7. cls
  8.  
  9. randomize timer
  10.  
  11. '...Triangle corners...
  12.  
  13. dim xx%(4),yy%(4)
  14.  
  15. for i=1 to 3
  16.   read xx%(i),yy%(i)
  17. next
  18.  
  19. data 70,20,250,20,160,190
  20.  
  21. '..initial x,y
  22. X%=160
  23. Y%=20
  24.  
  25. while not mouse(0)
  26.   posn%=INT(RND*3.0) + 1
  27.   '..arithmetic right shift is 
  28.   '..faster than integer division
  29.   X% = shr((X% + xx%(posn%)),1&)
  30.   Y% = shr((Y% + yy%(posn%)),1&)
  31.   PSET (X%,Y%)
  32. wend
  33.  
  34. screen close 1
  35.  
  36. end
  37.