home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 3 / Amoszine 3.adf / Celebrity_source / line_wipe0.AMOS.pp / line_wipe0.AMOS / line_wipe0.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1992-02-26  |  1.0 KB  |  45 lines
  1. ' *************************************************************
  2. '
  3. '                            Line Wipe 
  4. '
  5. '                   - ** By Paul Nordovics ** -
  6. '
  7. ' If you use this in your own programs I won't be offended if
  8. '            you mention me in your creditz !!!
  9. ' *************************************************************
  10. '
  11. ' line_wipe0[x1,y1,x2,y2,speed,_ink] 
  12. '
  13. ' x1,y1 = top-left corner of area to be cleared
  14. ' x2,y2 = bottom-right corner of area to be cleared
  15. ' speed = speed of fx
  16. ' _ink  = ink colour of line 
  17. '
  18. ' *************************************************************
  19. '
  20. ' *************
  21. ' set up screen
  22. ' *************
  23. Hide 
  24. Unpack 1 To 0
  25. '
  26. Wait 20
  27. LINE_WIPE0[32,33,290,189,1,0]
  28. '
  29. End 
  30. '
  31. Procedure LINE_WIPE0[X1,Y1,X2,Y2,SPEED,_INK]
  32.    Ink _INK
  33.    For K=X1 To X2 Step 2
  34.       If SPEED>0 Then Wait SPEED
  35.       Draw K,Y1 To K,Y2
  36.    Next K
  37.    For K=Y1 To Y2 Step 2
  38.       If SPEED>0 Then Wait SPEED
  39.       Draw X1,K To X2,K
  40.    Next K
  41.    For K=X1+1 To X2 Step 2
  42.       If SPEED>0 Then Wait SPEED
  43.       Draw K,Y1 To K,Y2
  44.    Next K
  45. End Proc