home *** CD-ROM | disk | FTP | other *** search
/ Windows 95 v2.4 Fix / W95-v2.4fix.iso / COREL6 / PHOTOPNT / MASKS.CSC < prev    next >
Encoding:
Text File  |  1995-08-12  |  1.0 KB  |  29 lines
  1. REM Illustrates some of the mask functions for photopaint
  2. REM Masks.csc 24 MAY, 1995
  3.  
  4. REM This script uses a file on the Draw 6 CD#1 disk. It must be in your machine 
  5. REM when running this script. You can change the FileName variable to make it run on 
  6. REM a different file.
  7.  
  8. REM Get CD drive
  9. drive = INPUTBOX("Please enter the letter of your CD-ROM drive" + CHR(13) + CHR(10) + "Make sure that the CorelDRAW6 CD#1 disk is in the drive")
  10. IF drive = "" THEN
  11.     MESSAGE "You didn't enter anything!"
  12.     STOP
  13. END IF
  14. REM Remove any thing after the drive letter
  15. drive = LEFT(drive, 1)
  16. FileName$ = drive + ":\color\moncalib.bmp"
  17. REM This opens a file, and performs a bunch of mask commands on it
  18. REM Minimize script and step through to see what each one does.
  19. WITHOBJECT PAINT
  20.     .FileOpen FileName, -1, -1, -1 ,-1, 0
  21.     .MaskSelectAll
  22.     .MaskReduce 80
  23.     .MaskTranslate 40, 40
  24.     .MaskSkew 45, 270, 260, 0, -1
  25.     .MaskStretch 45, 164, 275, 270
  26.     .MaskRotate 268, 363, -450, 0
  27.     .MaskDistort 100, 100, 100, 200, 300, 250, 200, 200
  28. END WITHOBJECT
  29.