home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / grafix / ultraconv / rexx / sillydemo < prev    next >
Encoding:
Text File  |  1997-08-12  |  626 b   |  25 lines
  1. /* SillyDemo ©1997 by Felix Schwarz
  2.    This script is simply silly :-)
  3.    Use parts of it, if you want ..
  4.  */
  5.  
  6.     options results
  7.     address 'UConv'
  8.     POPUPMENU 'Change scale|Change rotate|Change dithering|Cancel'
  9.     pop=result
  10.     SELECT
  11.      WHEN pop=0 THEN DO
  12.                       SETSCALE 160 128 0 1
  13.                       SCALEREQ ON
  14.                      END
  15.      WHEN pop=1 THEN DO
  16.                       SETROTATE 99
  17.                       ROTATEREQ ON
  18.                      END
  19.      WHEN pop=2 THEN DO
  20.                       SETDITHER 122
  21.                       DITHERREQ ON
  22.                      END
  23.     END
  24.     EXIT
  25.