home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / graphic / painting / arteffectdemo / macros / macros.lzh / effects / Geometrie < prev    next >
Encoding:
Text File  |  1995-05-15  |  601 b   |  36 lines
  1. /* Verzerrung 1
  2.  * von A. Pratsch
  3.  * Copyright (c) 1995
  4.  */
  5.  
  6. options results
  7.  
  8. activatewindow current
  9. source = result
  10.  
  11. getinfo stem a.
  12.  
  13. new a.picwidth a.picheight "Destination"
  14. dest = result
  15. movewindow l a.leftedge t a.topedge
  16.  
  17. activatewindow winid source quiet
  18. scalemode linear
  19. paintmode mat
  20.  
  21. lockgui
  22. do y=0 to a.picheight-1
  23.     activatewindow winid source quiet
  24.     cutbox 0 y a.picwidth 1
  25.     sethandle tle
  26.     activatewindow winid dest quiet
  27.     width = trunc(1+a.picwidth*y/a.picheight)
  28.     resizebrush w width
  29.     point 0 y
  30.     point a.picwidth-1-width a.picheight-1-y
  31. end
  32. unlockgui
  33. freebrush
  34.  
  35. activatewindow winid dest
  36.