home *** CD-ROM | disk | FTP | other *** search
/ CorelDRAW! 10 / cd10_pgrm.iso / Corel / Graphics10 / Draw / Scripts / Misc / fillout.csc < prev    next >
Encoding:
Text File  |  1997-09-24  |  30.0 KB  |  864 lines
  1. REM Applies a fountain filled outline 
  2. REM to the currently selected object.
  3.  
  4. '********************************************************************
  5. ' 
  6. '   Script:    FillOut.csc
  7. ' 
  8. '   Copyright 1996 Corel Corporation.  All rights reserved.
  9. ' 
  10. '   Description: CorelDRAW script to apply a fountain filled outline
  11. '                to the currently selected object.  Uses contour
  12. '                and creates a grouped object.
  13. ' 
  14. '********************************************************************
  15.  
  16. #addfol  "..\..\..\scripts"
  17. #include "ScpConst.csi"
  18. #include "DrwConst.csi"
  19.  
  20. '/////FUNCTION & SUBROUTINE DECLARATIONS/////////////////////////////
  21. DECLARE SUB UpdateBlendButtons()
  22. DECLARE SUB UpdateDisabledControls()
  23. DECLARE FUNCTION IsInteger( InString AS STRING ) AS BOOLEAN
  24. DECLARE FUNCTION CheckForSelection() AS BOOLEAN
  25. DECLARE FUNCTION CheckForContour() AS BOOLEAN
  26.  
  27. '/////GLOBAL VARIABLES & CONSTANTS///////////////////////////////////
  28. GLOBAL CONST TITLE_ERRORBOX$      = "Filled Outline Maker Error"
  29. GLOBAL CONST TITLE_INFOBOX$       = "Filled Outline Maker Information"
  30. GLOBAL NL AS STRING         ' These must be declared as 
  31. GLOBAL NL2 AS STRING     ' variables, not constants, because
  32. NL$ = CHR(10) + CHR(13)    ' we cannot assign expressions
  33. NL2$ = NL + NL             ' to constants.
  34.  
  35. GLOBAL Bitmaps(3) AS STRING    ' Will hold the images to assign to buttons.
  36.     
  37. ' The dialog return values.
  38. GLOBAL CONST DIALOG_RETURN_OK%     = 1
  39. GLOBAL CONST DIALOG_RETURN_CANCEL% = 2
  40.     
  41. ' The CDRStaticID of the duplicated object.
  42. GLOBAL IDDuplicate AS LONG
  43.  
  44. ' The current directory when this script was started.
  45. GLOBAL CurDir AS STRING
  46.  
  47. '/////PARAMETERS DIALOG//////////////////////////////////////////////
  48.  
  49. ' The graphics used for the color blend type buttons.
  50. GLOBAL CONST COLOR_DIRECT_UNPRESSED_BITMAP$ = "\ColDirec.bmp"
  51. GLOBAL CONST COLOR_DIRECT_PRESSED_BITMAP$ = "\ColDireP.bmp"
  52. GLOBAL CONST COLOR_CCW_UNPRESSED_BITMAP$ = "\ColCCW.bmp"
  53. GLOBAL CONST COLOR_CCW_PRESSED_BITMAP$ = "\ColCCWP.bmp"
  54. GLOBAL CONST COLOR_CW_UNPRESSED_BITMAP$ = "\ColCW.bmp"
  55. GLOBAL CONST COLOR_CW_PRESSED_BITMAP$ = "\ColCWP.bmp"
  56.  
  57. ' The array of possible units the user may select from.
  58. GLOBAL UnitsArray(6) AS STRING
  59. UnitsArray(1) = "1 in."
  60. UnitsArray(2) = "1/36 in."
  61. UnitsArray(3) = "0.001 in."
  62. UnitsArray(4) = "1 cm."
  63. UnitsArray(5) = "0.001 cm."
  64. UnitsArray(6) = "1 pt."
  65.  
  66. ' Multiplicative conversion factors to convert from the units to
  67. ' tenths of a micron.
  68. GLOBAL ConversionFactors(6) AS SINGLE
  69. ConversionFactors(1) = 1 * LENGTHCONVERT(LC_INCHES, LC_TENTHS_OFA_MICRON, 1)
  70. ConversionFactors(2) = (1/36) * LENGTHCONVERT(LC_INCHES, LC_TENTHS_OFA_MICRON, 1)
  71. ConversionFactors(3) = 0.001 * LENGTHCONVERT(LC_INCHES, LC_TENTHS_OFA_MICRON, 1)
  72. ConversionFactors(4) = 1 * LENGTHCONVERT(LC_CENTIMETERS, LC_TENTHS_OFA_MICRON, 1)
  73. ConversionFactors(5) = 0.001 * LENGTHCONVERT(LC_CENTIMETERS, LC_TENTHS_OFA_MICRON, 1)
  74. ConversionFactors(6) = 1 * LENGTHCONVERT(LC_POINTS, LC_TENTHS_OFA_MICRON, 1)
  75.  
  76. ' Constants used for this dialog.
  77. GLOBAL CONST FILL_TYPE_LINEAR%    = 1
  78. GLOBAL CONST FILL_TYPE_RADIAL%    = 2
  79. GLOBAL CONST FILL_TYPE_CONICAL%    = 3
  80. GLOBAL CONST FILL_TYPE_SQUARE%    = 4
  81.  
  82. ' Variables needed for this dialog.
  83. GLOBAL FillType AS INTEGER        ' The fill type (linear, etc.)
  84. GLOBAL HorizOffset AS INTEGER        ' The horizontal offset percentage.
  85. GLOBAL VertOffset AS INTEGER        ' The vertical offset percentage.
  86. GLOBAL ColorBlendType AS INTEGER    ' Direct, CCW, or CW.
  87. GLOBAL Midpoint AS INTEGER        ' The midpoint (rate) for the fill.
  88. GLOBAL Angle AS INTEGER            ' The fill's angle.
  89. GLOBAL Steps AS INTEGER            ' The number of steps to use for
  90.                             ' the fill.
  91. GLOBAL Pad AS INTEGER            ' The amount of padding on the fill.
  92. GLOBAL MsgReturn AS LONG            ' The return value of MESSAGEBOX.
  93. GLOBAL FromRed AS INTEGER        ' The From color, red component.
  94. GLOBAL FromGreen AS INTEGER        ' The From color, green component.
  95. GLOBAL FromBlue AS INTEGER        ' The From color, blue component.
  96. GLOBAL ToRed AS INTEGER            ' The To color, red component.
  97. GLOBAL ToGreen AS INTEGER        ' The To color, green component.
  98. GLOBAL ToBlue AS INTEGER            ' The To color, blue component.
  99. GLOBAL Width AS INTEGER            ' The outline width.
  100. GLOBAL ChosenUnit AS INTEGER        ' The unit chosen by the user.
  101.  
  102. ' Set up the fill descriptions.
  103. GLOBAL FillDesc(4) AS STRING        ' The fill type descriptions.
  104. FillDesc$(1) = "Linear"
  105. FillDesc$(2) = "Radial"
  106. FillDesc$(3) = "Conical"
  107. FillDesc$(4) = "Square"
  108.  
  109. ' Set up the defaults.
  110. FillType% = FILL_TYPE_LINEAR%
  111. HorizOffset% = 0
  112. VertOffset% = 0
  113. Angle% = 0
  114. Steps% = 50
  115. Pad% = 0
  116. ColorBlendType% = DRAW_BLEND_DIRECT%
  117. Midpoint% = 50
  118. FromRed% = 0 
  119. FromGreen% = 0
  120. FromBlue% = 255
  121. ToRed% = 255
  122. ToGreen% = 0
  123. ToBlue% = 0
  124. Width% = 10
  125. ChosenUnit% = 2
  126.  
  127. BEGIN DIALOG OBJECT ParamDialog 238, 236, "Filled Outline Maker", SUB ParamDialogEventHandler
  128.     TEXT  12, 4, 214, 21, .Text1, "This tool automatically creates a fountain filled outline effect for the currently selected object."
  129.     GROUPBOX  12, 107, 214, 79, .GroupBox2, "Two color blend"
  130.     DDLISTBOX  36, 26, 80, 78, .TypeListBox
  131.     TEXT  22, 60, 37, 11, .HorizText, "Horizontal:"
  132.     SPINCONTROL  60, 58, 37, 12, .HorizSpin
  133.     TEXT  100, 60, 8, 11, .HorizPercentText, "%"
  134.     TEXT  100, 80, 8, 11, .VertPercentText, "%"
  135.     TEXT  22, 80, 30, 10, .VertText, "Vertical:"
  136.     SPINCONTROL  60, 78, 37, 12, .VertSpin
  137.     SPINCONTROL  173, 38, 37, 12, .AngleSpin
  138.     TEXT  136, 41, 25, 11, .AngleText, "Angle:"
  139.     TEXT  12, 28, 22, 11, .Text14, "Type:"
  140.     GROUPBOX  13, 44, 104, 56, .GroupBox5, "Center offset"
  141.     GROUPBOX  127, 22, 100, 78, .GroupBox6, "Options"
  142.     SPINCONTROL  173, 58, 37, 12, .StepsSpin
  143.     TEXT  136, 60, 25, 11, .Text6, "Steps:"
  144.     SPINCONTROL  173, 78, 37, 12, .PadSpin
  145.     TEXT  136, 80, 34, 11, .PadText, "Edge pad:"
  146.     TEXT  213, 80, 8, 9, .PadPercentText, "%"
  147.     TEXT  22, 125, 22, 9, .Text11, "From:"
  148.     PUSHBUTTON  56, 123, 57, 14, .FromButton, "Choose Color"
  149.     PUSHBUTTON  56, 143, 57, 14, .ToButton, "Choose Color"
  150.     TEXT  22, 164, 30, 10, .Text10, "Mid-point:"
  151.     HSLIDER 53, 163, 79, 16, .MidSlider
  152.     TEXT  22, 145, 22, 9, .Text13, "To:"
  153.     TEXTBOX  135, 161, 14, 14, .MidText
  154.     BITMAPBUTTON  180, 124, 14, 14, .DirectButton
  155.     BITMAPBUTTON  180, 138, 14, 14, .CCWButton
  156.     BITMAPBUTTON  180, 152, 14, 14, .CWButton
  157.     TEXT  140, 125, 36, 11, .Text16, "Blend type:"
  158.     TEXT  198, 126, 20, 9, .Text17, "Direct"
  159.     TEXT  198, 155, 20, 9, .Text19, "CW"
  160.     TEXT  198, 141, 20, 9, .Text18, "CCW"
  161.     TEXT  28, 195, 87, 11, .Text20, "Fountain-filled outline width:"
  162.     SPINCONTROL  119, 193, 27, 13, .WidthSpin
  163.     DDLISTBOX  156, 193, 47, 138, .UnitsListBox
  164.     TEXT  149, 195, 5, 11, .Text21, "x"
  165.     PUSHBUTTON  71, 214, 48, 14, .OkButton, "OK"
  166.     PUSHBUTTON  123, 214, 48, 14, .CancelButton, "Cancel"
  167. END DIALOG
  168.  
  169. SUB ParamDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  170.  
  171.     DIM MsgReturn AS LONG    ' The return value of MESSAGEBOX.
  172.  
  173.     SELECT CASE Event%
  174.     
  175.         CASE EVENT_INITIALIZATION&
  176.  
  177.             ' Set up the fill types list box.
  178.             ParamDialog.TypeListbox.SetArray FillDesc$
  179.             ParamDialog.TypeListbox.SetSelect FillType%
  180.             UpdateDisabledControls
  181.             
  182.             ' Set up the midpoint slider.
  183.             ParamDialog.MidSlider.SetMinRange 1
  184.             ParamDialog.MidSlider.SetMaxRange 99
  185.             ParamDialog.MidSlider.SetIncrement 1
  186.             ParamDialog.MidSlider.SetValue Midpoint%
  187.             ParamDialog.MidText.SetText CSTR(Midpoint%)
  188.         
  189.             ' Set up the offsets.
  190.             ParamDialog.HorizSpin.SetValue HorizOffset%
  191.             ParamDialog.VertSpin.SetValue VertOffset%
  192.         
  193.             ' Set up the other options.
  194.             ParamDialog.AngleSpin.SetValue Angle%
  195.             ParamDialog.StepsSpin.SetValue Steps%
  196.             ParamDialog.PadSpin.SetValue Pad%
  197.         
  198.             ' Set up the blend type buttons.
  199.             UpdateBlendButtons
  200.             
  201.             ' Set up the outline width related controls.
  202.             ParamDialog.WidthSpin.SetValue Width%
  203.             ParamDialog.UnitsListBox.SetArray UnitsArray$
  204.             ParamDialog.UnitsListBox.SetSelect ChosenUnit%
  205.             
  206.         CASE EVENT_MOUSE_CLICK&
  207.             SELECT CASE ControlID%
  208.                 CASE ParamDialog.TypeListBox.GetID()
  209.                     FillType% = ParamDialog.TypeListBox.GetSelect()
  210.                     UpdateDisabledControls
  211.                         
  212.                 CASE ParamDialog.DirectButton.GetID()
  213.                     ColorBlendType% = DRAW_BLEND_DIRECT%
  214.                     UpdateBlendButtons
  215.                     
  216.                 CASE ParamDialog.CCWButton.GetID()
  217.                     ColorBlendType% = DRAW_BLEND_RAINBOW_CCW%
  218.                     UpdateBlendButtons
  219.                 
  220.                 CASE ParamDialog.CWButton.GetID()
  221.                     ColorBlendType% = DRAW_BLEND_RAINBOW_CW%
  222.                     UpdateBlendButtons
  223.                 
  224.                 CASE ParamDialog.MidSlider.GetID()
  225.                     Midpoint% = ParamDialog.MidSlider.GetValue()
  226.                     ParamDialog.MidText.SetText \\
  227.                          CSTR(ParamDialog.MidSlider.GetValue())
  228.  
  229.                 CASE ParamDialog.FromButton.GetID()
  230.                     GETCOLOR FromRed%, FromGreen%, FromBlue%
  231.  
  232.                 CASE ParamDialog.ToButton.GetID()
  233.                     GETCOLOR ToRed%, ToGreen%, ToBlue%
  234.                     
  235.                 CASE ParamDialog.OkButton.GetID()
  236.                     ParamDialog.CloseDialog DIALOG_RETURN_OK%    
  237.                 
  238.                 CASE ParamDialog.CancelButton.GetID()
  239.                     ParamDialog.CloseDialog DIALOG_RETURN_CANCEL%
  240.     
  241.                 CASE ParamDialog.UnitsListBox.GetID()
  242.                     ChosenUnit% = ParamDialog.UnitsListBox.GetSelect()
  243.             
  244.             END SELECT
  245.         
  246.         CASE EVENT_CHANGE_IN_CONTENT&
  247.             SELECT CASE ControlID%
  248.                 CASE ParamDialog.WidthSpin.GetID()
  249.                     ' Make sure the button does not allow values
  250.                     ' less than or equal to 0 or greater than 99.
  251.                     IF (ParamDialog.WidthSpin.GetValue() <= 0) THEN
  252.                         MsgReturn& = MESSAGEBOX("Please enter a width value between " + \\
  253.                                                       "1 and 99.", \\
  254.                                                       TITLE_INFOBOX$, MB_INFORMATION_ICON%)
  255.                         ParamDialog.WidthSpin.SetValue 1
  256.                         Width% = 1
  257.                     ELSEIF (ParamDialog.WidthSpin.GetValue() > 99) THEN
  258.                         MsgReturn& = MESSAGEBOX("Please enter a width value between " + \\
  259.                                                       "1 and 99.", \\
  260.                                                       TITLE_INFOBOX$, MB_INFORMATION_ICON%)
  261.                         ParamDialog.WidthSpin.SetValue 99
  262.                         Width% = 99
  263.                     ELSE
  264.                         Width% = ParamDialog.WidthSpin.GetValue()
  265.                     ENDIF
  266.             
  267.                 CASE ParamDialog.HorizSpin.GetID()
  268.                     ' Make sure the horizontal offset spin button
  269.                     ' does not allow invalid values.
  270.                     IF (ParamDialog.HorizSpin.GetValue() < -100) THEN
  271.                         MsgReturn& = MESSAGEBOX("Please enter a horizontal offset " + \\
  272.                                                       "value between -100 and 100.", \\
  273.                                                       TITLE_INFOBOX$, MB_INFORMATION_ICON%)
  274.                         ParamDialog.HorizSpin.SetValue -100
  275.                         HorizOffset% = -100
  276.                     ELSEIF (ParamDialog.HorizSpin.GetValue() > 100) THEN
  277.                         MsgReturn& = MESSAGEBOX("Please enter a horizontal offset " + \\
  278.                                                       "value between -100 and 100.", \\
  279.                                                       TITLE_INFOBOX$, MB_INFORMATION_ICON%)
  280.                         ParamDialog.HorizSpin.SetValue 100
  281.                         HorizOffset% = 100
  282.                     ELSE
  283.                         HorizOffset% = ParamDialog.HorizSpin.GetValue()
  284.                     ENDIF
  285.                     
  286.                 CASE ParamDialog.VertSpin.GetID()
  287.                     ' Make sure the vertical offset spin button
  288.                     ' does not allow invalid values.
  289.                     IF (ParamDialog.VertSpin.GetValue() < -100) THEN
  290.                         MsgReturn& = MESSAGEBOX("Please enter a vertical offset " + \\
  291.                                                       "value between -100 and 100.", \\
  292.                                                       TITLE_INFOBOX$, MB_INFORMATION_ICON%)
  293.                         ParamDialog.VertSpin.SetValue -100
  294.                         VertOffset% = -100
  295.                     ELSEIF (ParamDialog.VertSpin.GetValue() > 100) THEN
  296.                         MsgReturn& = MESSAGEBOX("Please enter a vertical offset " + \\
  297.                                                       "value between -100 and 100.", \\
  298.                                                       TITLE_INFOBOX$, MB_INFORMATION_ICON%)
  299.                         ParamDialog.VertSpin.SetValue 100
  300.                         VertOffset% = 100
  301.                     ELSE
  302.                         VertOffset% = ParamDialog.HorizSpin.GetValue()
  303.                     ENDIF
  304.                     
  305.                 CASE ParamDialog.AngleSpin.GetID()
  306.                     ' Only allow angles from -360 to +360.
  307.                     IF (ParamDialog.AngleSpin.GetValue() < -360) THEN
  308.                         MsgReturn& = MESSAGEBOX("Please enter an angle between " + \\
  309.                                                       "-360 and 360 degrees.", \\
  310.                                                       TITLE_INFOBOX$, MB_INFORMATION_ICON%)
  311.                         ParamDialog.AngleSpin.SetValue -360
  312.                         Angle% = -360
  313.                     ELSEIF (ParamDialog.AngleSpin.GetValue() > 360) THEN
  314.                         MsgReturn& = MESSAGEBOX("Please enter an angle between " + \\
  315.                                                       "-360 and 360 degrees.", \\
  316.                                                       TITLE_INFOBOX$, MB_INFORMATION_ICON%)
  317.                         ParamDialog.AngleSpin.SetValue 360
  318.                         Angle% = 360
  319.                     ELSE
  320.                         Angle% = ParamDialog.AngleSpin.GetValue()
  321.                     ENDIF
  322.  
  323.                 CASE ParamDialog.StepsSpin.GetID()
  324.                     ' Only allow values from 2 to 256.
  325.                     IF (ParamDialog.StepsSpin.GetValue() < 2) THEN
  326.                         MsgReturn& = MESSAGEBOX("Please enter a number of steps " + \\
  327.                                                       "between 2 and 256.", \\
  328.                                                       TITLE_INFOBOX$, MB_INFORMATION_ICON%)
  329.                         ParamDialog.StepsSpin.SetValue 2
  330.                         Steps% = 2
  331.                     ELSEIF (ParamDialog.StepsSpin.GetValue() > 256) THEN
  332.                         MsgReturn& = MESSAGEBOX("Please enter a number of steps " + \\
  333.                                                       "between 2 and 256.", \\
  334.                                                       TITLE_INFOBOX$, MB_INFORMATION_ICON%)
  335.                         ParamDialog.StepsSpin.SetValue 256
  336.                         Steps% = 256
  337.                     ELSE
  338.                         Steps% = ParamDialog.StepsSpin.GetValue()
  339.                     ENDIF
  340.  
  341.                 CASE ParamDialog.PadSpin.GetID()
  342.                     ' Only allow values from 0 to 45.
  343.                     IF (ParamDialog.PadSpin.GetValue() < 0) THEN
  344.                         MsgReturn& = MESSAGEBOX("Please enter a pad " + \\
  345.                                                       "value between 0 and 45.", \\
  346.                                                       TITLE_INFOBOX$, MB_INFORMATION_ICON%)
  347.                         ParamDialog.PadSpin.SetValue 0
  348.                         Pad% = 0
  349.                     ELSEIF (ParamDialog.PadSpin.GetValue() > 45) THEN
  350.                         MsgReturn& = MESSAGEBOX("Please enter a pad " + \\
  351.                                                       "value between 0 and 45.", \\
  352.                                                       TITLE_INFOBOX$, MB_INFORMATION_ICON%)
  353.                         ParamDialog.PadSpin.SetValue 45
  354.                         Pad% = 45
  355.                     ELSE
  356.                         Pad% = ParamDialog.PadSpin.GetValue()
  357.                     ENDIF
  358.                         
  359.                 CASE ParamDialog.MidText.GetID()
  360.                     DIM UserText AS STRING    ' The text entered by the user.
  361.                     UserText$ = ParamDialog.MidText.GetText()
  362.                     IF LEN(UserText$) = 0 THEN
  363.                         ' The user has not entered anything
  364.                         ' yet.  Ignore it.
  365.                     ELSEIF NOT IsInteger(UserText$) THEN
  366.                         MsgReturn& = MESSAGEBOX( \\
  367.                            "Please enter a number.", \\
  368.                            TITLE_ERRORBOX$, \\
  369.                            MB_OK_ONLY& )
  370.                         ParamDialog.MidText.SetText CSTR(Midpoint%)
  371.                     ELSEIF (CINT(UserText$) > 99) OR \\
  372.                            (CINT(UserText$) < 1) THEN
  373.                         MsgReturn& = MESSAGEBOX( \\
  374.                            "Sorry.  You have entered an invalid " + \\
  375.                            "value for the mid-point." + NL2 + \\
  376.                            "Allowable values range from 1 to 99." + \\
  377.                            NL2 + "Please try again.", \\
  378.                            TITLE_ERRORBOX$, \\
  379.                            MB_OK_ONLY& )
  380.                         ParamDialog.MidText.SetText CSTR(Midpoint%)
  381.                     ELSE
  382.                         Midpoint% = CINT(UserText$)
  383.                         ParamDialog.MidSlider.SetValue Midpoint%
  384.                     ENDIF
  385.                     
  386.                 CASE ParamDialog.MidSlider.GetID()
  387.                     Midpoint% = ParamDialog.MidSlider.GetValue()
  388.                     ParamDialog.MidText.SetText \\
  389.                          CSTR(ParamDialog.MidSlider.GetValue())
  390.     
  391.             END SELECT
  392.     
  393.     END SELECT
  394.  
  395. END SUB
  396.  
  397. '********************************************************************
  398. '
  399. '    Name:    UpdateDisabledControls (dialog subroutine)
  400. '
  401. '    Action:    Updates which of the dialog controls are enabled
  402. '              or disabled based on the value of FillType.
  403. '
  404. '    Params:    None.  As this is intended to be a dialog function,
  405. '              it makes use of the variable global to ParamDialog:
  406. '              FillType.
  407. '
  408. '    Returns:    None.
  409. '
  410. '    Comments: None.
  411. '
  412. '********************************************************************
  413. SUB UpdateDisabledControls()
  414.  
  415.     ' Certain dialog items may need to be
  416.     ' enabled/disabled depending on the 
  417.     ' fill type.
  418.     SELECT CASE FillType%
  419.         CASE FILL_TYPE_LINEAR%
  420.             ParamDialog.HorizSpin.Enable FALSE
  421.             ParamDialog.HorizText.Enable FALSE
  422.             ParamDialog.HorizPercentText.Enable FALSE
  423.             ParamDialog.VertSpin.Enable FALSE
  424.             ParamDialog.VertText.Enable FALSE
  425.             ParamDialog.VertPercentText.Enable FALSE
  426.             ParamDialog.AngleSpin.Enable TRUE
  427.             ParamDialog.AngleText.Enable TRUE
  428.             ParamDialog.PadSpin.Enable TRUE
  429.             ParamDialog.PadText.Enable TRUE
  430.             ParamDialog.PadPercentText.Enable TRUE
  431.             
  432.         CASE FILL_TYPE_RADIAL%
  433.             ParamDialog.HorizSpin.Enable TRUE
  434.             ParamDialog.HorizText.Enable TRUE
  435.             ParamDialog.HorizPercentText.Enable TRUE
  436.             ParamDialog.VertSpin.Enable TRUE
  437.             ParamDialog.VertText.Enable TRUE
  438.             ParamDialog.VertPercentText.Enable TRUE
  439.             ParamDialog.AngleSpin.Enable FALSE
  440.             ParamDialog.AngleText.Enable FALSE
  441.             ParamDialog.PadSpin.Enable TRUE
  442.             ParamDialog.PadText.Enable TRUE
  443.             ParamDialog.PadPercentText.Enable TRUE
  444.             
  445.         CASE FILL_TYPE_CONICAL%
  446.             ParamDialog.HorizSpin.Enable TRUE
  447.             ParamDialog.HorizText.Enable TRUE
  448.             ParamDialog.HorizPercentText.Enable TRUE
  449.             ParamDialog.VertSpin.Enable TRUE
  450.             ParamDialog.VertText.Enable TRUE
  451.             ParamDialog.VertPercentText.Enable TRUE
  452.             ParamDialog.AngleSpin.Enable TRUE
  453.             ParamDialog.AngleText.Enable TRUE
  454.             ParamDialog.PadSpin.Enable FALSE
  455.             ParamDialog.PadText.Enable FALSE
  456.             ParamDialog.PadPercentText.Enable FALSE
  457.  
  458.         CASE FILL_TYPE_SQUARE%
  459.             ParamDialog.HorizSpin.Enable TRUE
  460.             ParamDialog.HorizText.Enable TRUE
  461.             ParamDialog.HorizPercentText.Enable TRUE
  462.             ParamDialog.VertSpin.Enable TRUE
  463.             ParamDialog.VertText.Enable TRUE
  464.             ParamDialog.VertPercentText.Enable TRUE
  465.             ParamDialog.AngleSpin.Enable TRUE
  466.             ParamDialog.AngleText.Enable TRUE
  467.             ParamDialog.PadSpin.Enable TRUE
  468.             ParamDialog.PadText.Enable TRUE
  469.             ParamDialog.PadPercentText.Enable TRUE
  470.     END SELECT
  471.  
  472. END SUB
  473.  
  474. '********************************************************************
  475. '
  476. '    Name:    UpdateBlendButtons (dialog subroutine)
  477. '
  478. '    Action:    Updates which of the blend buttons appears
  479. '              to be pressed down and which appears to be
  480. '              pressed up based on the value of ColorBlendType.
  481. '
  482. '    Params:    None.  As this is intended to be a dialog function,
  483. '              it makes use of the variable global to ParamDialog:
  484. '              ColorBlendType.
  485. '
  486. '    Returns:    None.
  487. '
  488. '    Comments: None.
  489. '
  490. '********************************************************************
  491. SUB UpdateBlendButtons()
  492.  
  493.     ' Normally, all buttons should appear to be up.
  494.     Bitmaps$(1) = CurDir$ + COLOR_DIRECT_UNPRESSED_BITMAP$
  495.     Bitmaps$(2) = CurDir$ + COLOR_DIRECT_PRESSED_BITMAP$
  496.     Bitmaps$(3) = CurDir$ + COLOR_DIRECT_UNPRESSED_BITMAP$
  497.     ParamDialog.DirectButton.SetArray Bitmaps$
  498.     ParamDialog.DirectButton.SetStyle STYLE_IMAGE_CENTERED
  499.     Bitmaps$(1) = CurDir$ + COLOR_CCW_UNPRESSED_BITMAP$
  500.     Bitmaps$(2) = CurDir$ + COLOR_CCW_PRESSED_BITMAP$
  501.     Bitmaps$(3) = CurDir$ + COLOR_CCW_UNPRESSED_BITMAP$
  502.     ParamDialog.CCWButton.SetArray Bitmaps$
  503.     ParamDialog.CCWButton.SetStyle STYLE_IMAGE_CENTERED
  504.     Bitmaps$(1) = CurDir$ + COLOR_CW_UNPRESSED_BITMAP$
  505.     Bitmaps$(2) = CurDir$ + COLOR_CW_PRESSED_BITMAP$
  506.     Bitmaps$(3) = CurDir$ + COLOR_CW_UNPRESSED_BITMAP$
  507.     ParamDialog.CWButton.SetArray Bitmaps$
  508.     ParamDialog.CWButton.SetStyle STYLE_IMAGE_CENTERED
  509.  
  510.     ' Make the appropriate button look like it's pressed down.
  511.     SELECT CASE ColorBlendType%
  512.     
  513.         CASE DRAW_BLEND_DIRECT%
  514.             Bitmaps$(1) = CurDir$ + COLOR_DIRECT_PRESSED_BITMAP$
  515.             Bitmaps$(2) = CurDir$ + COLOR_DIRECT_UNPRESSED_BITMAP$
  516.             Bitmaps$(3) = CurDir$ + COLOR_DIRECT_PRESSED_BITMAP$
  517.             ParamDialog.DirectButton.SetArray Bitmaps$
  518.             
  519.         CASE DRAW_BLEND_RAINBOW_CCW%
  520.             Bitmaps$(1) = CurDir$ + COLOR_CCW_PRESSED_BITMAP$
  521.             Bitmaps$(2) = CurDir$ + COLOR_CCW_UNPRESSED_BITMAP$
  522.             Bitmaps$(3) = CurDir$ + COLOR_CCW_PRESSED_BITMAP$
  523.             ParamDialog.CCWButton.SetArray Bitmaps$
  524.             
  525.         CASE DRAW_BLEND_RAINBOW_CW%
  526.             Bitmaps$(1) = CurDir$ + COLOR_CW_PRESSED_BITMAP$
  527.             Bitmaps$(2) = CurDir$ + COLOR_CW_UNPRESSED_BITMAP$
  528.             Bitmaps$(3) = CurDir$ + COLOR_CW_PRESSED_BITMAP$
  529.             ParamDialog.CWButton.SetArray Bitmaps$
  530.             
  531.     END SELECT    
  532.  
  533. END SUB
  534.  
  535. '/////CHOICE DIALOG///////////////////////////////////////////////
  536.  
  537. ' What this dialog should return if the user wants to try again.
  538. GLOBAL CONST DIALOG_RETURN_TRY_AGAIN% = 3
  539.  
  540. BEGIN DIALOG OBJECT ChoiceDialog 299, 84, "Filled Outline Maker", SUB ChoiceDialogEventHandler
  541.     TEXT  11, 24, 281, 44, .Text1, "If you are satisfied with the effect, you can make it permanent by pressing the OK button.  You may also cancel the effect by pressing the Cancel button.  If you would like to go back and alter your previous choices, press the Try Again button."
  542.     TEXT  11, 8, 172, 11, .Text2, "The filled outline has been applied."
  543.     PUSHBUTTON  47, 60, 59, 13, .OkButton, "OK"
  544.     PUSHBUTTON  116, 60, 59, 13, .CancelButton, "Cancel"
  545.     PUSHBUTTON  186, 60, 59, 13, .TryAgainButton, "Try Again"
  546. END DIALOG
  547.  
  548. SUB ChoiceDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  549.  
  550.     SELECT CASE Event%
  551.         CASE EVENT_MOUSE_CLICK&
  552.             
  553.             SELECT CASE ControlID%
  554.                 CASE ChoiceDialog.OkButton.GetID()
  555.                     ChoiceDialog.CloseDialog DIALOG_RETURN_OK%
  556.  
  557.                 CASE ChoiceDialog.CancelButton.GetID()
  558.                     ChoiceDialog.CloseDialog DIALOG_RETURN_CANCEL%
  559.  
  560.                 CASE ChoiceDialog.TryAgainButton.GetID()
  561.                     ChoiceDialog.CloseDialog DIALOG_RETURN_TRY_AGAIN%
  562.     
  563.             END SELECT
  564.  
  565.     END SELECT
  566.  
  567. END SUB
  568.  
  569. '********************************************************************
  570. ' MAIN
  571. '
  572. '
  573. '********************************************************************
  574.  
  575. '/////LOCAL VARIABLES////////////////////////////////////////////////
  576. DIM MessageText AS STRING    ' Text to use in a MESSAGEBOX.
  577. DIM GenReturn AS LONG        ' The return value of various routines.
  578. DIM Valid AS BOOLEAN        ' Whether the user's input was valid.
  579. DIM IDOriginal AS LONG        ' The CDRStaticID of the user's
  580.                         ' originally selected object.
  581. DIM IDFirst AS LONG            ' The CDRStaticID of the duplicate.
  582. DIM IDMiddle AS LONG          ' The CDRStaticID of the duplicate's non-contoured part.                        
  583. DIM IDContour AS LONG        ' The CDRStaticID of the contoured object.
  584. DIM FillParam AS INTEGER        ' The first parameter of ApplyFountainFill.
  585. DIM XPos AS LONG            ' The x-coordinate of the original selection.
  586. DIM YPos AS LONG            ' The y-coordinate of the original selection.
  587.  
  588. ' Check to see if CorelDRAW's automation object is available.
  589. ON ERROR GOTO ErrorNoDrawHandler
  590. WITHOBJECT OBJECT_DRAW
  591.  
  592. ' Install the general error handler.
  593. ON ERROR GOTO MainErrorHandler
  594.  
  595. ' Retrieve the directory where the script was started.
  596. CurDir$ = GETCURRFOLDER()
  597. IF MID(CurDir$, LEN(CurDir$), 1) = "\" THEN
  598.     CurDir$ = LEFT(CurDir$, LEN(CurDir$) - 1)
  599. ENDIF
  600.  
  601. ' Check to see whether anything is selected in DRAW.
  602. IF NOT CheckForSelection() THEN
  603.     MessageText$ = "Please select an object in CorelDRAW " + \\
  604.                     "before running the Filled Outline Maker." + \\
  605.                     NL2 + "The filled outline effect will be applied " + \\
  606.                     "to the objects you select."
  607.     GenReturn& = MESSAGEBOX(MessageText$, TITLE_INFOBOX$, \\
  608.                             MB_OK_ONLY& OR MB_INFORMATION_ICON&)
  609.     STOP
  610. ENDIF
  611.  
  612. ' Check to see if we are allowed to apply contour to the object.
  613. IF NOT CheckForContour() THEN
  614.     MessageText$ = "Cannot add a filled outline to the currently " + \\
  615.                    "selected object." + NL2 + "Filled outlines " + \\
  616.                    "can only be applied to objects that can have " + \\
  617.                    "the Contour effect applied to them." + NL2 + \\
  618.                    "Please verify that the object you select can " + \\
  619.                    "be contoured and try again."
  620.     GenReturn& = MESSAGEBOX(MessageText$, TITLE_INFOBOX$, \\
  621.                             MB_OK_ONLY& OR MB_INFORMATION_ICON&)
  622.     STOP
  623. ENDIF
  624.  
  625. ' Show the dialog.
  626. Start:
  627. GenReturn& = DIALOG(ParamDialog)
  628. IF (GenReturn& = DIALOG_RETURN_OK%) THEN
  629.  
  630.     ' Retrieve the CDRStaticID of the selected object so we
  631.     ' can group it later.  Also get the location.
  632.     IDOriginal& = .GetObjectsCDRStaticID()
  633.     .GetPosition XPos&, YPos&    
  634.     
  635.     ' Make a duplicate that we can work with and that will be
  636.     ' safe for undo purposes.
  637.     .DuplicateObject
  638.     IDFirst& = .GetObjectsCDRStaticID()
  639.     .SetPosition XPos&, YPos&
  640.  
  641.     ' Remove the existing outline.
  642.     .ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, FALSE, 0, 0, FALSE
  643.     
  644.     ' Apply an appropriately sized outside contour to a duplicate.
  645.     .DuplicateObject
  646.     IDMiddle& = .GetObjectsCDRStaticID()
  647.     .SetPosition XPos&, YPos&    
  648.     .OrderBackOne        
  649.     .ApplyContour 2, Width% * ConversionFactors!(ChosenUnit%), 1
  650.     
  651.     ' Separate the contoured object, so we can apply a fountain
  652.     ' fill to the contour part.
  653.     .Separate
  654.     .Ungroup    
  655.     .Trim
  656.     
  657.     ' Here we delete all but the outer contoured part.
  658.     '.SelectNextObject TRUE
  659.     .Ungroup
  660.     IDContour& = .GetObjectsCDRStaticID()
  661.     .SelectObjectOfCDRStaticID IDMiddle&
  662.     .DeleteObject
  663.     
  664.     ' Apply a fountain fill.
  665.     .SelectObjectOfCDRStaticID IDContour&
  666.     SELECT CASE FillType%
  667.         CASE FILL_TYPE_LINEAR%
  668.             FillParam% = DRAW_FOUNTAIN_LINEAR%
  669.             HorizOffset% = 0
  670.             VertOffset% = 0
  671.         CASE FILL_TYPE_RADIAL%
  672.             FillParam% = DRAW_FOUNTAIN_RADIAL%
  673.             Angle% = 0
  674.         CASE FILL_TYPE_CONICAL%
  675.             FillParam% = DRAW_FOUNTAIN_CONICAL%
  676.             Pad% = 0
  677.         CASE FILL_TYPE_SQUARE%
  678.             FillParam% = DRAW_FOUNTAIN_SQUARE%
  679.     END SELECT
  680.     
  681.     ' Set the start and end colors.
  682.     .StoreColor DRAW_COLORMODEL_RGB&, FromRed%, FromGreen%, FromBlue%, 0, 0, 0, 100, 0
  683.     .StoreColor DRAW_COLORMODEL_RGB&, ToRed%, ToGreen%, ToBlue%, 0, 0, 0, 100, 100
  684.     .ApplyFountainFill FillParam%, \\
  685.                      HorizOffset%, \\
  686.                      VertOffset%, \\
  687.                      Angle% * 10, \\
  688.                      Steps%, \\
  689.                      Pad%, \\
  690.                      ColorBlendType%, \\
  691.                      Midpoint
  692.  
  693.     ' Group the newly coloured 'outline' with the original selection.
  694.     .AppendObjectToSelection IDFirst&
  695.     .Group
  696.  
  697.     ' Give the user the chance to remove the fill if it is not
  698.     ' satisfactory.
  699.     GenReturn& = DIALOG(ChoiceDialog)
  700.     IF GenReturn& = DIALOG_RETURN_OK% THEN
  701.         ' The user is satisfied with the fill.  Delete the original.
  702.         .SelectObjectOfCDRStaticID IDOriginal&
  703.         .DeleteObject
  704.         STOP
  705.     ENDIF
  706.  
  707.     ' Otherwise, we should remove the filled object since it 
  708.     ' is not what the user wanted.
  709.     .DeleteObject
  710.     .SelectObjectOfCDRStaticID IDOriginal&
  711.     IF GenReturn& = DIALOG_RETURN_TRY_AGAIN% THEN
  712.         GOTO Start
  713.     ENDIF
  714.  
  715. ENDIF
  716.  
  717. VeryEnd:
  718.     STOP
  719.  
  720. MainErrorHandler:
  721.     IF ERRNUM > 0 THEN
  722.         ERRNUM = 0
  723.         MessageText$ = "A general error occurred during "
  724.         MessageText$ = MessageText$ + "processing." + NL2
  725.         MessageText$ = MessageText$ + "You may wish to try again."
  726.         GenReturn& = MESSAGEBOX(MessageText$, TITLE_ERRORBOX$, \\
  727.                                 MB_OK_ONLY& OR MB_EXCLAMATION_ICON&)
  728.     ENDIF
  729.     RESUME AT VeryEnd
  730.     
  731. ErrorNoDrawHandler:
  732.     ' Failed to create the automation object.
  733.     ERRNUM = 0
  734.     GenReturn = MESSAGEBOX( "Could not find CorelDRAW."+NL2+\\
  735.                         "If this error persists, you "+ \\
  736.                         "may need to re-install "+      \\
  737.                         "CorelDRAW.",                 \\
  738.                            TITLE_ERRORBOX,                 \\
  739.                         MB_OK_ONLY& OR MB_STOP_ICON& )
  740.     RESUME AT VeryEnd
  741.     STOP
  742.  
  743. '********************************************************************
  744. '
  745. '    Name:    IsInteger (function)
  746. '
  747. '    Action:    Determines if a given string contains an integer.
  748. '
  749. '    Params:    InString -- The string to test for integer-ness.
  750. '
  751. '    Returns:    TRUE if InString contains an integer (and would
  752. '              not cause an overflow if converted to an integer),
  753. '              and FALSE otherwise.
  754. '
  755. '    Comments: None.
  756. '
  757. '********************************************************************
  758. FUNCTION IsInteger( InString AS STRING ) AS BOOLEAN
  759.  
  760.     DIM ReturnVal AS BOOLEAN        ' The value to be returned.
  761.     DIM Converted AS INTEGER        ' The integer representation of
  762.                             ' InString.
  763.  
  764.     ' Set up an error handler to trap conversion errors.
  765.     ON ERROR GOTO II_ConversionError
  766.  
  767.     ' Attempt a conversion.
  768.     Converted% = CINT( InString )
  769.     ReturnVal = TRUE
  770.  
  771.     ExitPoint:
  772.         IsInteger = ReturnVal
  773.         EXIT FUNCTION
  774.  
  775. II_ConversionError:
  776.     ERRNUM = 0
  777.     ReturnVal = FALSE
  778.     RESUME AT ExitPoint
  779.  
  780. END FUNCTION
  781.  
  782. '********************************************************************
  783. '
  784. '    Name:    CheckForSelection (function)
  785. '
  786. '    Action:    Checks whether an object is currently selected
  787. '            in CorelDRAW.
  788. '
  789. '    Params:    None.
  790. '
  791. '    Returns:    TRUE if an object is currently selected;  FALSE
  792. '              otherwise.
  793. '
  794. '    Comments:    Never raises any errors. 
  795. '
  796. '********************************************************************
  797. FUNCTION CheckForSelection AS BOOLEAN
  798.  
  799.     DIM ObjType AS LONG     ' The currently selected object type.
  800.  
  801.     ON ERROR GOTO CFSNothingError
  802.     
  803.     ObjType& = .GetObjectType()
  804.     IF (ObjType& <= DRAW_OBJECT_TYPE_RESERVED) THEN
  805.         CheckForSelection = FALSE
  806.     ELSE
  807.         CheckForSelection = TRUE
  808.     ENDIF
  809.  
  810.  
  811.     ExitPart:
  812.         EXIT FUNCTION
  813.  
  814. CFSNothingError:
  815.     ERRNUM = 0
  816.     CheckForSelection = FALSE
  817.     RESUME AT ExitPart
  818.  
  819. END FUNCTION
  820.  
  821. '********************************************************************
  822. '
  823. '    Name:    CheckForContour (function)
  824. '
  825. '    Action:    Checks whether the currently selected object in
  826. '              CorelDRAW can have the contour effect applied to
  827. '              it.
  828. '
  829. '    Params:    None.
  830. '
  831. '    Returns:    FALSE if there is nothing selected in CorelDRAW or
  832. '              if there is something selected but it cannot have
  833. '              the contour effect applied to it.  TRUE otherwise.
  834. '
  835. '    Comments:    Never raises any errors. 
  836. '
  837. '********************************************************************
  838. FUNCTION CheckForContour AS BOOLEAN
  839.  
  840.     ON ERROR GOTO CFCNotContourableError
  841.  
  842.     ' We're just doing a simple contour, so omit most of the
  843.     ' optional parameters.
  844.     .ApplyContour 2, 25400, 1
  845.     
  846.     ' Undo what we just did.
  847.     .Undo
  848.     
  849.     ' We've been successful, so return TRUE.
  850.     CheckForContour = TRUE    
  851.     
  852.     ExitPart:
  853.         EXIT FUNCTION
  854.  
  855. CFCNotContourableError:
  856.     ERRNUM = 0
  857.     CheckForContour = FALSE
  858.     RESUME AT ExitPart
  859.  
  860. END FUNCTION
  861.  
  862. END WITHOBJECT
  863.  
  864.