home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / commercialdemos / artstudiopro / rexx / showimageadpro.asrx < prev    next >
Encoding:
Text File  |  1995-05-31  |  710 b   |  48 lines
  1. /*
  2. ** View.asrx
  3. **
  4. ** $VER: View 1.1.0 (05.01.95)
  5. **
  6. ** (c) by MotionStudios
  7. **        Wildermuthplatz 3
  8. **        28211 Bremen
  9. **        Tel.: 0421/249966
  10. */
  11.  
  12. ADDRESS "ADPro"
  13. OPTIONS RESULTS
  14.  
  15. PARSE ARG Path
  16.  
  17. IF ~SHOW('P','ADPro') THEN
  18. DO
  19.  ADDRESS COMMAND 'run >NIL: <NIL: ADPro:ADPro BEHIND MAXMEM=7000000'
  20.  ADDRESS COMMAND Wait 5
  21. END
  22.  
  23. LOADER "UNIVERSAL" Path
  24. XSIZE
  25.  x = ADPRO_RESULT
  26. YSIZE
  27.  y = ADPRO_RESULT
  28.  
  29.  Mode = 4
  30. IF x>400 THEN Mode = Mode + 1
  31. IF x>640 THEN Mode = Mode + 8
  32. IF y>400 THEN Mode = Mode + 2
  33. IF y>512 THEN Mode = Mode + 16
  34.  
  35. PSTATUS  "UNLOCKED"
  36. PCONTRAST  1
  37. PWIDTH  "ENHANCED"
  38. PTOTAL 256
  39. PUSED 256
  40. POFFSET 0
  41. DITHER_AMOUNT 16
  42. DITHER 1
  43. SCREEN_TYPE Mode
  44. RENDER_TYPE 'HAM8'
  45.  
  46. EXECUTE
  47. ADPRO_DISPLAY
  48.