home *** CD-ROM | disk | FTP | other *** search
/ DTP Toolbox / DTPToolbox.iso / goodies / adpro_files / operators / doublewidth_ < prev    next >
Encoding:
Text File  |  1996-04-21  |  371 b   |  21 lines
  1. /*$VER: DoubleWidth_ 1.01 (21.04.96)© Felix Coronado
  2. */
  3.  
  4. ADDRESS "ADPro"
  5. OPTIONS RESULTS
  6. NL='0A'x
  7. IMAGE_TYPE
  8. IF ADPro_Result='BITPLANE' THEN DO
  9.  ADPRO_TO_FRONT
  10.  OKAY1 "There is no 8 or 24 bit"||NL||,
  11.        "data to scale."||NL||,
  12.        "Try loading"||NL||,
  13.        "data from disk."
  14.  EXIT
  15. END
  16. PCT_SCALE 200 100
  17. IF rc=10 THEN DO
  18.  ADPRO_TO_FRONT
  19.  OKAY1 "Scale failed"
  20. END
  21.