home *** CD-ROM | disk | FTP | other *** search
/ CorelDRAW! 10 / cd10_pgrm.iso / Corel / Graphics10 / Draw / Scripts / Misc / replica.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  16.8 KB  |  534 lines
  1. REM Repeatedly duplicates or clones
  2. REM the currently selected object.
  3.  
  4. '********************************************************************
  5. ' 
  6. '   Script:    Replica.csc
  7. ' 
  8. '   Copyright 1996 Corel Corporation.  All rights reserved.
  9. ' 
  10. '   Description: CorelDRAW script to repeatedly duplicate or
  11. '                clone the currently selected object.
  12. ' 
  13. '********************************************************************
  14.  
  15. #addfol  "..\..\..\Scripts"
  16. #include "ScpConst.csi"
  17. #include "DrwConst.csi"
  18.  
  19. '/////FUNCTION & SUBROUTINE DECLARATIONS/////////////////////////////
  20. DECLARE FUNCTION CheckForSelection() AS BOOLEAN
  21. DECLARE FUNCTION ValidateInput(OperationType AS INTEGER,        \\
  22.                             BYREF Reps AS INTEGER,            \\
  23.                             BYREF Horiz AS INTEGER,            \\
  24.                             BYREF Vert AS INTEGER,            \\
  25.                             HorizUnit AS INTEGER,            \\
  26.                             VertUnit AS INTEGER) AS BOOLEAN
  27. DECLARE SUB DoOperation(OperationType AS INTEGER,                \\
  28.                       Reps AS INTEGER,                    \\
  29.                      Horiz AS INTEGER,                    \\
  30.                      Vert AS INTEGER,                    \\
  31.                      HorizUnit AS INTEGER,                 \\
  32.                      VertUnit AS INTEGER)
  33.  
  34. '/////GLOBAL VARIABLES & CONSTANTS///////////////////////////////////
  35. GLOBAL CONST OPERATION_DUPLICATE% = 0
  36. GLOBAL CONST OPERATION_CLONE%     = 1
  37. GLOBAL CONST TITLE_ERRORBOX$      = "Replicate Script Error"
  38. GLOBAL CONST TITLE_INFOBOX$       = "Replicate Script Information"
  39. GLOBAL NL AS STRING         ' These must be declared as 
  40. GLOBAL NL2 AS STRING     ' variables, not constants, because
  41. NL$ = CHR(10) + CHR(13)    ' we cannot assign expressions
  42. NL2$ = NL + NL             ' to constants.
  43.  
  44. ' Constants for dialog return values.
  45. GLOBAL CONST DIALOG_RETURN_OK%     = 1
  46. GLOBAL CONST DIALOG_RETURN_CANCEL% = 2
  47.  
  48. '/////OPTIONS DIALOG/////////////////////////////////////////////////
  49.  
  50. ' The array of possible units the user may select from.
  51. DIM UnitsArray(6) AS STRING
  52. UnitsArray(1) = "1 in."
  53. UnitsArray(2) = "1/36 in."
  54. UnitsArray(3) = "0.001 in."
  55. UnitsArray(4) = "1 cm."
  56. UnitsArray(5) = "0.001 cm."
  57. UnitsArray(6) = "1 pt."
  58.  
  59. ' Set defaults for the dialog.
  60. DIM OperationType AS INTEGER        ' Duplicate or clone?
  61. DIM Reps AS INTEGER                ' Repeat how many times?
  62. DIM Horiz AS INTEGER            ' Horizontal offset.
  63. DIM Vert AS INTEGER                ' Vertical offset.
  64. DIM HorizUnit AS INTEGER            ' Horizontal offset units.
  65. DIM VertUnit  AS INTEGER            ' Vertical offset units.
  66. OperationType% = OPERATION_DUPLICATE%
  67. Reps% = 3
  68. Horiz% = 2
  69. Vert% = 2
  70. HorizUnit% = 1
  71. VertUnit%  = 1
  72.  
  73. ' This is the main options dialog.
  74. BEGIN DIALOG OptionsDialog 207, 182, "Replication Options"
  75.     TEXT  10, 6, 175, 31, "This script repeatedly duplicates or clones the currently selected object."
  76.     OKBUTTON  47, 161, 50, 13
  77.     CANCELBUTTON  107, 161, 50, 13
  78.     OPTIONGROUP OperationType%
  79.         OPTIONBUTTON  24, 42, 50, 15, "Duplicate"
  80.         OPTIONBUTTON  24, 60, 40, 10, "Clone"
  81.     GROUPBOX  12, 90, 185, 60, "Place duplicates and clones"
  82.     SPINCONTROL  132, 52, 54, 12, Reps%
  83.     SPINCONTROL  66, 108, 54, 12, Horiz%
  84.     DDLISTBOX  132, 108, 54, 197, UnitsArray$, HorizUnit%
  85.     SPINCONTROL  66, 126, 54, 12, Vert%
  86.     DDLISTBOX  132, 126, 54, 178, UnitsArray$, VertUnit%
  87.     TEXT  24, 110, 35, 11, "Horizontal:"
  88.     TEXT  24, 127, 35, 10, "Vertical:"
  89.     GROUPBOX  12, 30, 186, 48, "Operation"
  90.     TEXT  84, 52, 42, 12, "How many"
  91.     TEXT  124, 109, 6, 11, "x"
  92.     TEXT  124, 127, 6, 11, "x"
  93. END DIALOG
  94.  
  95. '********************************************************************
  96. ' MAIN
  97. '
  98. '
  99. '********************************************************************
  100.  
  101. '/////LOCAL VARIABLES////////////////////////////////////////////////
  102. DIM MessageText AS STRING    ' Text to use in a MESSAGEBOX.
  103. DIM GenReturn AS INTEGER        ' The return value of various routines.
  104. DIM Selection AS BOOLEAN        ' Whether any object is selected in draw.
  105. DIM Valid AS BOOLEAN        ' Whether the user's options were valid.
  106.  
  107. ' Check to see if CorelDRAW's automation object is available.
  108. ON ERROR RESUME NEXT
  109. WITHOBJECT OBJECT_DRAW
  110.     IF (ERRNUM > 0) THEN
  111.         ' Failed to create the automation object.
  112.         ERRNUM = 0
  113.         GenReturn = MESSAGEBOX( "Could not find CorelDRAW."+NL2+\\
  114.                             "If this error persists, you "+ \\
  115.                             "may need to re-install "+      \\
  116.                             "CorelDRAW.",                 \\
  117.                                TITLE_ERRORBOX,                 \\
  118.                             MB_OK_ONLY )
  119.         STOP
  120.     ENDIF
  121.  
  122. ' Set up a general error handler.
  123. ON ERROR GOTO MainErrorHandler
  124.  
  125. ' Check whether anything is selected.
  126. Selection = CheckForSelection() 
  127.  
  128. IF NOT Selection THEN
  129.     MessageText$ = "Please select an object to replicate or "
  130.     MessageText$ = MessageText$ + "clone before running this script."
  131.     GenReturn% = MESSAGEBOX(MessageText$, TITLE_INFOBOX$, \\
  132.                             MB_OK_ONLY& OR MB_INFORMATION_ICON&)
  133.     STOP
  134. ENDIF
  135.  
  136. ' Display the user-interface dialog.
  137. DO
  138.  
  139.     GenReturn = DIALOG(OptionsDialog)
  140.     SELECT CASE GenReturn
  141.  
  142.         CASE DIALOG_RETURN_OK
  143.             Valid = ValidateInput(OperationType%,            \\
  144.                                Reps%,                     \\
  145.                               Horiz%,                    \\
  146.                               Vert%,                    \\
  147.                               HorizUnit%,                \\
  148.                               VertUnit%)
  149.             
  150.         CASE DIALOG_RETURN_CANCEL
  151.             STOP
  152.  
  153.         CASE ELSE
  154.             FAIL ERR_USER_FIRST
  155.  
  156.     END SELECT
  157.  
  158. LOOP UNTIL Valid
  159.  
  160. ' Perform the main processing.
  161. DoOperation OperationType, Reps, Horiz, Vert, HorizUnit, VertUnit
  162. STOP
  163.  
  164. MainErrorHandler:
  165.     ERRNUM = 0
  166.     MessageText$ = "A general error occurred during the "
  167.     MessageText$ = MessageText$ + "replication process." + NL2
  168.     MessageText$ = MessageText$ + "You may wish to try again."
  169.     GenReturn% = MESSAGEBOX(MessageText$, TITLE_ERRORBOX$, \\
  170.                             MB_OK_ONLY& OR MB_EXCLAMATION_ICON&)
  171.     STOP
  172.  
  173. '********************************************************************
  174. '
  175. '    Name:    CheckForSelection (function)
  176. '
  177. '    Action:    Checks whether an object is currently selected
  178. '            in CorelDRAW.
  179. '
  180. '    Params:    None
  181. '
  182. '    Returns:    TRUE if an object is currently selected;  FALSE
  183. '            otherwise.
  184. '
  185. '    Comments:    Never raises any errors. 
  186. '
  187. '********************************************************************
  188. FUNCTION CheckForSelection AS BOOLEAN
  189.  
  190.     DIM ObjType AS LONG     ' The currently selected object type.
  191.     
  192.     ON ERROR RESUME NEXT
  193.     ObjType& = .GetObjectType()
  194.     IF (ObjType& <= 0) OR (ERRNUM > 0) THEN
  195.         ERRNUM = 0
  196.         CheckForSelection = FALSE
  197.     ELSE
  198.         CheckForSelection = TRUE
  199.     ENDIF
  200.  
  201. END FUNCTION
  202.  
  203. '********************************************************************
  204. '
  205. '    Name:    ValidateInput (function)
  206. '
  207. '    Action:    Checks whether the options the user entered make 
  208. '              sense.
  209. '
  210. '    Params:    OperationType - Clone or duplicate?
  211. '            Reps          - The number of repetitions.
  212. '            Horiz         - The Horizontal offset distance.
  213. '            Vert          - The vertical offset distance.
  214. '            HorizUnit     - What unit is Horiz?
  215. '            VertUnit      - What unit is Vert? 
  216. '
  217. '    Returns:    TRUE if the input makes sense, FALSE otherwise.
  218. '
  219. '    Comments:    Never raises any errors.
  220. '              Does not ensure that all numbers are perfectly
  221. '              valid (ie. Horiz may take the object off the page),
  222. '              only that they are sane (ie. Reps is positive).
  223. '
  224. '********************************************************************
  225. FUNCTION ValidateInput(OperationType AS INTEGER,                \\
  226.                    BYREF Reps AS INTEGER,                \\
  227.                    BYREF Horiz AS INTEGER,                \\
  228.                    BYREF Vert AS INTEGER,                \\
  229.                    HorizUnit AS INTEGER,                    \\
  230.                    VertUnit AS INTEGER) AS BOOLEAN
  231.  
  232.     DIM ReturnVal% AS INTEGER    ' The return value of MESSAGEBOX.
  233.     DIM AvailableX AS LONG        ' The page width.
  234.     DIM AvailableY AS LONG        ' The page height.
  235.     DIM FinalX AS LONG            ' The final x position.
  236.     DIM FinalY AS LONG            ' The final y position.
  237.     
  238.     ' This error handler ensures no error will ever propagate
  239.     ' out of this function.
  240.     ON ERROR GOTO VIGeneralError
  241.     
  242.     ' Check if Reps is positive.
  243.     IF (Reps% < 1) THEN
  244.         ReturnVal% = MESSAGEBOX("You have requested "+CSTR(Reps) + \\
  245.                               " repetitions.  This is not a valid "+ \\
  246.                               "number."+NL2+"Please try again, "   + \\
  247.                               "remembering to choose a number "    + \\
  248.                               "greater than 0.", TITLE_ERRORBOX$,    \\
  249.                               MB_OK_ONLY)
  250.         Reps% = 1
  251.         ValidateInput = FALSE
  252.         EXIT FUNCTION
  253.     ELSEIF (Reps% >= 32767) THEN
  254.         ReturnVal% = MESSAGEBOX("You have requested a very large number of repetitions." + \\
  255.                                 NL + "This number is too high." + NL2 + \\
  256.                             "Please try again, remembering to choose " + \\
  257.                             "a number less than 100.", TITLE_ERRORBOX$, \\
  258.                             MB_OK_ONLY)
  259.         Reps% = 99
  260.         ValidateInput = FALSE
  261.         EXIT FUNCTION
  262.     ELSEIF (Reps% > 99) THEN
  263.         ReturnVal% = MESSAGEBOX("You have requested " + CSTR(Reps) + \\
  264.                             " repetitions.  This number is too high." + NL2 + \\
  265.                             "Please try again, remembering to choose " + \\
  266.                             "a number less than 100.", TITLE_ERRORBOX$, \\
  267.                             MB_OK_ONLY)
  268.         Reps% = 99
  269.         ValidateInput = FALSE
  270.         EXIT FUNCTION
  271.     ENDIF
  272.  
  273.     ' Check the range of Horiz.
  274.     IF (ABS(Horiz%) > 999) THEN
  275.         ReturnVal% = MESSAGEBOX("You have entered a very large or very small number" + NL + \\
  276.                                 "for the horizontal offset." + NL2 + \\
  277.                                 "Valid values are from -999 to 999." + NL + \\
  278.                             "Please try again, remembering to choose " + \\
  279.                             "a number in this range.", TITLE_ERRORBOX$, \\
  280.                             MB_OK_ONLY)
  281.         Horiz% = 0
  282.         IF (ABS(Vert%) > 999) THEN
  283.             Vert% = 0
  284.         ENDIF
  285.         ValidateInput = FALSE
  286.         EXIT FUNCTION
  287.     ENDIF
  288.  
  289.     ' Check the range of Vert.
  290.     IF (ABS(Vert%) > 999) THEN
  291.         ReturnVal% = MESSAGEBOX("You have entered a very large or very small number" + NL + \\
  292.                                 "for the vertical offset." + NL2 + \\
  293.                                 "Valid values are from -999 to 999." + NL + \\
  294.                             "Please try again, remembering to choose " + \\
  295.                             "a number" + NL + "in this range.", TITLE_ERRORBOX$, \\
  296.                             MB_OK_ONLY)
  297.         Vert% = 0
  298.         IF (ABS(Horiz%) > 999) THEN
  299.             Vert% = 0
  300.         ENDIF
  301.         ValidateInput = FALSE
  302.         EXIT FUNCTION
  303.     ENDIF
  304.  
  305.     ' Check the range.
  306.     .GetPageSize AvailableX&, AvailableY&
  307.     
  308.     ' Make sure we're never going off the page.
  309.     SELECT CASE HorizUnit%
  310.     
  311.         CASE 1 ' 1 in.
  312.             FinalX& = Horiz% * Reps% * 1 * \\
  313.                      LENGTHCONVERT(LC_INCHES, \\
  314.                                    LC_TENTHS_OFA_MICRON, \\
  315.                                 1)
  316.         CASE 2 ' 1/36 in.
  317.             FinalX& = Horiz% * Reps% * (1/36) *   \\
  318.                      LENGTHCONVERT(LC_INCHES,       \\
  319.                                    LC_TENTHS_OFA_MICRON, \\
  320.                                 1)
  321.         CASE 3 ' 0.001 in.
  322.             FinalX& = Horiz% * Reps% * 0.001 *    \\
  323.                      LENGTHCONVERT(LC_INCHES,       \\
  324.                                    LC_TENTHS_OFA_MICRON, \\
  325.                                 1)
  326.         CASE 4 ' 1 cm.
  327.             FinalX& = Horiz% * Reps% * 1 *        \\
  328.                      LENGTHCONVERT(LC_CENTIMETERS,  \\
  329.                                 LC_TENTHS_OFA_MICRON, \\
  330.                                 1)
  331.         CASE 5 ' 0.001 cm.
  332.             FinalX& = Horiz% * Reps% * 0.001 *    \\
  333.                      LENGTHCONVERT(LC_CENTIMETERS,  \\
  334.                                 LC_TENTHS_OFA_MICRON, \\
  335.                                 1)
  336.         CASE 6 ' 1 pt.
  337.             FinalX& = Horiz% * Reps% * 1 *        \\
  338.                      LENGTHCONVERT(LC_POINTS,       \\
  339.                                 LC_TENTHS_OFA_MICRON, \\
  340.                                 1)
  341.  
  342.     END SELECT
  343.     SELECT CASE VertUnit%
  344.     
  345.         CASE 1 ' 1 in.
  346.             FinalY& = Vert% * Reps% * 1 *         \\
  347.                      LENGTHCONVERT(LC_INCHES,       \\
  348.                                    LC_TENTHS_OFA_MICRON, \\
  349.                                 1)
  350.         CASE 2 ' 1/36 in.
  351.             FinalY& = Vert% * Reps% * (1/36) *    \\
  352.                      LENGTHCONVERT(LC_INCHES,       \\
  353.                                    LC_TENTHS_OFA_MICRON, \\
  354.                                 1)
  355.         CASE 3 ' 0.001 in.
  356.             FinalY& = Vert% * Reps% * 0.001 * \\
  357.                      LENGTHCONVERT(LC_INCHES,       \\
  358.                                    LC_TENTHS_OFA_MICRON, \\
  359.                                 1)
  360.         CASE 4 ' 1 cm.
  361.             FinalY& = Vert% * Reps% * 1 *         \\
  362.                      LENGTHCONVERT(LC_CENTIMETERS,  \\
  363.                                 LC_TENTHS_OFA_MICRON, \\
  364.                                 1)
  365.         CASE 5 ' 0.001 cm.
  366.             FinalY& = Vert% * Reps% * 0.001 *     \\
  367.                      LENGTHCONVERT(LC_CENTIMETERS,  \\
  368.                                 LC_TENTHS_OFA_MICRON, \\
  369.                                 1)
  370.         CASE 6 ' 1 pt.
  371.             FinalY& = Vert% * Reps% * 1 *         \\
  372.                      LENGTHCONVERT(LC_POINTS,       \\
  373.                                 LC_TENTHS_OFA_MICRON, \\
  374.                                 1)
  375.  
  376.     END SELECT
  377.  
  378.     IF (FinalX& > AvailableX&) OR (FinalY& > AvailableY&) THEN
  379.         ReturnVal% = MESSAGEBOX("You will go very far off the page with the values you have chosen." + \\
  380.                                 NL2 + "Please choose a smaller number of repetitions or smaller offsets and try again.", \\
  381.                             TITLE_ERRORBOX$, MB_OK_ONLY)
  382.         ValidateInput = FALSE
  383.         EXIT FUNCTION
  384.     ENDIF
  385.  
  386.     ValidateInput = TRUE
  387.     
  388.     VI_End:
  389.     EXIT FUNCTION
  390.     
  391. VIGeneralError:
  392.     ERRNUM = 0
  393.     ValidateInput = FALSE
  394.     RESUME AT VI_End
  395.  
  396. END FUNCTION
  397.  
  398. '********************************************************************
  399. '
  400. '    Name:    DoOperation (subroutine)
  401. '
  402. '    Action:    Actually performs the multiple duplication or cloning
  403. '              operation.
  404. '
  405. '    Params:    OperationType - Clone or duplicate?
  406. '            Reps          - The number of repetitions.
  407. '            Horiz         - The Horizontal offset distance.
  408. '            Vert          - The vertical offset distance.
  409. '            HorizUnit     - What unit is Horiz?
  410. '            VertUnit      - What unit is Vert? 
  411. '
  412. '    Returns:    Nothing.
  413. '
  414. '    Comments:    Propagates any errors encountered, so it would
  415. '              be wise to call this subroutine within an error-
  416. '              handling block.
  417. '
  418. '********************************************************************
  419. SUB DoOperation(OperationType AS INTEGER,                    \\
  420.               Reps AS INTEGER,                            \\
  421.              Horiz AS INTEGER,                            \\
  422.              Vert AS INTEGER,                            \\
  423.              HorizUnit AS INTEGER,                        \\
  424.              VertUnit AS INTEGER)
  425.  
  426.     DIM InitialXPos AS LONG ' The selected object(s)' X coordinate.
  427.     DIM InitialYPos AS LONG ' The selected object(s)' Y coordinate.
  428.     DIM NewXPos AS LONG        ' The clone/duplicate's X coordinate.
  429.     DIM NewYPos AS LONG        ' The clone/duplicate's Y coordinate.
  430.     DIM Counter AS INTEGER  ' A counter variable for loops.    
  431.         
  432.     .GetPosition InitialXPos&, InitialYPos&
  433.     
  434.     FOR Counter% = 1 TO Reps
  435.  
  436.         ' Clone or duplicate.
  437.         IF (OperationType% = OPERATION_DUPLICATE) THEN
  438.             .DuplicateObject
  439.         ELSE ' Clone.
  440.             .CloneObject
  441.         ENDIF
  442.  
  443.         ' Determine where the new object should go.
  444.         SELECT CASE HorizUnit
  445.         
  446.             CASE 1 ' 1 in.
  447.                 NewXPos& = InitialXPos& +                 \\
  448.                                     Horiz% * Counter% * 1 *        \\
  449.                          LENGTHCONVERT(LC_INCHES,       \\
  450.                                        LC_TENTHS_OFA_MICRON, \\
  451.                                     1)
  452.             CASE 2 ' 1/36 in.
  453.                 NewXPos& = InitialXPos& +                 \\
  454.                                     Horiz% * Counter% * (1/36) *   \\
  455.                          LENGTHCONVERT(LC_INCHES,       \\
  456.                                        LC_TENTHS_OFA_MICRON, \\
  457.                                     1)
  458.             CASE 3 ' 0.001 in.
  459.                 NewXPos& = InitialXPos& +                 \\
  460.                                     Horiz% * Counter% * 0.001 *    \\
  461.                          LENGTHCONVERT(LC_INCHES,       \\
  462.                                        LC_TENTHS_OFA_MICRON, \\
  463.                                     1)
  464.             CASE 4 ' 1 cm.
  465.                 NewXPos& = InitialXPos& +                 \\
  466.                          Horiz% * Counter% * 1 *        \\
  467.                          LENGTHCONVERT(LC_CENTIMETERS,  \\
  468.                                     LC_TENTHS_OFA_MICRON, \\
  469.                                     1)
  470.             CASE 5 ' 0.001 cm.
  471.                 NewXPos& = InitialXPos& +                 \\
  472.                          Horiz% * Counter% * 0.001 *    \\
  473.                          LENGTHCONVERT(LC_CENTIMETERS,  \\
  474.                                     LC_TENTHS_OFA_MICRON, \\
  475.                                     1)
  476.             CASE 6 ' 1 pt.
  477.                 NewXPos& = InitialXPos& +                 \\
  478.                          Horiz% * Counter% * 1 *        \\
  479.                          LENGTHCONVERT(LC_POINTS,       \\
  480.                                     LC_TENTHS_OFA_MICRON, \\
  481.                                     1)
  482.  
  483.         END SELECT
  484.         SELECT CASE VertUnit
  485.         
  486.             CASE 1 ' 1 in.
  487.                 NewYPos& = InitialYPos& +                 \\
  488.                                     Vert% * Counter% * 1 *         \\
  489.                          LENGTHCONVERT(LC_INCHES,       \\
  490.                                        LC_TENTHS_OFA_MICRON, \\
  491.                                     1)
  492.             CASE 2 ' 1/36 in.
  493.                 NewYPos& = InitialYPos& +                 \\
  494.                                     Vert% * Counter% * (1/36) *    \\
  495.                          LENGTHCONVERT(LC_INCHES,       \\
  496.                                        LC_TENTHS_OFA_MICRON, \\
  497.                                     1)
  498.             CASE 3 ' 0.001 in.
  499.                 NewYPos& = InitialYPos& +                 \\
  500.                                     Vert% * Counter% * 0.001 *     \\
  501.                          LENGTHCONVERT(LC_INCHES,       \\
  502.                                        LC_TENTHS_OFA_MICRON, \\
  503.                                     1)
  504.             CASE 4 ' 1 cm.
  505.                 NewYPos& = InitialYPos& +                 \\
  506.                          Vert% * Counter% * 1 *         \\
  507.                          LENGTHCONVERT(LC_CENTIMETERS,  \\
  508.                                     LC_TENTHS_OFA_MICRON, \\
  509.                                     1)
  510.             CASE 5 ' 0.001 cm.
  511.                 NewYPos& = InitialYPos& +                 \\
  512.                          Vert% * Counter% * 0.001 *     \\
  513.                          LENGTHCONVERT(LC_CENTIMETERS,  \\
  514.                                     LC_TENTHS_OFA_MICRON, \\
  515.                                     1)
  516.             CASE 6 ' 1 pt.
  517.                 NewYPos& = InitialYPos& +                 \\
  518.                          Vert% * Counter% * 1 *         \\
  519.                          LENGTHCONVERT(LC_POINTS,       \\
  520.                                     LC_TENTHS_OFA_MICRON, \\
  521.                                     1)
  522.  
  523.         END SELECT
  524.  
  525.         ' Put the new object where it should go.
  526.         .SetPosition NewXPos&, NewYPos&
  527.  
  528.     NEXT Counter
  529.  
  530. END SUB
  531.  
  532. END WITHOBJECT
  533.  
  534.