home *** CD-ROM | disk | FTP | other *** search
/ Corel Draw 6 / corel-draw-6-cd1.iso / photopnt / paint.csc < prev    next >
Text File  |  1995-08-18  |  1KB  |  50 lines
  1. REM Illustrates some Paint commands
  2. REM Paint.csc 1 June, 1995
  3.  
  4. REM This script uses a file on the Draw 6 CD#1 disk. 
  5. REM Please make sure it is inserted in the machine before you run the script.
  6. REM This file just illustrates some of photopaint's functions
  7. REM It doesn't actually do anything, but if you have paint
  8. REM visible as you step through this, you will get an idea of
  9. REM what each command does.
  10.  
  11.  
  12.  
  13. 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")
  14. IF drive = "" THEN
  15.     MESSAGE "You didn't enter anything!"
  16.     STOP
  17. END IF
  18.  
  19. REM Remove any thing after the drive letter
  20. drive = LEFT(drive, 1)
  21. FileName = drive + ":\color\moncalib.bmp"
  22.  
  23. REM This opens a file, and performs a bunch of commands on it
  24. REM Minimize script and step through to see what each one does.
  25. WITHOBJECT PAINT
  26.     .FileOpen FileName, -1, -1, -1 ,-1, 0
  27.     .MaskSelectAll
  28.     .MaskReduce 20
  29.     .ObjectCreate 0
  30.     .MaskSelectAll
  31.     .MaskReduce 120
  32.     .ObjectCreate 0
  33.     .ObjectSelectall
  34.     .ObjectGroup
  35.     .ObjectUngroup
  36.     .ObjectFeather 20, 1
  37.     .ObjectDefringe 30
  38.     .ObjectOpacity 90
  39.     .ObjectRemoveMatte 0
  40.     
  41.     .ObjectTranslate -116, 41
  42.     .SnapToGrid 1
  43.     .FileRevert
  44.     .EditUndo
  45.     .MaskLoad drive+":\photopnt\plgbrush\clamshel.bmp", -1, -1, -1, -1, 0
  46.  
  47.     MESSAGE "done"
  48.  
  49. END WITHOBJECT
  50.