home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / maksiu / utils / eaissue3b.lha / Source_Code / UN_Radar_Screen.AMOS / UN_Radar_Screen.amosSourceCode
AMOS Source Code  |  1995-12-30  |  314b  |  14 lines
  1. Degree 
  2. Screen Open 0,320,256,2,Lowres : Curs Off : Colour 1,$F0 : Colour 0,0 : Ink 1 : Cls 0
  3. Double Buffer : Autoback 0
  4. D=180
  5. S=3
  6. Repeat 
  7.    For ANGLE=359 To 0 Step -S
  8.       XP=D*Sin(ANGLE)
  9.       YP=D*Cos(ANGLE)
  10.       Cls 
  11.       Draw 160,128 To 160+XP,128+YP
  12.       Screen Swap : Wait Vbl 
  13.    Next 
  14. Until Mouse Key