home *** CD-ROM | disk | FTP | other *** search
/ Corel Draw 6 / corel-draw-6-cd1.iso / draw / shadow.csc < prev    next >
Text File  |  1995-08-18  |  2KB  |  50 lines
  1. REM This script applies a drop shadow
  2. REM Shadow.csc July 21, 1995
  3.  
  4. REM Brings up a dialog box which allows you to specify settings for a simple shadow.
  5.  
  6. BEGIN DIALOG Dialog1 312, 134, "Drop Shadow Dialog"
  7.     OKBUTTON  241, 14, 54, 16
  8.     CANCELBUTTON  241, 38, 54, 16
  9.     GROUPBOX  21, 11, 80, 49, "Up / Down"
  10.     OPTIONGROUP UpDown%
  11.         OPTIONBUTTON  28, 24, 58, 10, "Apply Up"
  12.         OPTIONBUTTON  28, 45, 58, 10, "Apply Down"
  13.     GROUPBOX  22, 65, 80, 55, "Left / Right"
  14.     OPTIONGROUP LeftRight%
  15.         OPTIONBUTTON  30, 79, 58, 10, "Apply Right"
  16.         OPTIONBUTTON  30, 98, 58, 10, "Apply Left"
  17.     TEXT  108, 16, 70, 8, "Amount (1/32 inch)"
  18.     SPINCONTROL  175, 16, 45, 15, VertVal%
  19.     TEXT  108, 70, 70, 8, "Amount (1/32 inch)"
  20.     SPINCONTROL  175, 70, 45, 15, HorizVal%
  21.     TEXT  235, 70, 70, 8, "% Black"
  22.     SPINCONTROL  265, 70, 45, 15, Black%
  23. END DIALOG
  24. UpDown = 1
  25. LeftRight = 1
  26. HorizVal = 3
  27. VertVal = 3
  28. Black% = 30
  29. ret = DIALOG(dialog1)
  30. IF CANCEL THEN STOP
  31.  
  32. REM Flip values TO negative if Left OR Down chosen
  33. IF LeftRight = 1 THEN HorizVal = -HorizVal    'If left
  34. IF UpDown = 1 THEN VertVal = -VertVal    'If down
  35.  
  36. REM Calculate the change in position FOR the shadow.
  37. DeltaH& = FROMINCHES(HorizVal / 32.0)
  38. DeltaV& = FROMINCHES(VertVal / 32.0)
  39. WITHOBJECT DRAW
  40.     .CopyToClipboard
  41.     .PasteFromClipboard
  42.     .ApplyUniformFillColor 9, 255*(1 - Black/100.0), 0, 0, 0
  43.     .SetReferencePoint 1
  44.     .GetPosition Xpos&, Ypos&
  45.     .SetPosition Xpos + DeltaH, Ypos + DeltaV
  46.     .ApplyOutline 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  47.     .OrderToBack
  48. END WITHOBJECT
  49.  
  50.