home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / procedures / screen_wipes4.amos / screen_wipes4.amosSourceCode < prev   
AMOS Source Code  |  1993-03-07  |  2KB  |  97 lines
  1. Dim X#(360),Y#(360)
  2. Global X#(),Y#()
  3. Curs Off : Flash Off : Cls 0
  4. '************to view all the screen wipes just run this
  5. '*********press keys 1-5 to view procedures
  6. 'get screen from bank 14 
  7. Unpack 14 To 0
  8. OPS
  9. REDO:
  10. 'call screen proc  
  11. Repeat 
  12. K$=Inkey$
  13. If K$="1" : PIC4 : DNE=True : Screen 1 : Cls 0 : End If 
  14. If K$="2" : Screen 1 : Print "Please wait a mo...." : PIC5 : Screen 1 : Cls 0 : DNE=True : End If 
  15. If K$="3" : PIC6 : Screen 1 : Cls 0 : DNE=True : End If 
  16. If K$="4" : PIC7 : Screen 1 : Cls 0 : DNE=True : End If 
  17. If K$="5" : PIC8 : Screen 1 : Cls 0 : DNE=True : End If 
  18. Until DNE
  19. Wait 30
  20. DNE=0
  21. Goto REDO
  22. Procedure OPS
  23. Screen Open 1,320,256,32,Lowres : Curs Off : Flash Off : Cls 0
  24. Get Palette(0)
  25. End Proc
  26. Procedure PIC4
  27.    For C=0 To 16
  28.       For X=C To 320 Step 16
  29.          Screen Copy 0,X,0,X+1,256 To 1,X,0
  30.       Next X
  31.    Next C
  32. End Proc
  33. Procedure PIC5
  34.    Degree 
  35.    For X=0 To 360
  36.       X#(X)=Sin(X)
  37.       Y#(X)=Cos(X)
  38.    Next X
  39.    For X=0 To 360 Step 2
  40.       For RAD=1 To 370 Step 16
  41.          XPOS=320+RAD*X#(X)
  42.          YPOS=128+RAD*Y#(X)
  43.          XEND=XPOS+32
  44.          YEND=YPOS+32
  45.          Screen Copy 0,XPOS,YPOS,XEND,YEND To 1,XPOS,YPOS
  46.       Next RAD
  47.    Next X
  48. End Proc
  49. Procedure PIC6
  50.    X=0
  51.    Y=0
  52.    Rem top horiz
  53.    Do 
  54.       Screen Copy 0,0,Y,320,Y+1 To 1,0,Y
  55.       Inc Y
  56.       If X>160 Then Exit 
  57.       Rem right vert 
  58.       Screen Copy 0,X,0,X+1,256 To 1,X,0
  59.       Inc X
  60.       X1=320-X
  61.       Y1=256-Y
  62.       Screen Copy 0,0,Y1,320,Y1+1 To 1,0,Y1
  63.       Screen Copy 0,X1,0,X1+1,256 To 1,X1,0
  64.    Loop 
  65. End Proc
  66. Procedure PIC7
  67.    X=320
  68.    Y=256
  69.    Do 
  70.       Screen Copy 0,0,Y,320,Y+1 To 1,0,Y
  71.       Dec Y
  72.       If X=-1 Then Exit 
  73.       Rem right vert 
  74.       Screen Copy 0,X,0,X+1,256 To 1,X,0
  75.       Dec X
  76.       X1=X
  77.       Y1=Y
  78.       Screen Copy 0,0,Y1,320,Y1+1 To 1,0,Y1
  79.       Screen Copy 0,X1,0,X1+1,128 To 1,X1,0
  80.    Loop 
  81. End Proc
  82. Procedure PIC8
  83.    Degree 
  84.    For F=0 To 360
  85.       X#(F)=Sin(F)
  86.       Y#(F)=Cos(F)
  87.    Next F
  88.    For RAD=1 To 240 Step 16
  89.       For F=0 To 360 Step 2
  90.          BEGX=160+X#(F)*RAD
  91.          BEGY=128+Y#(F)*RAD
  92.          ENX=BEGX+20
  93.          ENY=BEGY+20
  94.          Screen Copy 0,BEGX,BEGY,ENX,ENY To 1,BEGX,BEGY
  95.       Next F
  96.    Next RAD
  97. End Proc