home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 02 / gfademo.lst < prev    next >
Encoding:
File List  |  1979-12-31  |  1.3 KB  |  65 lines
  1. ' Bewegtes Linienfeld
  2. ' Demonstration mit GfA Basic
  3. Option Base 0  !Felder beginnen mit 0
  4. Maxlines%=20
  5. Maxlines_1%=19
  6. Maxdrawlines%=100
  7. Dim Ball%(3),Vel%(3),Maxi%(3)
  8. Dim Linie%(Maxlines_1%,3)
  9. Resolution=2
  10. Max_x%=639
  11. Max_y%=399
  12. Min_x%=0
  13. Min_y%=0
  14. Maxi%(0)=Max_x%
  15. Maxi%(1)=Max_y%
  16. Maxi%(2)=Max_x%
  17. Maxi%(3)=Max_y%
  18. For I%=0 To 3
  19.   Vel%(I%)=Random(16)-8
  20.   Ball%(I%)=Random(Maxi%(I%)-100)+50
  21. Next I%
  22. Neu%=0
  23. Alt%=0
  24. Full!=False
  25. Cls
  26. Repeat
  27.   For Index%=0 To Maxdrawlines%
  28.     For I%=0 To 3
  29.       T%=Ball%(I%)+Vel%(I%)
  30.       If T%>=Maxi%(I%)
  31.         T%=Maxi%(I%)*2-Ball%(I%)-Vel%(I%)
  32.         Vel%(I%)=-Vel%(I%)
  33.       Endif
  34.       If (I% Mod 2)<>0
  35.         Mini%=Min_y%
  36.       Else
  37.         Mini%=Min_x%
  38.       Endif
  39.       If T%<Mini%
  40.         If T%<0
  41.           T%=-T%
  42.         Else
  43.           T%=Mini%
  44.         Endif
  45.         Vel%(I%)=-Vel%(I%)
  46.       Endif
  47.       Ball%(I%)=T%
  48.     Next I%
  49.     If Full!
  50.       Color 0
  51.       Line Linie%(Alt%,0),Linie%(Alt%,1),Linie%(Alt%,2),Linie%(Alt%,3)
  52.       Alt%=(Alt%+1) Mod Maxlines%
  53.     Endif
  54.     J%=(Neu% Mod Maxlines%)
  55.     For K%=0 To 3
  56.       Linie%(J%,K%)=Ball%(K%)
  57.     Next K%
  58.     Full!=Full! Or (Neu%=Maxlines%-1)
  59.     Neu%=(Neu%+1) Mod Maxlines%
  60.     Color 1
  61.     Line Ball%(0),Ball%(1),Ball%(2),Ball%(3)
  62.   Next Index%
  63. Until Mousek=3
  64. End
  65.