home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / procedures / wavy1.amos / wavy1.amosSourceCode < prev   
AMOS Source Code  |  1993-03-07  |  1KB  |  49 lines
  1. Hide On 
  2. WAVY_BOB1
  3. Procedure WAVY_BOB1
  4.    MXSCREEN=3
  5.    For I=0 To MXSCREEN
  6.       Screen Open I,320,200,16,Lowres
  7.       Flash Off 
  8.       Curs Off 
  9.       Cls 0
  10.       Autoback 0
  11.       Palette $0,$11,$22,$33,$44,$55,$66,$77,$88,$99,$AA,$BB,$CC,$DD,$EE,$FF
  12.       Screen Hide I
  13.    Next 
  14.    '  
  15.    ' Main loop  
  16.    SCR=0 : COUNT=0 : T#=0 : P#=0.003
  17.    R1=110 : R2=55 : XCEN=151 : YCEN=87 : TW#=2*Pi# : I#=Pi#/64 : I2#=Pi#/20
  18.    R3=65 : R4=85 : SET#=Pi#/1.3 : NUM=1
  19.    TEMP=0
  20.    For T#=0 To 1*TW# Step I#
  21.       Screen Hide SCR
  22.       Add SCR,1,0 To MXSCREEN
  23.       Screen Show SCR : Screen To Front SCR : Screen SCR
  24.       X1#=R3*Cos(T#+SET#/0.2)+XCEN
  25.       Y1#=R4*Sin(T#)+YCEN
  26.       Paste Bob X1#,Y1#,NUM
  27.       X2#=R1*Cos(T#)+XCEN
  28.       Y2#=R2*Sin(T#)+YCEN
  29.       Paste Bob X2#,Y2#,NUM
  30.       X3#=R3*Cos(T#+SET#*0.2)+XCEN
  31.       Y3#=R4*Sin(T#)+YCEN
  32.       Paste Bob X3#,Y3#,NUM
  33.       If TEMP=1
  34.          Add NUM,1,1 To 8
  35.          TEMP=0
  36.       Else 
  37.          TEMP=1
  38.       End If 
  39.    Next T#
  40.    For LOP=1 To 500
  41.       Screen Hide SCR
  42.       Add SCR,1,0 To MXSCREEN
  43.       Screen Show SCR : Screen SCR
  44.       Wait 2
  45.    Next LOP
  46.    While Screen<>-1
  47.       Screen Close Screen
  48.    Wend 
  49. End Proc