home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / graphics / pixelise.amos / pixelise.amosSourceCode
AMOS Source Code  |  1993-08-02  |  499b  |  36 lines
  1. '
  2. ' *** Pixelize Routine V1.0
  3. '
  4. '
  5. ' *** Load picture to pixelize 
  6. '
  7. Load Iff Fsel$(""),0
  8. '
  9. ' *** Set part of screen to pixelize 
  10. '
  11. X1=74
  12. Y1=87
  13. X2=280
  14. Y2=190
  15. '
  16. For Y=Y1 To Y2 Step 2
  17.    '
  18.    For X=X1 To X2 Step 2
  19.       '
  20.       Screen Copy 0,X,Y,X+1,Y+1 To 0,X+1,Y
  21.       Screen Copy 0,X,Y,X+1,Y+1 To 0,X,Y+1
  22.       Screen Copy 0,X,Y,X+1,Y+1 To 0,X+1,Y+1
  23.       '
  24.       ' *** Press SPACE-BAR To Exit
  25.       '
  26.       If Inkey$=" "
  27.          Goto FIN
  28.       End If 
  29.       '
  30.    Next X
  31.    '
  32. Next Y
  33. '
  34. FIN:
  35. '
  36. Direct