home *** CD-ROM | disk | FTP | other *** search
/ CorelDRAW! 10 / cd10_pgrm.iso / Corel / Graphics10 / Draw / Scripts / Misc / accelcon.csc < prev    next >
Encoding:
Text File  |  1999-03-22  |  64.5 KB  |  1,703 lines
  1. REM Accelerated Contour Tool
  2. REM Creates a contour effect with varying offsets.
  3.  
  4. '********************************************************************
  5. ' 
  6. '   Script:    AccelCon.csc
  7. ' 
  8. '   Copyright 1996 Corel Corporation.  All rights reserved.
  9. ' 
  10. '   Description: CorelDRAW script to create the effect
  11. '                of having "acceleration" with contours.
  12. '                Each contour line gets farther apart/closer
  13. '                together.
  14. ' 
  15. '********************************************************************
  16.  
  17. #addfol  "..\..\..\scripts"
  18. #include "ScpConst.csi"
  19. #include "DrwConst.csi"
  20.  
  21. '/////FUNCTION & SUBROUTINE DECLARATIONS/////////////////////////////
  22. DECLARE SUB ActivateTab( TabNum AS INTEGER, From AS INTEGER )
  23. DECLARE SUB UpdateBlendButtons()
  24. DECLARE SUB UpdateTabTops()
  25. DECLARE SUB ApplyContours()
  26. DECLARE FUNCTION ValidateOffset() AS BOOLEAN
  27. DECLARE FUNCTION Min( Val1 AS INTEGER, Val2 AS INTEGER ) AS INTEGER
  28. DECLARE SUB MakeHSB( BYVAL InRed AS LONG,   \\
  29.                  BYVAL InGreen AS LONG, \\
  30.                  BYVAL InBlue AS LONG,  \\
  31.                  BYREF OutHue AS LONG,  \\
  32.                  BYREF OutSat AS LONG,  \\
  33.                  BYREF OutBri AS LONG )
  34. DECLARE FUNCTION Mod256( InNum AS LONG ) AS LONG
  35. DECLARE FUNCTION Mod360( InNum AS LONG ) AS LONG
  36. DECLARE SUB UndoLastApply( RequireSelection AS BOOLEAN )
  37. DECLARE FUNCTION CheckForSelection() AS BOOLEAN
  38. DECLARE FUNCTION CheckForContour() AS BOOLEAN
  39.  
  40. '/////GLOBAL VARIABLES & CONSTANTS///////////////////////////////////
  41. GLOBAL CONST TITLE_ERRORBOX$        = "Accelerated Contour Tool Error"
  42. GLOBAL CONST TITLE_INFOBOX$        = "Accelerated Contour Tool Information"
  43.  
  44. ' These are single and double newlines.
  45. #define NL CHR(10) + CHR(13)
  46. #define NL2 CHR(10) + CHR(13) + CHR(10) + CHR(13)
  47.  
  48. ' The graphics used for the tabs.
  49. GLOBAL CONST TAB1_BITMAP$ = "\ConDU.bmp"
  50. GLOBAL CONST TAB2_BITMAP$ = "\ConCU.bmp"
  51. GLOBAL CONST TAB3_BITMAP$ = "\ConAU.bmp"
  52.  
  53. ' The graphics used for the color blend type buttons.
  54. GLOBAL CONST COLOR_DIRECT_UNPRESSED_BITMAP$ = "\ColDirec.bmp"
  55. GLOBAL CONST COLOR_DIRECT_PRESSED_BITMAP$ = "\ColDireP.bmp"
  56. GLOBAL CONST COLOR_CCW_UNPRESSED_BITMAP$ = "\ColCCW.bmp"
  57. GLOBAL CONST COLOR_CCW_PRESSED_BITMAP$ = "\ColCCWP.bmp"
  58. GLOBAL CONST COLOR_CW_UNPRESSED_BITMAP$ = "\ColCW.bmp"
  59. GLOBAL CONST COLOR_CW_PRESSED_BITMAP$ = "\ColCWP.bmp"
  60.  
  61. ' Keys for searching the registry.
  62. GLOBAL CONST REG_CORELDRAW_PATH$ = "SOFTWARE\Corel\CorelDRAW\9.0"
  63. GLOBAL CONST REG_CORELDRAW_MAIN_DIR_KEY$ = "Destination"
  64.  
  65. '/////GLOBAL VARIABLES////////////////////////////////////////////////
  66. GLOBAL IDLastFullContour& AS LONG    ' The last contour created.
  67. GLOBAL IDOriginal& AS LONG        ' The original object selected by
  68.                             ' the user.
  69. GLOBAL CurDir$ AS STRING            ' The directory where the script
  70.                             ' was started from.
  71.  
  72. '/////CONNECT TO THE DRAW OBJECT/////////////////////////////////////
  73. ON ERROR RESUME NEXT
  74. ERRNUM = 0
  75. WITHOBJECT OBJECT_DRAW
  76. IF ERRNUM <> 0 THEN
  77.     ERRNUM = 0
  78.     DIM NoDrawReturn AS LONG    ' The code returned by MESSAGEBOX.
  79.     NoDrawReturn& = MESSAGEBOX("Cannot not find CorelDRAW." + NL2 + \\
  80.                                "If this error persists, you may need" + \\
  81.                                " to re-install CorelDRAW.", \\ 
  82.                           TITLE_ERRORBOX$, \\
  83.                           MB_STOP_ICON)
  84.     STOP
  85. ENDIF
  86. ON ERROR EXIT
  87.  
  88. '/////PARAMETERS DIALOG//////////////////////////////////////////////
  89.  
  90. ' Retrieve the directory where the script was started.
  91. CurDir$ = GETCURRFOLDER()
  92. IF MID(CurDir$, LEN(CurDir$), 1) = "\" THEN
  93.     CurDir$ = LEFT(CurDir$, LEN(CurDir$) - 1)
  94. ENDIF
  95.  
  96. ' Images for tab 1.
  97. GLOBAL Tab1Bitmaps(4) AS STRING
  98. Tab1Bitmaps(1) = CurDir$ + TAB1_BITMAP$
  99. Tab1Bitmaps(2) = CurDir$ + TAB1_BITMAP$
  100. Tab1Bitmaps(3) = CurDir$ + TAB1_BITMAP$
  101. Tab1Bitmaps(4) = CurDir$ + TAB1_BITMAP$
  102.  
  103. ' Images for tab 2.
  104. GLOBAL Tab2Bitmaps(4) AS STRING
  105. Tab2Bitmaps(1) = CurDir$ + TAB2_BITMAP$
  106. Tab2Bitmaps(2) = CurDir$ + TAB2_BITMAP$
  107. Tab2Bitmaps(3) = CurDir$ + TAB2_BITMAP$
  108. Tab2Bitmaps(4) = CurDir$ + TAB2_BITMAP$
  109.  
  110. ' Images for tab 3.
  111. GLOBAL Tab3Bitmaps(4) AS STRING
  112. Tab3Bitmaps(1) = CurDir$ + TAB3_BITMAP$
  113. Tab3Bitmaps(2) = CurDir$ + TAB3_BITMAP$
  114. Tab3Bitmaps(3) = CurDir$ + TAB3_BITMAP$
  115. Tab3Bitmaps(4) = CurDir$ + TAB3_BITMAP$
  116.  
  117. ' The array of possible units the user may select from.
  118. GLOBAL UnitsArray(10) AS STRING
  119. UnitsArray(1) = "1 in."
  120. UnitsArray(2) = "1/36 in."
  121. UnitsArray(3) = "0.1 in."
  122. UnitsArray(4) = "0.01 in."
  123. UnitsArray(5) = "0.001 in."
  124. UnitsArray(6) = "1 cm."
  125. UnitsArray(7) = "0.1 cm."
  126. UnitsArray(8) = "0.01 cm."
  127. UnitsArray(9) = "0.001 cm."
  128. UnitsArray(10) = "1 pt."
  129.  
  130. ' Multiplicative conversion factors to convert from the units to
  131. ' tenths of a micron.
  132. GLOBAL ConversionFactors(10) AS SINGLE
  133. ConversionFactors(1) = 1 * LENGTHCONVERT(LC_INCHES, LC_TENTHS_OFA_MICRON, 1)
  134. ConversionFactors(2) = (1/36) * LENGTHCONVERT(LC_INCHES, LC_TENTHS_OFA_MICRON, 1)
  135. ConversionFactors(3) = 0.1 * LENGTHCONVERT(LC_INCHES, LC_TENTHS_OFA_MICRON, 1)
  136. ConversionFactors(4) = 0.01 * LENGTHCONVERT(LC_INCHES, LC_TENTHS_OFA_MICRON, 1)
  137. ConversionFactors(5) = 0.001 * LENGTHCONVERT(LC_INCHES, LC_TENTHS_OFA_MICRON, 1)
  138. ConversionFactors(6) = 1 * LENGTHCONVERT(LC_CENTIMETERS, LC_TENTHS_OFA_MICRON, 1)
  139. ConversionFactors(7) = 0.1 * LENGTHCONVERT(LC_CENTIMETERS, LC_TENTHS_OFA_MICRON, 1)
  140. ConversionFactors(8) = 0.01 * LENGTHCONVERT(LC_CENTIMETERS, LC_TENTHS_OFA_MICRON, 1)
  141. ConversionFactors(9) = 0.001 * LENGTHCONVERT(LC_CENTIMETERS, LC_TENTHS_OFA_MICRON, 1)
  142. ConversionFactors(10) = 1 * LENGTHCONVERT(LC_POINTS, LC_TENTHS_OFA_MICRON, 1)
  143.  
  144. ' Ways to specify the offset.
  145. GLOBAL CONST AC_OFFSET_PER_STEP%    = 2
  146. GLOBAL CONST AC_OFFSET_TOTAL%        = 1
  147.  
  148. ' Variables needed for this dialog.
  149. GLOBAL CurTab AS INTEGER            ' Which tab is selected (1-3).
  150. GLOBAL ColorBlendType AS INTEGER     ' Which color blend type is currently selected.
  151. GLOBAL Offset AS INTEGER            ' The size of the offset.
  152. GLOBAL ChosenUnit AS INTEGER        ' Which unit the user has chosen for the offset.
  153. GLOBAL Steps AS INTEGER            ' How many steps to use.
  154. GLOBAL Direction AS INTEGER        ' The direction to apply the contour.
  155. GLOBAL OffsetType AS INTEGER        ' How is the offset specified; one of AC_OFFSET_*.
  156. GLOBAL OffsetAccel AS INTEGER        ' The speed of the offset acceleration.
  157. GLOBAL FillAccel AS INTEGER        ' The speed of the fill acceleration.
  158. GLOBAL OriginalFillType AS LONG    ' The fill type of the originally selected object.
  159.  
  160. ' The color variables.
  161. GLOBAL ToOutlineRed AS LONG
  162. GLOBAL ToOutlineGreen AS LONG
  163. GLOBAL ToOutlineBlue AS LONG
  164. GLOBAL ToOutlineHue AS LONG        ' We duplicate the RGB values as HSB here
  165. GLOBAL ToOutlineSat AS LONG        ' instead of in the contour subroutine 
  166. GLOBAL ToOutlineBri AS LONG        ' in order to move some calculations out
  167. GLOBAL ToFill1Red AS LONG        ' and improve efficiency.
  168. GLOBAL ToFill1Green AS LONG
  169. GLOBAL ToFill1Blue AS LONG
  170. GLOBAL ToFill1Hue AS LONG
  171. GLOBAL ToFill1Sat AS LONG
  172. GLOBAL ToFill1Bri AS LONG
  173. GLOBAL ToFill2Red AS LONG
  174. GLOBAL ToFill2Green AS LONG
  175. GLOBAL ToFill2Blue AS LONG
  176. GLOBAL ToFill2Hue AS LONG
  177. GLOBAL ToFill2Sat AS LONG
  178. GLOBAL ToFill2Bri AS LONG
  179. GLOBAL FromFill1Red AS LONG        ' The original fill color's red component.
  180. GLOBAL FromFill1Green AS LONG        ' The original fill color's green component.
  181. GLOBAL FromFill1Blue AS LONG        ' The original fill color's blue component.
  182. GLOBAL FromFill1Hue AS LONG
  183. GLOBAL FromFill1Sat AS LONG
  184. GLOBAL FromFill1Bri AS LONG
  185. GLOBAL FromFill2Red AS LONG        ' For fountain fills, there is a second red component.
  186. GLOBAL FromFill2Green AS LONG        ' For fountain fills, there is a second green component.
  187. GLOBAL FromFill2Blue AS LONG        ' For fountain fills, there is a second blue component.
  188. GLOBAL FromFill2Hue AS LONG
  189. GLOBAL FromFill2Sat AS LONG
  190. GLOBAL FromFill2Bri AS LONG
  191. GLOBAL FromOutlineRed AS LONG        ' The original outline color's red component.
  192. GLOBAL FromOutlineGreen AS LONG    ' The original outline color's green component.
  193. GLOBAL FromOutlineBlue AS LONG    ' The original outline color's blue component.
  194. GLOBAL FromOutlineHue AS LONG
  195. GLOBAL FromOutlineSat AS LONG
  196. GLOBAL FromOutlineBri AS LONG
  197.  
  198. ' Set up default values.
  199. CurTab% = 1
  200. ColorBlendType% = DRAW_BLEND_DIRECT%
  201. Offset% = 2
  202. ChosenUnit% = 3
  203. Steps% = 3
  204. OffsetType% = AC_OFFSET_PER_STEP%
  205. Direction% = DRAW_CONTOUR_OUTSIDE&
  206. ToOutlineRed& = 0
  207. ToOutlineGreen& = 0
  208. ToOutlineBlue& = 0
  209. ToOutlineHue& = 0
  210. ToOutlineSat& = 0
  211. ToOutlineBri& = 0
  212. ToFill1Red& = 0
  213. ToFill1Green& = 0
  214. ToFill1Blue& = 255
  215. ToFill1Hue& = 240
  216. ToFill1Sat& = 255
  217. ToFill1Bri& = 255
  218. ToFill2Red& = 255
  219. ToFill2Green& = 0
  220. ToFill2Blue& = 0
  221. ToFill2Hue& = 0
  222. ToFill2Sat& = 255
  223. ToFill2Bri& = 255
  224. OffsetAccel% = 0
  225. FillAccel% = 0
  226. OriginalFillType& = DRAW_FILL_UNIFORM& ' We are guessing that the first
  227.                                 ' contour will be applied to an
  228.                                 ' object with a uniform fill.
  229.                                 ' If this isn't true, the user will
  230.                                 ' be warned.
  231.  
  232. BEGIN DIALOG OBJECT ParamDialog 118, 185, "Accelerated Contour", SUB ParamDialogEventHandler
  233.     ' Main controls.
  234.     BITMAPBUTTON  5, 4, 21, 17, .Tab1Button
  235.     BITMAPBUTTON  26, 4, 21, 17, .Tab2Button
  236.     BITMAPBUTTON  47, 4, 21, 17, .Tab3Button
  237.     PUSHBUTTON  3, 21, 111, 145, .MainTabBackground, ""
  238.     TEXT  48, 20, 19, 4, .Tab3Cover, ""
  239.     TEXT  6, 20, 19, 4, .Tab1Cover, ""
  240.     TEXT  27, 20, 19, 4, .Tab2Cover, ""
  241.     PUSHBUTTON  3, 169, 54, 13, .UndoButton, "Undo"
  242.     PUSHBUTTON  60, 169, 54, 13, .ApplyButton, "Apply"
  243.     ' First tab controls.
  244.     GROUPBOX  8, 27, 98, 52, .DirectionGroupBox, "Direction"
  245.     OPTIONGROUP .TypeGroup
  246.         OPTIONBUTTON  16, 106, 64, 11, .TotalOption, "Total offset"
  247.         OPTIONBUTTON  16, 94, 64, 11, .PerStepOption, "Per step"
  248.     OPTIONGROUP .DirectionGroup
  249.         OPTIONBUTTON  16, 37, 64, 11, .CenterOption, "To center"
  250.         OPTIONBUTTON  16, 49, 64, 11, .InsideOption, "Inside"
  251.         OPTIONBUTTON  16, 61, 64, 11, .OutsideOption, "Outside"
  252.     SPINCONTROL  33, 128, 24, 13, .OffsetSpin
  253.     TEXT  10, 148, 24, 11, .StepsText, "Steps:"
  254.     DDLISTBOX  63, 128, 45, 100, .UnitsListBox
  255.     TEXT  58, 130, 5, 9, .XText, "x"
  256.     SPINCONTROL  33, 146, 75, 13, .StepsSpin
  257.     TEXT  10, 130, 21, 11, .OffsetText, "Offset:"
  258.     GROUPBOX  10, 84, 97, 38, .TypeGroupBox, "Offset type"
  259.     ' Second tab controls.
  260.     GROUPBOX  10, 28, 97, 70, .BlendGroupBox, "Color blend type"
  261.     BITMAPBUTTON  20, 45, 14, 14, .DirectButton
  262.     BITMAPBUTTON  20, 59, 14, 14, .CWButton
  263.     BITMAPBUTTON  20, 73, 14, 14, .CCWButton
  264.     TEXT  38, 76, 60, 10, .CCWText, "Counter-clockwise"
  265.     TEXT  38, 62, 55, 8, .CWText, "Clockwise"
  266.     TEXT  38, 47, 20, 9, .DirectText, "Direct"
  267.     PUSHBUTTON  10, 124, 97, 13, .FillButton1, "Choose target fill color"
  268.     PUSHBUTTON  10, 142, 97, 13, .FillButton2, "Choose target fill color #2"
  269.     PUSHBUTTON  10, 106, 97, 13, .OutlineButton, "Choose target outline color"
  270.     ' Third tab controls.
  271.     HSLIDER 10, 100, 95, 12, .FillSlider
  272.     TEXT  15, 89, 76, 11, .FillAccelerateText, "Accelerate fills/outlines:"
  273.     TEXT  15, 33, 76, 11, .OffsetAccelerateText, "Accelerate offsets:"
  274.     HSLIDER 10, 44, 95, 12, .OffsetSlider
  275.     PUSHBUTTON  33, 115, 45, 13, .CenterFillButton, "Center"
  276.     PUSHBUTTON  33, 58, 45, 13, .CenterOffsetButton, "Center"
  277. END DIALOG
  278.  
  279. SUB ParamDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  280.  
  281.     DIM MsgReturn AS LONG    ' The return value of MESSAGEBOX.
  282.  
  283.     IF Event% = EVENT_INITIALIZATION& THEN
  284.         ' We want a 3-D background for the pseudo-tab control.
  285.         ParamDialog.MainTabBackground.Enable FALSE
  286.         
  287.         ' Set up all the images for the tabs.
  288.         ParamDialog.Tab1Button.SetArray Tab1Bitmaps$
  289.         ParamDialog.Tab2Button.SetArray Tab2Bitmaps$
  290.         ParamDialog.Tab3Button.SetArray Tab3Bitmaps$
  291.         
  292.         ' Make sure the images resize to the image box size
  293.         ' so they look good in large fonts.
  294.         ParamDialog.Tab1Button.SetStyle STYLE_IMAGE_AUTO_RESIZE
  295.         ParamDialog.Tab2Button.SetStyle STYLE_IMAGE_AUTO_RESIZE
  296.         ParamDialog.Tab3Button.SetStyle STYLE_IMAGE_AUTO_RESIZE
  297.         
  298.         ' Set up the blend type buttons.
  299.         ParamDialog.DirectButton.SetStyle STYLE_IMAGE_CENTERED
  300.         ParamDialog.CWButton.SetStyle STYLE_IMAGE_CENTERED
  301.         ParamDialog.CCWButton.SetStyle STYLE_IMAGE_CENTERED
  302.         UpdateBlendButtons
  303.         
  304.         ' Set up the units-related material.
  305.         ParamDialog.UnitsListBox.SetArray UnitsArray$
  306.         ParamDialog.UnitsListBox.SetSelect ChosenUnit%
  307.         ParamDialog.OffsetSpin.SetValue Offset%
  308.         
  309.         ' Set up the steps-related material.
  310.         ParamDialog.StepsSpin.SetValue Steps%
  311.         SELECT CASE Direction%
  312.             CASE DRAW_CONTOUR_OUTSIDE&
  313.                 ParamDialog.OutsideOption.SetValue 1
  314.             CASE DRAW_CONTOUR_INSIDE&
  315.                 ParamDialog.InsideOption.SetValue 1
  316.             CASE DRAW_CONTOUR_TO_CENTER&
  317.                 ParamDialog.CenterOption.SetValue 1
  318.                 OffsetType% = AC_OFFSET_PER_STEP%
  319.                 ParamDialog.TotalOption.Enable FALSE
  320.                 ParamDialog.StepsSpin.Enable FALSE
  321.                 ParamDialog.StepsText.Enable FALSE
  322.         END SELECT
  323.         IF OffsetType% = AC_OFFSET_PER_STEP% THEN
  324.             ParamDialog.PerStepOption.SetValue 1
  325.         ELSE
  326.             ParamDialog.TotalOption.SetValue 1
  327.         ENDIF
  328.  
  329.         ' Set up the acceleration bars.
  330.         ParamDialog.OffsetSlider.SetMinRange -50
  331.         ParamDialog.OffsetSlider.SetMaxRange 50
  332.         ParamDialog.OffsetSlider.SetIncrement 1
  333.         ParamDialog.OffsetSlider.SetValue OffsetAccel%
  334.         ParamDialog.FillSlider.SetMinRange -20
  335.         ParamDialog.FillSlider.SetMaxRange 20
  336.         ParamDialog.FillSlider.SetIncrement 1
  337.         ParamDialog.FillSlider.SetValue FillAccel%
  338.         
  339.         ' There is initially nothing to Undo.
  340.         ParamDialog.UndoButton.Enable FALSE
  341.         
  342.         ' Activate the current tab.
  343.         ActivateTab CurTab%, 0
  344.         
  345.     ELSEIF Event% = EVENT_MOUSE_CLICK& THEN
  346.         SELECT CASE ControlID% 
  347.         
  348.             CASE ParamDialog.Tab1Button.GetID()
  349.                 IF CurTab% <> 1 THEN
  350.                     ActivateTab 1, CurTab%
  351.                 ENDIF
  352.                 
  353.             CASE ParamDialog.Tab2Button.GetID()
  354.                 IF CurTab% <> 2 THEN
  355.                     ActivateTab 2, CurTab%
  356.                 ENDIF
  357.                 
  358.             CASE ParamDialog.Tab3Button.GetID()
  359.                 IF CurTab% <> 3 THEN
  360.                     ActivateTab 3, CurTab%
  361.                 ENDIF
  362.             
  363.             CASE ParamDialog.DirectButton.GetID()
  364.                 ColorBlendType% = DRAW_BLEND_DIRECT%
  365.                 UpdateBlendButtons
  366.                     
  367.             CASE ParamDialog.CCWButton.GetID()
  368.                 ColorBlendType% = DRAW_BLEND_RAINBOW_CCW%
  369.                 UpdateBlendButtons
  370.                 
  371.             CASE ParamDialog.CWButton.GetID()
  372.                 ColorBlendType% = DRAW_BLEND_RAINBOW_CW%
  373.                 UpdateBlendButtons
  374.                 
  375.             CASE ParamDialog.UnitsListBox.GetID()
  376.                 ChosenUnit% = ParamDialog.UnitsListBox.GetSelect()
  377.  
  378.             CASE ParamDialog.FillButton1.GetID()
  379.                 GETCOLOR ToFill1Red&, ToFill1Green&, ToFill1Blue&
  380.                 ' We convert to HSB here for efficiency.
  381.                 MakeHSB ToFill1Red&, ToFill1Green&, ToFill1Blue&, \\
  382.                         ToFill1Hue&, ToFill1Sat&, ToFill1Bri&
  383.                 
  384.             CASE ParamDialog.FillButton2.GetID()
  385.                 GETCOLOR ToFill2Red&, ToFill2Green&, ToFill2Blue&
  386.                 ' We convert to HSB here for efficiency.
  387.                 MakeHSB ToFill2Red&, ToFill2Green&, ToFill2Blue&, \\
  388.                         ToFill2Hue&, ToFill2Sat&, ToFill2Bri&
  389.             
  390.             CASE ParamDialog.OutlineButton.GetID()
  391.                 GETCOLOR ToOutlineRed&, ToOutlineGreen&, ToOutlineBlue&
  392.                 ' We convert to HSB here for efficiency.
  393.                 MakeHSB ToOutlineRed&, ToOutlineGreen&, ToOutlineBlue&, \\
  394.                         ToOutlineHue&, ToOutlineSat&, ToOutlineBri&
  395.  
  396.             CASE ParamDialog.CenterOption.GetID()
  397.                 Direction% = DRAW_CONTOUR_TO_CENTER&
  398.                 ParamDialog.TotalOption.Enable FALSE
  399.                 ParamDialog.PerStepOption.SetValue 1
  400.                 ParamDialog.StepsSpin.Enable FALSE
  401.                 ParamDialog.StepsText.Enable FALSE
  402.                 
  403.             CASE ParamDialog.InsideOption.GetID()
  404.                 Direction% = DRAW_CONTOUR_INSIDE&
  405.                 ParamDialog.TotalOption.Enable TRUE
  406.                 ParamDialog.StepsSpin.Enable TRUE
  407.                 ParamDialog.StepsText.Enable TRUE
  408.                 
  409.             CASE ParamDialog.OutsideOption.GetID()
  410.                 Direction% = DRAW_CONTOUR_OUTSIDE&
  411.                 ParamDialog.TotalOption.Enable TRUE
  412.                 ParamDialog.StepsSpin.Enable TRUE
  413.                 ParamDialog.StepsText.Enable TRUE
  414.                 
  415.             CASE ParamDialog.TotalOption.GetID()
  416.                 OffsetType% = AC_OFFSET_TOTAL%
  417.                 
  418.             CASE ParamDialog.PerStepOption.GetID()
  419.                 OffsetType% = AC_OFFSET_PER_STEP%
  420.  
  421.             CASE ParamDialog.ApplyButton.GetID()
  422.                 IF ValidateOffset() THEN
  423.                     UndoLastApply TRUE
  424.                     ApplyContours
  425.                 ENDIF
  426.                 
  427.             CASE ParamDialog.FillSlider.GetID()
  428.                 FillAccel% = ParamDialog.FillSlider.GetValue()
  429.             
  430.             CASE ParamDialog.OffsetSlider.GetID()
  431.                 OffsetAccel% = ParamDialog.OffsetSlider.GetValue()
  432.                 
  433.             CASE ParamDialog.UndoButton.GetID()
  434.                 UndoLastApply FALSE
  435.                 
  436.             CASE ParamDialog.CenterFillButton.GetID()
  437.                 ParamDialog.FillSlider.SetValue 0
  438.                 FillAccel% = 0
  439.  
  440.             CASE ParamDialog.CenterOffsetButton.GetID()
  441.                 ParamDialog.OffsetSlider.SetValue 0
  442.                 OffsetAccel% = 0
  443.  
  444.         END SELECT
  445.     
  446.     ELSEIF Event% = EVENT_CHANGE_IN_CONTENT& THEN
  447.         SELECT CASE ControlID%
  448.             CASE ParamDialog.OffsetSpin.GetID()
  449.                 IF (ParamDialog.OffsetSpin.GetValue() < 1) THEN
  450.                     MsgReturn& = MESSAGEBOX("Please enter an offset value " + \\
  451.                                                  "between 1 and 99.", \\
  452.                                                  TITLE_INFOBOX$, \\
  453.                                                  MB_INFORMATION_ICON&)
  454.                     ParamDialog.OffsetSpin.SetValue 1
  455.                     Offset% = 1
  456.                 ELSEIF (ParamDialog.OffsetSpin.GetValue() > 99) THEN
  457.                     MsgReturn& = MESSAGEBOX("Please enter an offset value " + \\
  458.                                                  "between 1 and 99.", \\
  459.                                                  TITLE_INFOBOX$, \\
  460.                                                  MB_INFORMATION_ICON&)
  461.                     ParamDialog.OffsetSpin.SetValue 99
  462.                     Offset% = 99
  463.                 ELSE
  464.                     Offset% = ParamDialog.OffsetSpin.GetValue()
  465.                 ENDIF
  466.             
  467.             CASE ParamDialog.StepsSpin.GetID()
  468.                 IF (ParamDialog.StepsSpin.GetValue() < 1) THEN
  469.                     MsgReturn& = MESSAGEBOX("Please enter a number of steps " + \\
  470.                                                  "between 1 and 99.", \\
  471.                                                  TITLE_INFOBOX$, \\
  472.                                                  MB_INFORMATION_ICON&)
  473.                     ParamDialog.StepsSpin.SetValue 1
  474.                     Steps% = 1
  475.                 ELSEIF (ParamDialog.StepsSpin.GetValue() > 99) THEN
  476.                     MsgReturn& = MESSAGEBOX("Please enter a number of steps " + \\
  477.                                                  "between 1 and 99.", \\
  478.                                                  TITLE_INFOBOX$, \\
  479.                                                  MB_INFORMATION_ICON&)
  480.                     ParamDialog.StepsSpin.SetValue 99
  481.                     Steps% = 99
  482.                 ELSE
  483.                     Steps% = ParamDialog.StepsSpin.GetValue()
  484.                 ENDIF
  485.                 
  486.             CASE ParamDialog.FillSlider.GetID()
  487.                 FillAccel% = ParamDialog.FillSlider.GetValue()
  488.             
  489.             CASE ParamDialog.OffsetSlider.GetID()
  490.                 OffsetAccel% = ParamDialog.OffsetSlider.GetValue()
  491.  
  492.         END SELECT
  493.     
  494.     ELSEIF Event% = EVENT_RECEIVE_FOCUS& THEN
  495.         ' Make sure the focus change does not destroy
  496.         ' our pseudo-tab effect.
  497.         UpdateTabTops
  498.         
  499.     ENDIF
  500.  
  501. END SUB
  502.  
  503. '********************************************************************
  504. '
  505. '    Name:    ValidateOffset (dialog function)
  506. '
  507. '    Action:    Checks to make sure that the user's chosen offset
  508. '              value is greater than 0.  If not, displays an error
  509. '              message and sets the offset to 1.
  510. '
  511. '    Params:    None.  Since this is intended to be a dialog function,
  512. '              it inspects ParamDialog.OffsetSpin and may alter 
  513. '              Offset%.
  514. '
  515. '    Returns:    If an error message had to be displayed, returns
  516. '              FALSE.  Otherwise returns TRUE.
  517. '
  518. '    Comments:    None.
  519. '
  520. '********************************************************************
  521. FUNCTION ValidateOffset() AS BOOLEAN
  522.  
  523.     DIM MsgReturn AS LONG    ' The return value of MESSAGEBOX.
  524.  
  525.     IF ParamDialog.OffsetSpin.GetValue() < 1 THEN
  526.         MsgReturn& = MESSAGEBOX("The offset value you select must be " + \\
  527.                                 "greater than 0." + NL2 + \\
  528.                                 "Please select another offset value and " + \\
  529.                                 "try again.", TITLE_ERRORBOX$, \\
  530.                                 MB_OK_ONLY& OR MB_EXCLAMATION_ICON&)
  531.         Offset% = 1
  532.         ParamDialog.OffsetSpin.SetValue Offset%
  533.         ValidateOffset = FALSE
  534.     ELSE
  535.         ValidateOffset = TRUE
  536.     ENDIF
  537.  
  538. END FUNCTION
  539.  
  540. '********************************************************************
  541. '
  542. '    Name:    ActivateTab (dialog subroutine)
  543. '
  544. '    Action:    Activates a specified tab in ParamDialog
  545. '              (ie. makes it look like it has been pressed and
  546. '              brings it to the front).
  547. '
  548. '    Params:    TabNum - Which tab to bring forward (1-3)?
  549. '            From - Which tab are we coming from? (0 means repaint all)
  550. '
  551. '    Returns:    None.
  552. '
  553. '    Comments:    If TabNum < 1 OR TabNum > 3 does nothing.
  554. '
  555. '********************************************************************
  556. SUB ActivateTab(TabNum AS INTEGER, From AS INTEGER)
  557.  
  558.     SELECT CASE TabNum%
  559.         CASE 1
  560.             ' Do the main tab controls. (We are not calling
  561.             ' UpdateTabTops to avoid procedure call-overhead.)
  562.             ParamDialog.Tab1Cover.SetStyle STYLE_VISIBLE 
  563.             ParamDialog.Tab2Cover.SetStyle STYLE_INVISIBLE 
  564.             ParamDialog.Tab3Cover.SetStyle STYLE_INVISIBLE 
  565.             ParamDialog.MainTabBackground.SetStyle STYLE_VISIBLE
  566.             
  567.             IF (From% = 2) OR (From% = 0) THEN
  568.                 ' Tab 2 controls.
  569.                 ParamDialog.BlendGroupBox.SetStyle STYLE_INVISIBLE
  570.                 ParamDialog.DirectButton.SetStyle STYLE_INVISIBLE
  571.                 ParamDialog.CWButton.SetStyle STYLE_INVISIBLE
  572.                 ParamDialog.CCWButton.SetStyle STYLE_INVISIBLE
  573.                 ParamDialog.CCWText.SetStyle STYLE_INVISIBLE
  574.                 ParamDialog.CWText.SetStyle STYLE_INVISIBLE
  575.                 ParamDialog.DirectText.SetStyle STYLE_INVISIBLE
  576.                 ParamDialog.FillButton1.SetStyle STYLE_INVISIBLE
  577.                 ParamDialog.FillButton2.SetStyle STYLE_INVISIBLE
  578.                 ParamDialog.OutlineButton.SetStyle STYLE_INVISIBLE
  579.             ENDIF
  580.             
  581.             IF (From% = 3) OR (From% = 0) THEN
  582.                 ' Tab 3 controls.
  583.                 ParamDialog.FillSlider.SetStyle STYLE_INVISIBLE
  584.                 ParamDialog.FillAccelerateText.SetStyle STYLE_INVISIBLE
  585.                 ParamDialog.OffsetAccelerateText.SetStyle STYLE_INVISIBLE
  586.                 ParamDialog.OffsetSlider.SetStyle STYLE_INVISIBLE
  587.                 ParamDialog.CenterOffsetButton.SetStyle STYLE_INVISIBLE
  588.                 ParamDialog.CenterFillButton.SetStyle STYLE_INVISIBLE
  589.             ENDIF
  590.                         
  591.             ' Tab 1 controls.
  592.             ParamDialog.DirectionGroupBox.SetStyle STYLE_VISIBLE
  593.             ParamDialog.TotalOption.SetStyle STYLE_VISIBLE
  594.             ParamDialog.PerStepOption.SetStyle STYLE_VISIBLE
  595.             ParamDialog.CenterOption.SetStyle STYLE_VISIBLE
  596.             ParamDialog.OutsideOption.SetStyle STYLE_VISIBLE
  597.             ParamDialog.InsideOption.SetStyle STYLE_VISIBLE
  598.             ParamDialog.OffsetSpin.SetStyle STYLE_VISIBLE
  599.             ParamDialog.UnitsListBox.SetStyle STYLE_VISIBLE
  600.             ParamDialog.XText.SetStyle STYLE_VISIBLE
  601.             ParamDialog.StepsText.SetStyle STYLE_VISIBLE
  602.             ParamDialog.StepsSpin.SetStyle STYLE_VISIBLE
  603.             ParamDialog.OffsetText.SetStyle STYLE_VISIBLE
  604.             ParamDialog.TypeGroupBox.SetStyle STYLE_VISIBLE
  605.             
  606.             ' Set the current tab number.
  607.             CurTab% = 1
  608.             
  609.         CASE 2
  610.             ' Do the main tab controls.
  611.             ParamDialog.Tab1Cover.SetStyle STYLE_INVISIBLE 
  612.             ParamDialog.Tab2Cover.SetStyle STYLE_VISIBLE 
  613.             ParamDialog.Tab3Cover.SetStyle STYLE_INVISIBLE 
  614.             ParamDialog.MainTabBackground.SetStyle STYLE_VISIBLE
  615.  
  616.             IF (From% = 1) OR (From% = 0) THEN
  617.                 ' Tab 1 controls.
  618.                 ParamDialog.DirectionGroupBox.SetStyle STYLE_INVISIBLE
  619.                 ParamDialog.TotalOption.SetStyle STYLE_INVISIBLE
  620.                 ParamDialog.PerStepOption.SetStyle STYLE_INVISIBLE
  621.                 ParamDialog.CenterOption.SetStyle STYLE_INVISIBLE
  622.                 ParamDialog.OutsideOption.SetStyle STYLE_INVISIBLE
  623.                 ParamDialog.InsideOption.SetStyle STYLE_INVISIBLE
  624.                 ParamDialog.OffsetSpin.SetStyle STYLE_INVISIBLE
  625.                 ParamDialog.UnitsListBox.SetStyle STYLE_INVISIBLE
  626.                 ParamDialog.XText.SetStyle STYLE_INVISIBLE
  627.                 ParamDialog.StepsText.SetStyle STYLE_INVISIBLE
  628.                 ParamDialog.StepsSpin.SetStyle STYLE_INVISIBLE
  629.                 ParamDialog.OffsetText.SetStyle STYLE_INVISIBLE
  630.                 ParamDialog.TypeGroupBox.SetStyle STYLE_INVISIBLE
  631.             ENDIF
  632.                         
  633.             IF (From% = 3) OR (From% = 0) THEN
  634.                 ' Tab 3 controls.
  635.                 ParamDialog.FillSlider.SetStyle STYLE_INVISIBLE
  636.                 ParamDialog.FillAccelerateText.SetStyle STYLE_INVISIBLE
  637.                 ParamDialog.OffsetAccelerateText.SetStyle STYLE_INVISIBLE
  638.                 ParamDialog.OffsetSlider.SetStyle STYLE_INVISIBLE
  639.                 ParamDialog.CenterOffsetButton.SetStyle STYLE_INVISIBLE
  640.                 ParamDialog.CenterFillButton.SetStyle STYLE_INVISIBLE
  641.             ENDIF
  642.             
  643.             ' Tab 2 controls.
  644.             ParamDialog.BlendGroupBox.SetStyle STYLE_VISIBLE
  645.             ParamDialog.DirectButton.SetStyle STYLE_VISIBLE
  646.             ParamDialog.CWButton.SetStyle STYLE_VISIBLE
  647.             ParamDialog.CCWButton.SetStyle STYLE_VISIBLE
  648.             ParamDialog.CCWText.SetStyle STYLE_VISIBLE
  649.             ParamDialog.CWText.SetStyle STYLE_VISIBLE
  650.             ParamDialog.DirectText.SetStyle STYLE_VISIBLE
  651.             ParamDialog.FillButton1.SetStyle STYLE_VISIBLE
  652.             
  653.             ' Since the user may select different objects and expect
  654.             ' the contour to be applied to those objects, check the
  655.             ' fill type before displaying controls.
  656.             ON ERROR GOTO STNoSelection
  657.                 OriginalFillType& = .GetFillType()
  658.             ON ERROR EXIT
  659.             Continue:
  660.             SELECT CASE OriginalFillType&
  661.                 CASE DRAW_FILL_UNIFORM&
  662.                     ParamDialog.FillButton1.Enable TRUE
  663.                     ParamDialog.FillButton1.SetText "Choose target fill color"
  664.                     ParamDialog.FillButton2.SetStyle STYLE_INVISIBLE
  665.                 CASE DRAW_FILL_FOUNTAIN&
  666.                     ParamDialog.FillButton1.Enable TRUE
  667.                     ParamDialog.FillButton1.SetText "Choose target fill color #1"
  668.                     ParamDialog.FillButton2.SetStyle STYLE_VISIBLE
  669.                 CASE ELSE
  670.                     ParamDialog.FillButton1.SetText "Choose target fill color"
  671.                     ParamDialog.FillButton1.Enable FALSE
  672.                     ParamDialog.FillButton2.SetStyle STYLE_INVISIBLE
  673.             END SELECT
  674.             ParamDialog.OutlineButton.SetStyle STYLE_VISIBLE
  675.  
  676.             ' Set the current tab number.
  677.             CurTab% = 2
  678.             
  679.         CASE 3
  680.             ' Do the main tab controls.
  681.             ParamDialog.Tab1Cover.SetStyle STYLE_INVISIBLE 
  682.             ParamDialog.Tab2Cover.SetStyle STYLE_INVISIBLE 
  683.             ParamDialog.Tab3Cover.SetStyle STYLE_VISIBLE 
  684.             ParamDialog.MainTabBackground.SetStyle STYLE_VISIBLE
  685.  
  686.             IF (From% = 1) OR (From% = 0) THEN
  687.                 ' Tab 1 controls.
  688.                 ParamDialog.DirectionGroupBox.SetStyle STYLE_INVISIBLE
  689.                 ParamDialog.TotalOption.SetStyle STYLE_INVISIBLE
  690.                 ParamDialog.PerStepOption.SetStyle STYLE_INVISIBLE
  691.                 ParamDialog.CenterOption.SetStyle STYLE_INVISIBLE
  692.                 ParamDialog.OutsideOption.SetStyle STYLE_INVISIBLE
  693.                 ParamDialog.InsideOption.SetStyle STYLE_INVISIBLE
  694.                 ParamDialog.OffsetSpin.SetStyle STYLE_INVISIBLE
  695.                 ParamDialog.UnitsListBox.SetStyle STYLE_INVISIBLE
  696.                 ParamDialog.XText.SetStyle STYLE_INVISIBLE
  697.                 ParamDialog.StepsText.SetStyle STYLE_INVISIBLE
  698.                 ParamDialog.StepsSpin.SetStyle STYLE_INVISIBLE
  699.                 ParamDialog.OffsetText.SetStyle STYLE_INVISIBLE
  700.                 ParamDialog.TypeGroupBox.SetStyle STYLE_INVISIBLE
  701.             ENDIF
  702.             
  703.             IF (From% = 2) OR (From% = 0) THEN
  704.                 ' Tab 2 controls.
  705.                 ParamDialog.BlendGroupBox.SetStyle STYLE_INVISIBLE
  706.                 ParamDialog.DirectButton.SetStyle STYLE_INVISIBLE
  707.                 ParamDialog.CWButton.SetStyle STYLE_INVISIBLE
  708.                 ParamDialog.CCWButton.SetStyle STYLE_INVISIBLE
  709.                 ParamDialog.CCWText.SetStyle STYLE_INVISIBLE
  710.                 ParamDialog.CWText.SetStyle STYLE_INVISIBLE
  711.                 ParamDialog.DirectText.SetStyle STYLE_INVISIBLE
  712.                 ParamDialog.FillButton1.SetStyle STYLE_INVISIBLE
  713.                 ParamDialog.FillButton2.SetStyle STYLE_INVISIBLE
  714.                 ParamDialog.OutlineButton.SetStyle STYLE_INVISIBLE
  715.             ENDIF
  716.             
  717.             ' Tab 3 controls.
  718.             ParamDialog.FillSlider.SetStyle STYLE_VISIBLE
  719.             ParamDialog.FillAccelerateText.SetStyle STYLE_VISIBLE
  720.             ParamDialog.OffsetAccelerateText.SetStyle STYLE_VISIBLE
  721.             ParamDialog.OffsetSlider.SetStyle STYLE_VISIBLE
  722.             ParamDialog.CenterOffsetButton.SetStyle STYLE_VISIBLE
  723.             ParamDialog.CenterFillButton.SetStyle STYLE_VISIBLE
  724.  
  725.             ' Set the current tab number.
  726.             CurTab% = 3
  727.             
  728.     END SELECT
  729.  
  730.     EXIT SUB
  731.     
  732. STNoSelection:
  733.     ERRNUM = 0
  734.     RESUME AT Continue
  735.  
  736. END SUB
  737.  
  738. '********************************************************************
  739. '
  740. '    Name:    UpdateTabTops (dialog subroutine)
  741. '
  742. '    Action:    Makes sure that the top of the pseudo-tab control
  743. '              retains a proper z-ordering of controls.
  744. '
  745. '    Params:    None.  As this is intended to be a dialog subroutine,
  746. '              it makes use of a variable global to UpdateTabTops,
  747. '              CurTab%.  This tells us which tab should be active.
  748. '
  749. '    Returns:    None.
  750. '
  751. '    Comments:    None.
  752. '
  753. '********************************************************************
  754. SUB UpdateTabTops
  755.  
  756.     ' Uncommenting the three commented lines in this routine will
  757.     ' remove some display artifacts which may occur when using the
  758.     ' keyboard to tab through the controls, but it causes unpleasant
  759.     ' flicker and so has been disabled.
  760.     SELECT CASE CurTab%
  761.         CASE 1
  762.             ParamDialog.Tab1Cover.SetStyle STYLE_VISIBLE 
  763.             ParamDialog.Tab2Cover.SetStyle STYLE_INVISIBLE 
  764.             ParamDialog.Tab3Cover.SetStyle STYLE_INVISIBLE 
  765.             'ParamDialog.MainTabBackground.SetStyle STYLE_VISIBLE
  766.                         
  767.         CASE 2
  768.             ParamDialog.Tab1Cover.SetStyle STYLE_INVISIBLE 
  769.             ParamDialog.Tab2Cover.SetStyle STYLE_VISIBLE 
  770.             ParamDialog.Tab3Cover.SetStyle STYLE_INVISIBLE 
  771.             'ParamDialog.MainTabBackground.SetStyle STYLE_VISIBLE
  772.  
  773.         CASE 3
  774.             ParamDialog.Tab1Cover.SetStyle STYLE_INVISIBLE 
  775.             ParamDialog.Tab2Cover.SetStyle STYLE_INVISIBLE 
  776.             ParamDialog.Tab3Cover.SetStyle STYLE_VISIBLE 
  777.             'ParamDialog.MainTabBackground.SetStyle STYLE_VISIBLE
  778.     END SELECT
  779.  
  780. END SUB
  781.  
  782. '********************************************************************
  783. '
  784. '    Name:    UpdateBlendButtons (dialog subroutine)
  785. '
  786. '    Action:    Updates which of the blend buttons appears
  787. '              to be pressed down and which appears to be
  788. '              pressed up based on the value of ColorBlendType.
  789. '
  790. '    Params:    None.  As this is intended to be a dialog function,
  791. '              it makes use of the variable global to ParamDialog:
  792. '              ColorBlendType.
  793. '
  794. '    Returns:    None.
  795. '
  796. '    Comments: None.
  797. '
  798. '********************************************************************
  799. SUB UpdateBlendButtons()
  800.  
  801.     DIM Bitmaps(3) AS STRING    ' Will hold the images to use.
  802.     
  803.     ' Normally, all buttons should appear to be up.
  804.     Bitmaps$(1) = CurDir$ + COLOR_DIRECT_UNPRESSED_BITMAP$
  805.     Bitmaps$(2) = CurDir$ + COLOR_DIRECT_PRESSED_BITMAP$
  806.     Bitmaps$(3) = CurDir$ + COLOR_DIRECT_UNPRESSED_BITMAP$
  807.     ParamDialog.DirectButton.SetArray Bitmaps$
  808.     Bitmaps$(1) = CurDir$ + COLOR_CCW_UNPRESSED_BITMAP$
  809.     Bitmaps$(2) = CurDir$ + COLOR_CCW_PRESSED_BITMAP$
  810.     Bitmaps$(3) = CurDir$ + COLOR_CCW_UNPRESSED_BITMAP$
  811.     ParamDialog.CCWButton.SetArray Bitmaps$
  812.     Bitmaps$(1) = CurDir$ + COLOR_CW_UNPRESSED_BITMAP$
  813.     Bitmaps$(2) = CurDir$ + COLOR_CW_PRESSED_BITMAP$
  814.     Bitmaps$(3) = CurDir$ + COLOR_CW_UNPRESSED_BITMAP$
  815.     ParamDialog.CWButton.SetArray Bitmaps$
  816.  
  817.     ' Make the appropriate button look like it's pressed down.
  818.     SELECT CASE ColorBlendType%
  819.     
  820.         CASE DRAW_BLEND_DIRECT%
  821.             Bitmaps$(1) = CurDir$ + COLOR_DIRECT_PRESSED_BITMAP$
  822.             Bitmaps$(2) = CurDir$ + COLOR_DIRECT_UNPRESSED_BITMAP$
  823.             Bitmaps$(3) = CurDir$ + COLOR_DIRECT_PRESSED_BITMAP$
  824.             ParamDialog.DirectButton.SetArray Bitmaps$
  825.             
  826.         CASE DRAW_BLEND_RAINBOW_CCW%
  827.             Bitmaps$(1) = CurDir$ + COLOR_CCW_PRESSED_BITMAP$
  828.             Bitmaps$(2) = CurDir$ + COLOR_CCW_UNPRESSED_BITMAP$
  829.             Bitmaps$(3) = CurDir$ + COLOR_CCW_PRESSED_BITMAP$
  830.             ParamDialog.CCWButton.SetArray Bitmaps$
  831.             
  832.         CASE DRAW_BLEND_RAINBOW_CW%
  833.             Bitmaps$(1) = CurDir$ + COLOR_CW_PRESSED_BITMAP$
  834.             Bitmaps$(2) = CurDir$ + COLOR_CW_UNPRESSED_BITMAP$
  835.             Bitmaps$(3) = CurDir$ + COLOR_CW_PRESSED_BITMAP$
  836.             ParamDialog.CWButton.SetArray Bitmaps$
  837.             
  838.     END SELECT    
  839.  
  840. END SUB
  841.  
  842. '********************************************************************
  843. '
  844. '    Name:    UndoLastApply (dialog subroutine)
  845. '
  846. '    Action:    Deletes the last created contour if possible.
  847. '
  848. '    Params:    RequireASelection - If TRUE, this routine
  849. '              will only perform the undo if the actual
  850. '              contour is currently selected.
  851. '              As this is intended to be a dialog subroutine,
  852. '              it makes use of variables global to ParamDialog.
  853. '
  854. '    Returns:    None.
  855. '
  856. '    Comments:    None.
  857. '
  858. '********************************************************************
  859. SUB UndoLastApply( RequireSelection AS BOOLEAN )
  860.  
  861.     DIM MessageText AS STRING
  862.     DIM MsgReturn AS LONG
  863.     DIM CurObj AS LONG
  864.  
  865.     ON ERROR GOTO ULAISError
  866.     
  867.     IF IDLastFullContour& > 0 THEN
  868.         IF RequireSelection THEN
  869.             IF NOT CheckForSelection() THEN
  870.                 EXIT SUB
  871.             ELSE
  872.                 CurObj& = .GetObjectsCDRStaticID()
  873.             ENDIF
  874.             IF (CurObj& <> IDLastFullContour&)  THEN
  875.                 EXIT SUB
  876.             ENDIF
  877.         ENDIF
  878.         IF .SelectObjectOfCDRStaticID(IDLastFullContour&) THEN
  879.             .DeleteObject
  880.         ELSE
  881.             ' The object has somehow been deleted!
  882.             ' Hence, our undo fails.
  883.             FAIL 5000 ' Trigger the error handler.
  884.         ENDIF
  885.         .SelectObjectOfCDRStaticID IDOriginal&
  886.         IDLastFullContour& = 0
  887.     ELSEIF NOT RequireSelection THEN
  888.         FAIL 5000 ' Trigger the error handler.
  889.     ENDIF
  890.  
  891.     VeryEnd:
  892.         IF NOT RequireSelection THEN
  893.             ParamDialog.UndoButton.Enable FALSE
  894.         ENDIF
  895.         EXIT SUB
  896.  
  897. ULAISError:
  898.     ' The operation cannot be done.
  899.     ERRNUM = 0
  900.     MessageText$ = "Sorry.  Cannot undo the last contour." + NL2 + \\
  901.                    "Perhaps the contour group has already been deleted."
  902.     MsgReturn& = MESSAGEBOX( MessageText$, TITLE_INFOBOX$, MB_OK_ONLY& )
  903.     RESUME AT VeryEnd
  904.  
  905. END SUB
  906.  
  907. '********************************************************************
  908. '
  909. '    Name:    ApplyContours(dialog subroutine)
  910. '
  911. '    Action:    Applies the contour effect specified in ParamDialog.
  912. '
  913. '    Params:    None.  Since this routine is intended to be
  914. '              a dialog subroutine, it makes use of variables
  915. '              global to ParamDialog.
  916. '
  917. '    Returns:    None.
  918. '
  919. '    Comments:    None.
  920. '
  921. '********************************************************************
  922. SUB ApplyContours
  923.  
  924.     CONST BaseAdjustment# = 0.000001 ' Avoids asymptotic logarithm problems.
  925.     CONST Precision! = 0.95        ' The percentage by which inside and
  926.                             ' to center blends miss the center.
  927.                             ' (Higher precisions take longer.)
  928.  
  929.     DIM MsgReturn AS LONG        ' The return value of MESSAGEBOX.
  930.     DIM Counter AS INTEGER        ' A counter variable for loops.
  931.     DIM LastUOffset AS DOUBLE    ' The last uniform offset distance we applied.
  932.     DIM CurUOffset AS DOUBLE        ' The current uniform offset we will apply.
  933.     DIM UniformFill AS DOUBLE    ' The uniform fill/outline logarithmic range.
  934.     DIM CurUFill AS DOUBLE        ' The current uniform fill/outline we will apply.
  935.     DIM CurRealOffset AS LONG    ' How much offset to apply (accelerated).
  936.     DIM BaseOff AS DOUBLE        ' The base of the offset accel. logarithm.
  937.     DIM BaseCol AS DOUBLE        ' The base of the color accel. logarithm.
  938.     DIM SpeedOUp AS BOOLEAN        ' Whether the offset acceleration speeds up
  939.                             ' or slows down.
  940.     DIM SpeedCUp AS BOOLEAN        ' Whether the color acceleration speeds up
  941.                             ' or slows down.
  942.     DIM WholeOffset AS LONG        ' The total offset that the final 
  943.                             ' contour line should have (tm).
  944.     DIM WholeRedDeltaOutline AS LONG    ' The total red delta on a direct color blend.
  945.     DIM WholeGreenDeltaOutline AS LONG ' The total green delta on a direct color blend.
  946.     DIM WholeBlueDeltaOutline AS LONG    ' The total blue delta on a direct color blend.
  947.     DIM WholeHueDeltaOutline AS LONG    ' The total hue delta on CW or CCW blends.
  948.     DIM WholeSatDeltaOutline AS LONG    ' The total saturation delta.
  949.     DIM WholeBriDeltaOutline AS LONG    ' The total brightness delta.
  950.     DIM WholeRedDeltaFill1 AS LONG    ' The total red delta on a direct color blend (1).
  951.     DIM WholeGreenDeltaFill1 AS LONG    ' The total green delta on a direct color blend (1).
  952.     DIM WholeBlueDeltaFill1 AS LONG    ' The total blue delta on a direct color blend (1).
  953.     DIM WholeHueDeltaFill1 AS LONG    ' The total hue delta on CW or CCW blends (1).
  954.     DIM WholeSatDeltaFill1 AS LONG    ' The total saturation delta.
  955.     DIM WholeBriDeltaFill1 AS LONG    ' The total brightness delta.
  956.     DIM WholeRedDeltaFill2 AS LONG    ' The total red delta on a direct color blend (2).
  957.     DIM WholeGreenDeltaFill2 AS LONG    ' The total green delta on a direct color blend (2).
  958.     DIM WholeBlueDeltaFill2 AS LONG    ' The total blue delta on a direct color blend (2).
  959.     DIM WholeHueDeltaFill2 AS LONG    ' The total hue delta on CW or CCW blends (2).
  960.     DIM WholeSatDeltaFill2 AS LONG    ' The total saturation delta.
  961.     DIM WholeBriDeltaFill2 AS LONG    ' The total brightness delta.
  962.     DIM UniformStep AS DOUBLE    ' The size of a uniform step.
  963.     DIM IDLast AS LONG            ' The CDRStaticID of the last object we had.
  964.     DIM IDCurrent AS LONG        ' The CDRStaticID of the current object we have.
  965.     DIM IDContoured AS LONG        ' The CDRStaticID of the newest contoured object.
  966.     DIM OrigXPos AS LONG        ' The X coordinate of the original.
  967.     DIM OrigYPos AS LONG        ' The Y coordinate of the original.
  968.     DIM ColTmpModel AS LONG        ' The color model of a temporary color.
  969.     DIM ColTmp1 AS LONG            ' The first component of a temporary color.
  970.     DIM ColTmp2 AS LONG            ' The second component of a temporary color.
  971.     DIM ColTmp3 AS LONG            ' The third component of a temporary color.
  972.     DIM ColTmp4 AS LONG            ' The fourth component of a temporary color.
  973.     DIM ColTmp5 AS LONG            ' The fifth component of a temporary color.
  974.     DIM ColTmp6 AS LONG            ' The sixth component of a temporary color.
  975.     DIM ColTmp7 AS LONG            ' The seventh component of a temporary color.
  976.     DIM ColTmpPosition AS LONG    ' For fountain fills, the position of this color.    
  977.     DIM CurOutlineRed AS LONG    ' The current contour line's red component.
  978.     DIM CurOutlineGreen AS LONG    ' The current contour line's green component.
  979.     DIM CurOutlineBlue AS LONG    ' The current contour line's blue component.
  980.     DIM CurOutlineHue AS LONG    ' The current contour line's hue component.
  981.     DIM CurOutlineSat AS LONG    ' The current contour line's saturation component.
  982.     DIM CurOutlineBri AS LONG    ' The current contour line's brightness component.
  983.     DIM CurFill1Red AS LONG        ' The current contour fill 1's red component.
  984.     DIM CurFill1Green AS LONG    ' The current contour fill 1's green component.
  985.     DIM CurFill1Blue AS LONG        ' The current contour fill 1's blue component.
  986.     DIM CurFill1Hue AS LONG        ' The current contour fill 1's hue component.
  987.     DIM CurFill1Sat AS LONG        ' The current contour fill 1's saturation component.
  988.     DIM CurFill1Bri AS LONG        ' The current contour fill 1's brightness component.
  989.     DIM CurFill2Red AS LONG        ' The current contour fill 2's red component.
  990.     DIM CurFill2Green AS LONG    ' The current contour fill 2's green component.
  991.     DIM CurFill2Blue AS LONG        ' The current contour fill 2's blue component.
  992.     DIM CurFill2Hue AS LONG        ' The current contour fill 2's hue component.
  993.     DIM CurFill2Sat AS LONG        ' The current contour fill 2's saturation component.
  994.     DIM CurFill2Bri AS LONG        ' The current contour fill 2's brightness component.
  995.  
  996.     IF NOT CheckForSelection() THEN
  997.         MsgReturn& = MESSAGEBOX("Please select an object in CorelDRAW before " + \\
  998.                                 "pressing the Apply button.", TITLE_INFOBOX$, \\
  999.                                 MB_OK_ONLY&) 
  1000.         EXIT SUB
  1001.     ENDIF
  1002.     
  1003.     ' Check to see that the object is contourable.  If it is not contourable,
  1004.     ' then we need to proceed.
  1005.     IF NOT CheckForContour() THEN
  1006.         MsgReturn& = MESSAGEBOX("Sorry.  Cannot apply a contour to the selected object." + NL2 + \\
  1007.                                 "In CorelDRAW, certain types of objects can have the " + \\
  1008.                                 "contour effect applied to them, and certain types of " + \\
  1009.                                 "objects cannot.  As a general rule, if the built-in " + \\
  1010.                                 "contour tool will not work with something, the accelerated " + \\
  1011.                                 "contour tool will not work either." + NL2 + \\
  1012.                                 "Please select a different object and try again.", \\
  1013.                                 TITLE_INFOBOX$, \\
  1014.                                 MB_OK_ONLY& OR MB_EXCLAMATION_ICON&)
  1015.         EXIT SUB
  1016.     ENDIF
  1017.     IDOriginal& = .GetObjectsCDRStaticID()
  1018.  
  1019.      ' Before doing anything, check to see that the user has not changed
  1020.      ' the fill type of the original object.  (They're allowed to change
  1021.      ' the color(s), but the fill type requires updating our dialog box.)
  1022.      IF .GetFillType() <> OriginalFillType& THEN
  1023.          MsgReturn& = MESSAGEBOX("The currently selected object has a different fill " + \\
  1024.                                   "type than the Accelerated Contour tool expected." + NL2 + \\
  1025.                                   "As a result, the fill color selections you have made " + \\
  1026.                                   "in the Accelerated Contour tool may not still be " + \\
  1027.                                  "appropriate.  Take a moment to verify that " + \\
  1028.                                  "you are satisfied with your choice of fill colors " + \\
  1029.                                  "and then press Apply again to apply your contour.", \\
  1030.                                  TITLE_INFOBOX$, \\
  1031.                                  MB_INFORMATION_ICON&)
  1032.          OriginalFillType& = .GetFillType()
  1033.          ActivateTab 2, 0
  1034.          EXIT SUB
  1035.      ENDIF
  1036.  
  1037.     ' Retrieve the colors of the original object.  Though it would
  1038.     ' be more efficient to do this once (on initialization) instead
  1039.     ' of each time, this approach allows the user to change the
  1040.     ' object's colour between clicks on the "Apply" button and have
  1041.     ' the contour tool still work properly.
  1042.     .GetOutlineColor ColTmpModel&, ColTmp1&, ColTmp2&, ColTmp3&, \\
  1043.                      ColTmp4&, ColTmp5&, ColTmp6&, ColTmp7&
  1044.     .StoreColor ColTmpModel&, ColTmp1&, ColTmp2&, ColTmp3&, ColTmp4&, \\
  1045.                  ColTmp5&, ColTmp6&, ColTmp7&
  1046.     .ConvertColor DRAW_COLORMODEL_RGB&, \\
  1047.                   FromOutlineRed&, FromOutlineGreen&, FromOutlineBlue&
  1048.     MakeHSB FromOutlineRed&, FromOutlineGreen&, FromOutlineBlue&, \\
  1049.             FromOutlineHue&, FromOutlineSat&, FromOutlineBri&
  1050.     SELECT CASE OriginalFillType&
  1051.         CASE DRAW_FILL_UNIFORM&
  1052.             .GetUniformFillColor ColTmpModel&, ColTmp1&, ColTmp2&, ColTmp3&, \\
  1053.                                  ColTmp4&, ColTmp5&, ColTmp6&, ColTmp7&
  1054.             .StoreColor ColTmpModel&, ColTmp1&, ColTmp2&, ColTmp3&, ColTmp4&, \\
  1055.                            ColTmp5&, ColTmp6&, ColTmp7&
  1056.             .ConvertColor DRAW_COLORMODEL_RGB&, \\
  1057.                           FromFill1Red&, FromFill1Green&, FromFill1Blue&
  1058.             MakeHSB FromFill1Red&, FromFill1Green&, FromFill1Blue&, \\
  1059.                     FromFill1Hue&, FromFill1Sat&, FromFill1Bri&
  1060.             
  1061.         CASE DRAW_FILL_FOUNTAIN&
  1062.             .GetFountainFillColor 0, ColTmpPosition&, ColTmpModel&, \\
  1063.                               ColTmp1&, ColTmp2&, ColTmp3&, ColTmp4&, \\
  1064.                                    ColTmp5&, ColTmp6&, ColTmp7&
  1065.             .StoreColor ColTmpModel&, ColTmp1&, ColTmp2&, ColTmp3&, \\
  1066.                            ColTmp4&, ColTmp5&, ColTmp6&, ColTmp7&, ColTmpPosition&
  1067.             .ConvertColor DRAW_COLORMODEL_RGB&, \\
  1068.                         FromFill1Red&, FromFill1Green&, FromFill1Blue&
  1069.             .GetFountainFillColor 100, ColTmpPosition&, ColTmpModel&, \\
  1070.                               ColTmp1&, ColTmp2&, ColTmp3&, ColTmp4&, \\
  1071.                                    ColTmp5&, ColTmp6&, ColTmp7&
  1072.             .StoreColor ColTmpModel&, ColTmp1&, ColTmp2&, ColTmp3&, \\
  1073.                            ColTmp4&, ColTmp5&, ColTmp6&, ColTmp7&, ColTmpPosition&
  1074.             .ConvertColor DRAW_COLORMODEL_RGB&, \\
  1075.                         FromFill2Red&, FromFill2Green&, FromFill2Blue&
  1076.             MakeHSB FromFill1Red&, FromFill1Green&, FromFill1Blue&, \\
  1077.                     FromFill1Hue&, FromFill1Sat&, FromFill1Bri&
  1078.             MakeHSB FromFill2Red&, FromFill2Green&, FromFill2Blue&, \\
  1079.                     FromFill2Hue&, FromFill2Sat&, FromFill2Bri&
  1080.  
  1081.         CASE ELSE
  1082.             ' Do nothing.
  1083.     END SELECT
  1084.  
  1085. REM     ' If there is an existing contour, erase it and start over.
  1086. REM     IF IDLastFullContour& > 0 THEN
  1087. REM         .SelectObjectOfCDRStaticID IDLastFullContour&
  1088. REM         .DeleteObject
  1089. REM     ENDIF
  1090.     .SelectObjectOfCDRStaticID IDOriginal&
  1091.     .GetPosition OrigXPos&, OrigYPos&
  1092.     .DuplicateObject
  1093.     .SetPosition OrigXPos&, OrigYPos&
  1094.     
  1095.     ' Based on the selections in the sliders, calculate the
  1096.     ' bases of the logarithms to use for the accelerations.
  1097.     BaseOff# = 1 + ABS(OffsetAccel%) + BaseAdjustment#
  1098.     IF OffsetAccel% >= 0 THEN
  1099.         SpeedOUp = TRUE
  1100.     ELSE
  1101.         SpeedOUp = FALSE
  1102.     ENDIF
  1103.     BaseCol# = 1 + ABS(FillAccel%) + BaseAdjustment#
  1104.     IF FillAccel% >= 0 THEN
  1105.         SpeedCUp = TRUE
  1106.     ELSE
  1107.         SpeedCUp = FALSE
  1108.     ENDIF
  1109.     
  1110.     ' Calculate the offset of the final contour line.
  1111.     IF OffsetType% = AC_OFFSET_PER_STEP% THEN
  1112.         WholeOffset& = Steps% * Offset% * ConversionFactors!(ChosenUnit%)
  1113.     ELSE
  1114.         WholeOffset& = Offset% * ConversionFactors!(ChosenUnit%)
  1115.     ENDIF
  1116.     
  1117.     ' Calculate the necessary color deltas.
  1118.     SELECT CASE ColorBlendType%
  1119.         CASE DRAW_BLEND_DIRECT%
  1120.             WholeRedDeltaOutline& = ToOutlineRed& - FromOutlineRed&
  1121.             WholeGreenDeltaOutline& = ToOutlineGreen& - FromOutlineGreen&
  1122.             WholeBlueDeltaOutline& = ToOutlineBlue& - FromOutlineBlue&
  1123.             WholeRedDeltaFill1& = ToFill1Red& - FromFill1Red&
  1124.             WholeGreenDeltaFill1& = ToFill1Green& - FromFill1Green&
  1125.             WholeBlueDeltaFill1& = ToFill1Blue& - FromFill1Blue&
  1126.             IF OriginalFillType& = DRAW_FILL_FOUNTAIN& THEN
  1127.                 WholeRedDeltaFill2& = ToFill2Red& - FromFill2Red&
  1128.                 WholeGreenDeltaFill2& = ToFill2Green& - FromFill2Green&
  1129.                 WholeBlueDeltaFill2& = ToFill2Blue& - FromFill2Blue&                
  1130.             ENDIF
  1131.             
  1132.         CASE DRAW_BLEND_RAINBOW_CW%
  1133.             WholeHueDeltaOutline& = ToOutlineHue& - FromOutlineHue&
  1134.             WholeSatDeltaOutline& = ToOutlineSat& - FromOutlineSat&
  1135.             WholeBriDeltaOutline& = ToOutlineBri& - FromOutlineBri&
  1136.             WholeSatDeltaFill1& = ToFill1Sat& - FromFill1Sat&
  1137.             WholeBriDeltaFill1& = ToFill1Bri& - FromFill1Bri&
  1138.             IF OriginalFillType& = DRAW_FILL_FOUNTAIN& THEN
  1139.                 WholeHueDeltaFill2& = ToFill2Hue& - FromFill2Hue& 
  1140.                 WholeSatDeltaFill2& = ToFill2Sat& - FromFill2Sat&
  1141.                 WholeBriDeltaFill2& = ToFill2Bri& - FromFill2Bri&
  1142.             ENDIF
  1143.             ' Rotate clockwise around the color wheel.
  1144.             IF (ToOutlineHue& - FromOutlineHue&) >= 0 THEN
  1145.                 WholeHueDeltaOutline& = ToOutlineHue& - FromOutlineHue&
  1146.             ELSE
  1147.                 WholeHueDeltaOutline& = 360 - FromOutlineHue& + ToOutlineHue&
  1148.             ENDIF            
  1149.             IF (ToFill1Hue& - FromFill1Hue&) >= 0 THEN
  1150.                 WholeHueDeltaFill1& = ToFill1Hue& - FromFill1Hue&
  1151.             ELSE
  1152.                 WholeHueDeltaFill1& = 360 - FromFill1Hue& + ToFill1Hue&
  1153.             ENDIF
  1154.             IF (ToFill2Hue& - FromFill2Hue&) >= 0 THEN
  1155.                 WholeHueDeltaFill2& = ToFill2Hue& - FromFill2Hue&
  1156.             ELSE
  1157.                 WholeHueDeltaFill2& = 360 - FromFill2Hue& + ToFill2Hue&
  1158.             ENDIF
  1159.  
  1160.         CASE DRAW_BLEND_RAINBOW_CCW%
  1161.             WholeHueDeltaOutline& = ToOutlineHue& - FromOutlineHue&
  1162.             WholeSatDeltaOutline& = ToOutlineSat& - FromOutlineSat&
  1163.             WholeBriDeltaOutline& = ToOutlineBri& - FromOutlineBri&
  1164.             IF (ToFill1Hue& - FromFill1Hue&) >= 0 THEN
  1165.                 WholeHueDeltaFill1& = ToFill1Hue& - FromFill1Hue&
  1166.             ELSE
  1167.                 WholeHueDeltaFill1& = 360 - FromFill1Hue& + ToFill1Hue&
  1168.             ENDIF
  1169.             WholeSatDeltaFill1& = ToFill1Sat& - FromFill1Sat&
  1170.             WholeBriDeltaFill1& = ToFill1Bri& - FromFill1Bri&
  1171.             IF OriginalFillType& = DRAW_FILL_FOUNTAIN& THEN
  1172.                 WholeHueDeltaFill2& = ToFill2Hue& - FromFill2Hue& 
  1173.                 WholeSatDeltaFill2& = ToFill2Sat& - FromFill2Sat&
  1174.                 WholeBriDeltaFill2& = ToFill2Bri& - FromFill2Bri&
  1175.             ENDIF
  1176.             ' Rotate counter-clockwise around the color wheel.
  1177.             IF (ToOutlineHue& - FromOutlineHue&) >= 0 THEN
  1178.                 WholeHueDeltaOutline& = -1 * FromOutlineHue& + ToOutlineHue& - 360
  1179.             ELSE
  1180.                 WholeHueDeltaOutline& = ToOutlineHue& - FromOutlineHue&
  1181.             ENDIF            
  1182.             IF (ToFill1Hue& - FromFill1Hue&) >= 0 THEN
  1183.                 WholeHueDeltaFill1& = -1 * FromFill1Hue& + ToFill1Hue& - 360
  1184.             ELSE
  1185.                 WholeHueDeltaFill1& = ToFill1Hue& - FromFill1Hue&
  1186.             ENDIF
  1187.             IF (ToFill2Hue& - FromFill2Hue&) >= 0 THEN
  1188.                 WholeHueDeltaFill2& = -1 * FromFill2Hue& + ToFill2Hue& - 360
  1189.             ELSE
  1190.                 WholeHueDeltaFill2& = ToFill2Hue& - FromFill2Hue&
  1191.             ENDIF
  1192.                     
  1193.         CASE ELSE
  1194.             MESSAGE "ASSERTION FAILURE"
  1195.             STOP
  1196.     END SELECT
  1197.     
  1198.     ' If we are going to the center or inside, we have a special case, and
  1199.     ' since there's no way of determining how far we have to go, we have
  1200.     ' to find it the hard way.
  1201.     IF (Direction% = DRAW_CONTOUR_TO_CENTER&) OR \\
  1202.        (Direction% = DRAW_CONTOUR_INSIDE&) THEN
  1203.         
  1204.         DIM Highest AS LONG    ' The highest offset we've tried so far.
  1205.         DIM XSize AS LONG    ' The current selection's x size.
  1206.         DIM YSize AS LONG    ' The current selection's y size.
  1207.         DIM TmpSteps AS INTEGER    ' A temporary variable for calculating the
  1208.                             ' number of steps.
  1209.         
  1210.         ' Use the selection's size as a start.
  1211.         .GetSize XSize&, YSize&
  1212.         IF XSize& > YSize& THEN
  1213.             Highest& = YSize&
  1214.         ELSE
  1215.             Highest& = XSize&
  1216.         ENDIF
  1217.         
  1218.         ' Instead of algorithmically determining the number
  1219.         ' of contours that are possible, we can estimate this
  1220.         ' number mathematically for speed reasons.
  1221.         ' (We divide by 2, plus a little bit extra so the inside
  1222.         ' contour line does not look too small.)
  1223.         Highest& = Highest& / 2.2
  1224.     
  1225.         IF OffsetType% = AC_OFFSET_PER_STEP% THEN
  1226.             TmpSteps% = FIX(Highest& / \\
  1227.                      (Offset% * ConversionFactors!(ChosenUnit%)))
  1228.             IF (TmpSteps% > 0) THEN
  1229.                 IF Direction% = DRAW_CONTOUR_TO_CENTER& THEN
  1230.                     Steps% = TmpSteps%
  1231.                     WholeOffset& = Highest&
  1232.                 ELSE ' DRAW_OFFSET_INSIDE&
  1233.                     Steps% = MIN(TmpSteps%, Steps%)
  1234.                     WholeOffset& = Steps% * Offset% * \\
  1235.                                    ConversionFactors!(ChosenUnit%)
  1236.                 ENDIF
  1237.                 ParamDialog.StepsSpin.SetValue Steps%
  1238.             ELSE
  1239.                 MsgReturn& = MESSAGEBOX("The offset you selected " + \\
  1240.                                        "is so large that it will " + \\
  1241.                                        "not produce any contour lines."+\\
  1242.                                        NL2 + "Please select a "+\\
  1243.                                        "smaller offset and try again.",\\
  1244.                                        TITLE_INFOBOX$, \\
  1245.                                        MB_OK_ONLY& OR \\
  1246.                                        MB_EXCLAMATION_ICON&)
  1247.                 EXIT SUB
  1248.             ENDIF
  1249.         ELSE
  1250.             IF Highest& < WholeOffset& THEN
  1251.                 ' If the user has specified a too large total
  1252.                 ' offset, adjust it automatically.
  1253.                 WholeOffset& = Highest&
  1254.             ENDIF
  1255.             Offset% = MIN(CINT(FIX(Highest& / \\
  1256.                       ConversionFactors!(ChosenUnit%))), Offset%)
  1257.             ParamDialog.OffsetSpin.SetValue Offset%
  1258.         ENDIF
  1259.  
  1260.     ENDIF
  1261.     
  1262.     ' We calculate a uniform step offset from 1 to BaseOff#.
  1263.     ' Later, we take the logarithm of each step offset to
  1264.     ' get the accelerated offset.
  1265.     UniformStep# = (BaseOff# - 1) / Steps%
  1266.     
  1267.     ' Do the same for the colors.
  1268.     UniformFill# = (BaseCol# - 1) / Steps%
  1269.  
  1270.     ' Apply each contour.
  1271.     IF SpeedOUp THEN
  1272.         LastUOffset# = 1
  1273.     ELSE
  1274.         LastUOffset# = BaseOff#
  1275.     ENDIF
  1276.         
  1277.     FOR Counter% = 1 TO Steps%
  1278.     
  1279.         ' Calculate the offset for this individual contour line.
  1280.         IF SpeedOUp THEN
  1281.             CurUOffset# = UniformStep# * Counter% + 1
  1282.             CurRealOffset& = ((LOG(CurUOffset#)/LOG(BaseOff#)) * \\
  1283.                              WholeOffset&) - \\
  1284.                           ((LOG(LastUOffset#)/LOG(BaseOff#)) * \\
  1285.                           WholeOffset&)
  1286.         ELSE
  1287.             CurUOffset# = BaseOff# - UniformStep# * Counter%
  1288.             CurRealOffset& = ((LOG(LastUOffset#)/LOG(BaseOff#)) * \\
  1289.                           WholeOffset&) - \\
  1290.                           ((LOG(CurUOffset#)/LOG(BaseOff#)) * \\
  1291.                              WholeOffset&)
  1292.         ENDIF
  1293.         
  1294.         ' Calculate the fill color(s) for this contour line.
  1295.         ' This is the most important part of the code.
  1296.         IF SpeedCUp THEN
  1297.             CurUFill# = BaseCol# - UniformFill# * Counter%
  1298.             IF ColorBlendType% = DRAW_BLEND_DIRECT% THEN
  1299.                 ' Calculate RGB color values.
  1300.                 CurOutlineRed& = ToOutlineRed& - ((LOG(CurUFill#)/LOG(BaseCol#) * WholeRedDeltaOutline&) MOD 256)
  1301.                 CurOutlineGreen& = ToOutlineGreen& - ((LOG(CurUFill#)/LOG(BaseCol#) * WholeGreenDeltaOutline&) MOD 256)
  1302.                 CurOutlineBlue& = ToOutlineBlue& - ((LOG(CurUFill#)/LOG(BaseCol#) * WholeBlueDeltaOutline&) MOD 256)
  1303.                 CurFill1Red& = ToFill1Red& - ((LOG(CurUFill#)/LOG(BaseCol#)) * WholeRedDeltaFill1&) MOD 256
  1304.                 CurFill1Green& = ToFill1Green& - ((LOG(CurUFill#)/LOG(BaseCol#)) * WholeGreenDeltaFill1&) MOD 256
  1305.                 CurFill1Blue& = ToFill1Blue& - ((LOG(CurUFill#)/LOG(BaseCol#)) * WholeBlueDeltaFill1&) MOD 256
  1306.                 IF OriginalFillType& = DRAW_FILL_FOUNTAIN& THEN
  1307.                     CurFill2Red& = ToFill2Red& - ((LOG(CurUFill#)/LOG(BaseCol#)) * WholeRedDeltaFill2&) MOD 256
  1308.                     CurFill2Green& = ToFill2Green& - ((LOG(CurUFill#)/LOG(BaseCol#)) * WholeGreenDeltaFill2&) MOD 256
  1309.                     CurFill2Blue& = ToFill2Blue& - ((LOG(CurUFill#)/LOG(BaseCol#)) * WholeBlueDeltaFill2&) MOD 256
  1310.                 ENDIF
  1311.             ELSE
  1312.                 ' Calculate HSB color values.
  1313.                 CurOutlineHue& = Mod360( CLNG(ToOutlineHue& - (LOG(CurUFill#)/LOG(BaseCol#))*WholeHueDeltaOutline&) )
  1314.                 CurOutlineSat& = Mod256( CLNG(ToOutlineSat& - (LOG(CurUFill#)/LOG(BaseCol#))*WholeSatDeltaOutline&) )
  1315.                 CurOutlineBri& = Mod256( CLNG(ToOutlineBri& - (LOG(CurUFill#)/LOG(BaseCol#))*WholeBriDeltaOutline&) )
  1316.                 CurFill1Hue& = Mod360( CLNG(ToFill1Hue& - (LOG(CurUFill#)/LOG(BaseCol#))*WholeHueDeltaFill1&) )
  1317.                 CurFill1Sat& = Mod256( CLNG(ToFill1Sat& - (LOG(CurUFill#)/LOG(BaseCol#))*WholeSatDeltaFill1&) )
  1318.                 CurFill1Bri& = Mod256( CLNG(ToFill1Bri& - (LOG(CurUFill#)/LOG(BaseCol#))*WholeBriDeltaFill1&) )
  1319.                 IF OriginalFillType& = DRAW_FILL_FOUNTAIN& THEN
  1320.                     CurFill2Hue& = Mod360( CLNG(ToFill2Hue& - (LOG(CurUFill#)/LOG(BaseCol#))*WholeHueDeltaFill2&) )
  1321.                     CurFill2Sat& = Mod256( CLNG(ToFill2Sat& - (LOG(CurUFill#)/LOG(BaseCol#))*WholeSatDeltaFill2&) )
  1322.                     CurFill2Bri& = Mod256( CLNG(ToFill2Bri& - (LOG(CurUFill#)/LOG(BaseCol#))*WholeBriDeltaFill2&) )                    
  1323.                 ENDIF
  1324.             ENDIF
  1325.         ELSE
  1326.             CurUFill# = UniformFill# * Counter% + 1
  1327.             IF ColorBlendType% = DRAW_BLEND_DIRECT% THEN
  1328.                 ' Calculate the RGB color values.
  1329.                 CurOutlineRed& = FromOutlineRed& + ((LOG(CurUFill#)/LOG(BaseCol#) * WholeRedDeltaOutline&) MOD 256)
  1330.                 CurOutlineGreen& = FromOutlineGreen& + ((LOG(CurUFill#)/LOG(BaseCol#) * WholeGreenDeltaOutline&) MOD 256)
  1331.                 CurOutlineBlue& = FromOutlineBlue& + ((LOG(CurUFill#)/LOG(BaseCol#) * WholeBlueDeltaOutline&) MOD 256)
  1332.                 CurFill1Red& = FromFill1Red& + ((LOG(CurUFill#)/LOG(BaseCol#)) * WholeRedDeltaFill1&) MOD 256
  1333.                 CurFill1Green& = FromFill1Green& + ((LOG(CurUFill#)/LOG(BaseCol#)) * WholeGreenDeltaFill1&) MOD 256
  1334.                 CurFill1Blue& = FromFill1Blue& + ((LOG(CurUFill#)/LOG(BaseCol#)) * WholeBlueDeltaFill1&) MOD 256    
  1335.                 IF OriginalFillType& = DRAW_FILL_FOUNTAIN& THEN
  1336.                     CurFill2Red& = FromFill2Red& + ((LOG(CurUFill#)/LOG(BaseCol#)) * WholeRedDeltaFill2&) MOD 256
  1337.                     CurFill2Green& = FromFill2Green& + ((LOG(CurUFill#)/LOG(BaseCol#)) * WholeGreenDeltaFill2&) MOD 256
  1338.                     CurFill2Blue& = FromFill2Blue& + ((LOG(CurUFill#)/LOG(BaseCol#)) * WholeBlueDeltaFill2&) MOD 256                    
  1339.                 ENDIF
  1340.             ELSE
  1341.                 ' Calculate HSB color values.
  1342.                 CurOutlineHue& = Mod360( CLNG(FromOutlineHue& + (LOG(CurUFill#)/LOG(BaseCol#))*WholeHueDeltaOutline&) )
  1343.                 CurOutlineSat& = Mod256( CLNG(FromOutlineSat& + (LOG(CurUFill#)/LOG(BaseCol#))*WholeSatDeltaOutline&) )
  1344.                 CurOutlineBri& = Mod256( CLNG(FromOutlineBri& + (LOG(CurUFill#)/LOG(BaseCol#))*WholeBriDeltaOutline&) )
  1345.                 CurFill1Hue& = Mod360( CLNG(FromFill1Hue& + (LOG(CurUFill#)/LOG(BaseCol#))*WholeHueDeltaFill1&) )
  1346.                 CurFill1Sat& = Mod256( CLNG(FromFill1Sat& + (LOG(CurUFill#)/LOG(BaseCol#))*WholeSatDeltaFill1&) )
  1347.                 CurFill1Bri& = Mod256( CLNG(FromFill1Bri& + (LOG(CurUFill#)/LOG(BaseCol#))*WholeBriDeltaFill1&) )
  1348.                 IF OriginalFillType& = DRAW_FILL_FOUNTAIN& THEN
  1349.                     CurFill2Hue& = Mod360( CLNG(FromFill2Hue& + (LOG(CurUFill#)/LOG(BaseCol#))*WholeHueDeltaFill2&) )
  1350.                     CurFill2Sat& = Mod256( CLNG(FromFill2Sat& + (LOG(CurUFill#)/LOG(BaseCol#))*WholeSatDeltaFill2&) )
  1351.                     CurFill2Bri& = Mod256( CLNG(FromFill2Bri& + (LOG(CurUFill#)/LOG(BaseCol#))*WholeBriDeltaFill2&) )                    
  1352.                 ENDIF
  1353.             ENDIF
  1354.         ENDIF
  1355.     
  1356.         ' Actually make a contour object.
  1357.         .Separate
  1358.         .Ungroup    
  1359.         .SelectPreviousObject FALSE
  1360.         .SelectNextObject FALSE
  1361.         IDCurrent& = .GetObjectsCDRStaticID()
  1362.         
  1363.         ON ERROR GOTO ErrBadOffset
  1364.         IF Direction% = DRAW_CONTOUR_OUTSIDE& THEN
  1365.             IF ColorBlendType% = DRAW_BLEND_DIRECT% THEN
  1366.                 .StoreColor   DRAW_COLORMODEL_RGB&, CurOutlineRed&, CurOutlineGreen&, CurOutlineBlue&, 0
  1367.                 .StoreColor   DRAW_COLORMODEL_RGB&, CurFill1Red&, CurFill1Green&, CurFill1Blue&, 0
  1368.                 .StoreColor   DRAW_COLORMODEL_RGB&, CurFill2Red&, CurFill2Green&, CurFill2Blue&, 0
  1369.                 .ApplyContour DRAW_CONTOUR_OUTSIDE&, CurRealOffset&, 1, DRAW_BLEND_DIRECT%
  1370.             ELSE
  1371.                 .StoreColor   DRAW_COLORMODEL_HSB&, CurOutlineHue&, CurOutlineSat&, CurOutlineBri&, 0
  1372.                 .StoreColor   DRAW_COLORMODEL_HSB&, CurFill1Hue&, CurFill1Sat&, CurFill1Bri&, 0
  1373.                 .StoreColor   DRAW_COLORMODEL_HSB&, CurFill2Hue&, CurFill2Sat&, CurFill2Bri&, 0
  1374.                 .ApplyContour DRAW_CONTOUR_OUTSIDE&, CurRealOffset&, 1, DRAW_BLEND_DIRECT%
  1375.                 ' The DRAW_BLEND_DIRECT% is not a typo.  It has no effect since we're only applying 1 contour line.
  1376.             ENDIF
  1377.         ELSE
  1378.             ' We simulate to-center contours, we do not use the built-in
  1379.             ' functionality.
  1380.             
  1381.             ' Since we may not have accurately predicted the maximum number of offset lines,
  1382.             ' we need to check whether applying this contour is possible.
  1383.             DIM CurTestSizeX AS LONG
  1384.             DIM CurTestSizeY AS LONG
  1385.             DIM MaximumAllowableOffset AS LONG
  1386.             .GetSize CurTestSizeX&, CurTestSizeY&
  1387.             IF CurTestSizeX& > CurTestSizeY& THEN
  1388.                 MaximumAllowableOffset& = CurTestSizeY& / 2.2
  1389.             ELSE
  1390.                 MaximumAllowableOffset& = CurTestSizeX& / 2.2
  1391.             ENDIF
  1392.             IF CurRealOffset& > MaximumAllowableOffset& THEN
  1393.             
  1394.                 ' We no longer need to apply any other contour lines,
  1395.                 ' since we're out of space.
  1396.                 Counter% = Steps%
  1397.                 Steps% = Counter%
  1398.                 ParamDialog.StepsSpin.SetValue Steps%
  1399.  
  1400.             ELSE
  1401.  
  1402.                 IF ColorBlendType% = DRAW_BLEND_DIRECT% THEN
  1403.                     .StoreColor   DRAW_COLORMODEL_RGB&, CurOutlineRed&, CurOutlineGreen&, CurOutlineBlue&, 0
  1404.                     .StoreColor   DRAW_COLORMODEL_RGB&, CurFill1Red&, CurFill1Green&, CurFill1Blue&, 0
  1405.                     .StoreColor   DRAW_COLORMODEL_RGB&, CurFill2Red&, CurFill2Green&, CurFill2Blue&, 0
  1406.                     .ApplyContour DRAW_CONTOUR_INSIDE&, CurRealOffset&, 1, DRAW_BLEND_DIRECT%
  1407.                 ELSE
  1408.                     .StoreColor   DRAW_COLORMODEL_HSB&, CurOutlineHue&, CurOutlineSat&, CurOutlineBri&, 0
  1409.                     .StoreColor   DRAW_COLORMODEL_HSB&, CurFill1Hue&, CurFill1Sat&, CurFill1Bri&, 0
  1410.                     .StoreColor   DRAW_COLORMODEL_HSB&, CurFill2Hue&, CurFill2Sat&, CurFill2Bri&, 0
  1411.                     .ApplyContour DRAW_CONTOUR_INSIDE&, CurRealOffset&, 1, DRAW_BLEND_DIRECT%
  1412.                     ' The DRAW_BLEND_DIRECT% is not a typo.  It has no effect since we're only applying 1 contour line.
  1413.                 ENDIF
  1414.     
  1415.             ENDIF
  1416.  
  1417.         ENDIF
  1418.         ON ERROR EXIT
  1419.         
  1420.         .Separate
  1421.         .Ungroup    
  1422.         .SelectPreviousObject FALSE
  1423.         .SelectNextObject FALSE
  1424.         IDContoured& = .GetObjectsCDRStaticID()
  1425.         .SelectObjectOfCDRStaticID IDCurrent&
  1426.         IF IDLast& > 0 THEN
  1427.             .AppendObjectToSelection IDLast&
  1428.             .Group
  1429.         ENDIF
  1430.         IDLast& = .GetObjectsCDRStaticID()
  1431.         .SelectObjectOfCDRStaticID IDContoured&
  1432.                 
  1433.         ' Update LastUOffset#.
  1434.         LastUOffset# = CurUOffset#
  1435.         
  1436.     NEXT Counter%
  1437.  
  1438.     IF IDLast& > 0 THEN
  1439.         .AppendObjectToSelection IDLast&
  1440.         .Group
  1441.     ENDIF
  1442.     
  1443.     ' Retrieve the ID of this new "contour group" in case the user
  1444.     ' wants to erase it and start again.
  1445.     IDLastFullContour& = .GetObjectsCDRStaticID()
  1446.     ParamDialog.UndoButton.Enable TRUE
  1447.  
  1448.     VeryEnd:
  1449.         EXIT SUB
  1450.     
  1451. ErrBadOffset:
  1452.     ' This is just a precaution, and should never happen
  1453.     ' in practice.
  1454.     ERRNUM = 0
  1455.  
  1456.     ' Retrieve the main CorelDRAW directory and path from the registry.
  1457.     DIM MainDrawDir AS STRING
  1458.     MainDrawDir$ = REGISTRYQUERY (HKEY_LOCAL_MACHINE, \\
  1459.                                   REG_CORELDRAW_PATH$, \\
  1460.                                   REG_CORELDRAW_MAIN_DIR_KEY$)
  1461.     MainDrawDir$ = MainDrawDir$ + "\Draw"
  1462.     .FileSave MainDrawDir$ + "\ACBackup.cdr", 3, FALSE, 0, TRUE
  1463.     MsgReturn& = MESSAGEBOX("A very severe error has occurred in the " + \\
  1464.                              "Accelerated Contour Tool." + NL2 + \\
  1465.                              "As a precaution, your document has been saved as " + \\
  1466.                              MainDrawDir$ + "\ACBackup.cdr." + NL2 + \\
  1467.                              "If you experience any problems, re-load Draw and " + \\
  1468.                              "open this file.", \\
  1469.                         TITLE_ERRORBOX$, MB_STOP_ICON&)
  1470.     STOP
  1471.     Steps% = Counter% - 1
  1472.     ParamDialog.StepsSpin.SetValue Steps%
  1473.     RESUME AT VeryEnd
  1474.  
  1475. END SUB
  1476.  
  1477. '********************************************************************
  1478. '
  1479. ' MAIN PROGRAM
  1480. '
  1481. '********************************************************************
  1482. DIM GenReturn AS LONG        ' The return value of various routines.
  1483.  
  1484. REM     ' Retrieve the ID of the currently selected object in DRAW.
  1485. REM     IDOriginal& = .GetObjectsCDRStaticID()
  1486. REM 
  1487. REM     ' Retrieve its fill type.
  1488. REM     OriginalFillType& = .GetFillType()
  1489.     
  1490.     ' Show the dialog.
  1491.     GenReturn& = DIALOG(ParamDialog)
  1492. REM     IF GenReturn& = DIALOG_RETURN_OK% THEN
  1493. REM 
  1494. REM         ' Delete the original object, since the user wants
  1495. REM         ' to keep the contour effect.
  1496. REM         .SelectObjectOfCDRStaticID IDOriginal&
  1497. REM         IF IDLastFullContour& > 0 THEN
  1498. REM             .DeleteObject
  1499. REM             .SelectObjectOfCDRStaticID IDLastFullContour&
  1500. REM         ENDIF
  1501. REM 
  1502. REM     ELSE
  1503. REM 
  1504. REM         ' The user does not want to keep whatever effect
  1505. REM         ' was applied.
  1506. REM         IF (IDLastFullContour& > 0) THEN
  1507. REM             .SelectObjectOfCDRStaticID IDLastFullContour&
  1508. REM             .DeleteObject
  1509. REM         ENDIF
  1510. REM         .SelectObjectOfCDRStaticID IDOriginal&
  1511. REM                 
  1512. REM     ENDIF
  1513.  
  1514. STOP
  1515.  
  1516. '********************************************************************
  1517. '
  1518. '    Name:    Min (function)
  1519. '
  1520. '    Action:    Returns the lowest of two numbers.
  1521. '
  1522. '    Params:    Val1 - The first number.
  1523. '            Val2 - The second number.
  1524. '
  1525. '    Returns:    Whichever is smallest, Val1 or Val2.
  1526. '
  1527. '    Comments:    None.
  1528. '
  1529. '********************************************************************
  1530. FUNCTION Min( Val1 AS INTEGER, Val2 AS INTEGER ) AS INTEGER
  1531.  
  1532.     IF Val1% < Val2% THEN
  1533.         Min% = Val1%
  1534.     ELSE
  1535.         Min% = Val2%
  1536.     ENDIF
  1537.  
  1538. END FUNCTION
  1539.  
  1540. '********************************************************************
  1541. '
  1542. '    Name:    MakeHSB (subroutine)
  1543. '
  1544. '    Action:    Converts an RGB color to its HSB equivalent.
  1545. '
  1546. '    Params:    InRed - The red component of the color to convert.
  1547. '            InGreen - The green component of the color to convert.
  1548. '            InBlue - The blue component of the color to convert.
  1549. '            OutHue - The hue component of the HSB equivalent.
  1550. '            OutSat - The saturation component of the HSB equivalent.
  1551. '              OutBri - The brightness component of the HSB equivalent.
  1552. '
  1553. '    Returns:    None.
  1554. '
  1555. '    Comments:    None.
  1556. '
  1557. '********************************************************************
  1558. SUB MakeHSB( BYVAL InRed AS LONG,   \\
  1559.              BYVAL InGreen AS LONG, \\
  1560.              BYVAL InBlue AS LONG,  \\
  1561.              BYREF OutHue AS LONG,  \\
  1562.              BYREF OutSat AS LONG,  \\
  1563.              BYREF OutBri AS LONG )
  1564.  
  1565.     DIM OutComponent4 AS LONG
  1566.     
  1567.     .StoreColor DRAW_COLORMODEL_RGB&, InRed&, InGreen&, InBlue&, 0
  1568.     .ConvertColor DRAW_COLORMODEL_HSB&, OutHue&, OutSat&, OutBri&, OutComponent4&
  1569.  
  1570. END SUB
  1571.  
  1572. '********************************************************************
  1573. '
  1574. '    Name:    Mod256 (function)
  1575. '
  1576. '    Action:    Takes a long integer and adds or subtracts a
  1577. '            multiple of 256 so that the number is between
  1578. '            0 and 255 inclusive.
  1579. '
  1580. '    Params:    InNum - The number to perform the operation on.
  1581. '
  1582. '    Returns:    A LONG between 0 and 255 inclusive.
  1583. '
  1584. '    Comments:    None.
  1585. '
  1586. '********************************************************************
  1587. FUNCTION Mod256( InNum AS LONG ) AS LONG
  1588.  
  1589.     IF (InNum& >= 0) THEN
  1590.         Mod256& = InNum& MOD 256
  1591.     ELSE
  1592.         Mod256& = (CLNG(InNum& / 256) * -256 + 256 + InNum&) MOD 256
  1593.     ENDIF
  1594.  
  1595. END FUNCTION
  1596.  
  1597. '********************************************************************
  1598. '
  1599. '    Name:    Mod360 (function)
  1600. '
  1601. '    Action:    Takes a long integer and adds or subtracts a
  1602. '            multiple of 360 so that the number is between
  1603. '            0 and 360 inclusive.
  1604. '
  1605. '    Params:    InNum - The number to perform the operation on.
  1606. '
  1607. '    Returns:    A LONG between 0 and 360 inclusive.
  1608. '
  1609. '    Comments:    None.
  1610. '
  1611. '********************************************************************
  1612. FUNCTION Mod360( InNum AS LONG ) AS LONG
  1613.  
  1614.     IF (InNum& >= 0) THEN
  1615.         Mod360& = InNum& MOD 360
  1616.     ELSE
  1617.         Mod360& = (CLNG(InNum& / 360) * -360 + 360 + InNum&) MOD 360
  1618.     ENDIF
  1619.  
  1620. END FUNCTION
  1621.  
  1622. '********************************************************************
  1623. '
  1624. '    Name:    CheckForSelection (function)
  1625. '
  1626. '    Action:    Checks whether an object is currently selected
  1627. '            in CorelDRAW.
  1628. '
  1629. '    Params:    None.
  1630. '
  1631. '    Returns:    TRUE if an object is currently selected;  FALSE
  1632. '              otherwise.
  1633. '
  1634. '    Comments:    Never raises any errors. 
  1635. '
  1636. '********************************************************************
  1637. FUNCTION CheckForSelection AS BOOLEAN
  1638.  
  1639.     DIM ObjType AS LONG     ' The currently selected object type.
  1640.  
  1641.     ON ERROR GOTO CFSNothingError
  1642.     
  1643.     ObjType& = .GetObjectType()
  1644.     IF (ObjType& <= DRAW_OBJECT_TYPE_RESERVED) THEN
  1645.         CheckForSelection = FALSE
  1646.     ELSE
  1647.         CheckForSelection = TRUE
  1648.     ENDIF
  1649.  
  1650.     ExitPart:
  1651.         EXIT FUNCTION
  1652.  
  1653. CFSNothingError:
  1654.     ERRNUM = 0
  1655.     CheckForSelection = FALSE
  1656.     RESUME AT ExitPart
  1657.  
  1658. END FUNCTION
  1659.  
  1660. '********************************************************************
  1661. '
  1662. '    Name:    CheckForContour (function)
  1663. '
  1664. '    Action:    Checks whether the currently selected object in
  1665. '              CorelDRAW can have the contour effect applied to
  1666. '              it.
  1667. '
  1668. '    Params:    None.
  1669. '
  1670. '    Returns:    FALSE if there is nothing selected in CorelDRAW or
  1671. '              if there is something selected but it cannot have
  1672. '              the contour effect applied to it.  TRUE otherwise.
  1673. '
  1674. '    Comments:    Never raises any errors. 
  1675. '
  1676. '********************************************************************
  1677. FUNCTION CheckForContour AS BOOLEAN
  1678.  
  1679.     ON ERROR GOTO CFCNotContourableError
  1680.  
  1681.     ' We're just doing a simple contour, so omit most of the
  1682.     ' optional parameters.
  1683.     .ApplyContour 2, 25400, 1
  1684.     
  1685.     ' Undo what we just did.
  1686.     .Undo
  1687.     
  1688.     ' We've been successful, so return TRUE.
  1689.     CheckForContour = TRUE    
  1690.  
  1691.     ExitPart:
  1692.         EXIT FUNCTION
  1693.  
  1694. CFCNotContourableError:
  1695.     ERRNUM = 0
  1696.     CheckForContour = FALSE
  1697.     RESUME AT ExitPart
  1698.  
  1699. END FUNCTION
  1700.  
  1701. END WITHOBJECT
  1702.  
  1703.