home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / general / shifter.amos / shifter.amosSourceCode
Encoding:
AMOS Source Code  |  1993-01-06  |  753 b   |  21 lines

  1. '
  2. ' *** SHIFTER ***
  3. '
  4. '  
  5. ' * THIS ROUTINE DRAWS A RANDOM PATTERN OF CIRCLES ON SCREEN, THEN 
  6. ' * COLOUR CYCLES THEM... IT LOOKS O.K ACTUALLY. 
  7. '
  8. ' * HIT A KEY TO CHANGE THE PATTERN, CTRL & C QUITS! 
  9. '
  10. Screen Open 0,320,200,16,Lowres : Curs Off : Flash Off : Cls 0
  11. Palette $0,$FFF,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
  12. 1 Do : Randomize Timer : RX=Rnd(60)+20 : RY=Rnd(60)+20
  13.    C=1 : CX=160 : CY=100 : S#=0.03
  14.    Cls 0
  15.    S1=Rnd(50) : S2=Rnd(50) : S3=Rnd(5)+2 : S4=Rnd(5)+2
  16.    For CX=160 To 160+S2 Step S4
  17.       For Q#=0 To 2*Pi# Step S# : X=CX+Cos(Q#)*RX : Y=CY+Sin(Q#)*RY
  18.          Ink C : Plot X,Y : C=C+1 : If C>16 Then C=1
  19.          A$=Inkey$ : If A$="q" Then Goto 1
  20.    Next Q# : Next : Rem Next 
  21. Shift Up 1,1,15,1 : Wait Key : Shift Off : Loop