home *** CD-ROM | disk | FTP | other *** search
/ DTP Toolbox / DTPToolbox.iso / goodies / adpro_files / operators / ntsc_to_square_ < prev    next >
Encoding:
Text File  |  1996-04-22  |  612 b   |  33 lines
  1. /* $VER: NTSC_to_Square_ 1.02 (21.04.96)© Felix C. Coronado
  2. */
  3. ADDRESS "ADPro"
  4. OPTIONS RESULTS
  5. NL='0A'x
  6. IMAGE_TYPE
  7. IF ADPro_Result='BITPLANE' THEN DO
  8.  ADPRO_TO_FRONT
  9.  OKAY1 "There is no 8 or 24 bit"||NL||,
  10.        "data to scale."||NL||,
  11.        "Try loading"||NL||,
  12.        "data from disk."
  13.  EXIT
  14. END
  15. XSIZE
  16. Width=ADPro_Result
  17. YSIZE
  18. Height=ADPro_Result
  19. ABS_SCALE Width Height*13/11
  20. IF rc=10 THEN DO
  21.  ADPRO_TO_FRONT
  22.  OKAY2 'Scale Y up failed'||NL||,
  23.        'Scale X down?'
  24.  IF rc=0 THEN EXIT
  25.  ELSE DO
  26.   ABS_SCALE Width*11/13 Height
  27.   IF rc=10 THEN DO
  28.    ADPRO_TO_FRONT
  29.    OKAY1 'Scale X down failed'
  30.   END
  31.  END
  32. END
  33.