home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / procedures / push.amos / push.amosSourceCode
AMOS Source Code  |  1993-01-08  |  1KB  |  35 lines
  1. ' Push procedure V1.2
  2. '
  3. ' This procedure should be used after procs "Draw" & "Set up"  
  4. '
  5. ' This procedure will draw you a box that has been pushed up 
  6. '
  7. ' X        - Starting X coordinate   
  8. ' Y        - Starting Y coordinate   
  9. ' X1       - Ending X coordinate     
  10. ' Y1       - Ending Y coordinate   
  11. ' MESSAGE$ - Words that will be centred on the box   
  12. ' TIME     - This is the time to delay after it's pushed.  
  13. '           If TIME is negative then there will be no delay
  14. '
  15. ' See example "Examples/Set Up,Draw,Push.Amos" 
  16. '
  17. Procedure PUSH[X,Y,X1,Y1,MESSAGE$,TIME]
  18.    ' Procedure written by Brett George
  19.    Ink 2 : Bar X,Y To X1,Y1
  20.    If MESSAGE$<>""
  21.       Ink 0 : Box X-1,Y-1 To X1+1,Y1+1
  22.       Ink 1 : Plot X-1,Y-1 : Plot X-1,Y1+1 : Plot X1+1,Y-1 : Plot X1+1,Y1+1
  23.    End If 
  24.    Ink 5 : Draw X1,Y1 To X,Y1 : Draw X1,Y1-1 To X+1,Y1-1
  25.    Draw X1,Y1 To X1,Y : Draw X1-1,Y1-1 To X1-1,Y : Ink 4
  26.    Draw X,Y To X1,Y : Draw X,Y+1 To X1-1,Y+1 : Draw X,Y To X,Y1
  27.    Draw X+1,Y To X+1,Y1-1
  28.    If MESSAGE$<>""
  29.       _=((X+X1)/2-(Text Length(MESSAGE$))/2)-2 : Gr Writing 0 : Ink 4
  30.       Text _,(Y+Y1)/2+Text Base/2,MESSAGE$
  31.        Ink 0
  32.       Text _-1,((Y+Y1)/2+Text Base/2)-1,MESSAGE$
  33.    End If 
  34.    If TIME>0 Then Wait TIME : _DRAW[X,Y,X1,Y1,-1,MESSAGE$] : Wait TIME
  35. End Proc