[IShowActions,0]//hides interface actions from user [VarDef,ActiveTool,0] [VarDef,ActiveToolPoSX,0] [VarDef,ActiveToolPoSy,0] [VarDef,ActiveToolPosz,0] [VarDef,ActiveToolSizEx,0] [VarDef,ActiveToolSizEy,0] [VarDef,ActiveToolSizEz,0] [VarDef,TargetTool,0] [VarDef,TargetToolPoSx,0] [VarDef,TargetToolPosy,0] [VarDef,TargetToolPosz,0] [VarDef,TargetToolSizEx,0] [VarDef,TargetToolSizEy,0] [VarDef,TargetToolSizEz,0] [VarDef,NudgeAxis,0] [VarDef,MoveDirection,0] [VarSet,MoveDirection,1] [ISubPalette,"Tool:Positioner"] [ISubPalette,"Tool:Positioner:Alignment"] [IButton,"Tool:Positioner:Alignment:Select Target","Saves Targets Size and Position", //This Button Records Targets Size and Position [VarSet,TargetToolPoSx,[IGet, Tool: Geometry: x Position]] //finds and sets x position of TargetTool [VarSet,TargetToolPosy,[IGet, Tool: Geometry: y Position]] //finds and sets y position of TargetTool [VarSet,TargetToolPosz,[IGet, Tool: Geometry: z Position]] //finds and sets z position of TargetTool [VarSet,TargetToolSizEx,[IGet, Tool: Geometry: x Size]] //finds and sets x Size of TargetTool [VarSet,TargetToolSizEy,[IGet, Tool: Geometry: y Size]] //finds and sets y Size of TargetTool [VarSet,TargetToolSizEz,[IGet, Tool: Geometry: z Size]] //finds and sets z Size of TargetTool ,,1,,,.25]//end of button /*------------------------------------------------------------*/ [IButton,"Tool:Positioner:Alignment:X-OL","Centers Active On Target's Outside L", //This Button centers Active onto Target's Outside L [VarSet,ActiveToolSizEx,[IGet, Tool: Geometry: x Size]] //finds and sets x Size of ActiveTool [ISet, Tool: Geometry: x Position, (TargetToolPoSx -(TargetToolSizEx/2)- (ActiveToolSizEx /2))] ,,.2,,,.2]//end of button [IButton,"Tool:Positioner:Alignment:X-IL","Centers Active On Target's Inside L", //This Button centers Active onto Target's Inside L [VarSet,ActiveToolSizEx,[IGet, Tool: Geometry: x Size]] //finds and sets x Size of ActiveTool [ISet, Tool: Geometry: x Position, (TargetToolPoSx -(TargetToolSizEx/2)+ (ActiveToolSizEx /2))] ,,.2,,,.2]//end of button [IButton,"Tool:Positioner:Alignment:X-Cntr","Centers Active On Target's X", //This Button centers Active onto Target's X [VarSet,ActiveToolSizEx,[IGet, Tool: Geometry: x Size]] //finds and sets x Size of ActiveTool [ISet, Tool: Geometry: x Position, TargetToolPoSx] ,,.2,,,.2]//end of button [IButton,"Tool:Positioner:Alignment:X-IR","Centers Active On Target's Inside R", //This Button centers Active onto Target's Inside R [VarSet,ActiveToolSizEx,[IGet, Tool: Geometry: x Size]] //finds and sets x Size of ActiveTool [ISet, Tool: Geometry: x Position, (TargetToolPoSx +(TargetToolSizEx/2)- (ActiveToolSizEx /2))] ,,.2,,,.2]//end of button [IButton,"Tool:Positioner:Alignment:X-OR","Centers Active On Target's Outside R", //This Button centers Active onto Target's Outside R [VarSet,ActiveToolSizEx,[IGet, Tool: Geometry: x Size]] //finds and sets x Size of ActiveTool [ISet, Tool: Geometry: x Position, (TargetToolPoSx +(TargetToolSizEx/2)+ (ActiveToolSizEx /2))] ,,.2,,,.2]//end of button /*---------------------------------------------------------------------------------------------------------------*/ [IButton,"Tool:Positioner:Alignment:Y-OT","Centers Active On Target's Outside Top", //This Button centers Active onto Target's Outside Top [VarSet,ActiveToolSizEy,[IGet, Tool: Geometry: y Size]] //finds and sets y Size of ActiveTool [ISet, Tool: Geometry: y Position, (TargetToolPoSy -(TargetToolSizEy/2)- (ActiveToolSizEy /2))] ,,.2,,,.2]//end of button [IButton,"Tool:Positioner:Alignment:Y-IT","Centers Active On Target's Inside Top", //This Button centers Active onto Target's Inside Top [VarSet,ActiveToolSizEy,[IGet, Tool: Geometry: y Size]] //finds and sets y Size of ActiveTool [ISet, Tool: Geometry: y Position, (TargetToolPoSy -(TargetToolSizEy/2)+ (ActiveToolSizEy /2))] ,,.2,,,.2]//end of button [IButton,"Tool:Positioner:Alignment:Y-Cntr","Centers Active On Target's Y", //This Button centers Active onto Target's Y [VarSet,ActiveToolSizEy,[IGet, Tool: Geometry: x Size]] //finds and sets y Size of ActiveTool [ISet, Tool: Geometry: y Position, TargetToolPoSy] ,,.2,,,.2]//end of button [IButton,"Tool:Positioner:Alignment:Y-IB","Centers Active On Target's Inside Bottom", //This Button centers Active onto Target's Inside Bottom [VarSet,ActiveToolSizEy,[IGet, Tool: Geometry: y Size]] //finds and sets y Size of ActiveTool [ISet, Tool: Geometry: y Position, (TargetToolPoSy +(TargetToolSizEy/2)- (ActiveToolSizEy /2))] ,,.2,,,.2]//end of button [IButton,"Tool:Positioner:Alignment:Y-OB","Centers Active On Target's Outside Bottom", //This Button centers Active onto Target's Outside Bottom [VarSet,ActiveToolSizEy,[IGet, Tool: Geometry: y Size]] //finds and sets y Size of ActiveTool [ISet, Tool: Geometry: y Position, (TargetToolPoSy +(TargetToolSizEy/2)+ (ActiveToolSizEy /2))] ,,.2,,,.2]//end of button /*---------------------------------------------------------------------------------------------------------------*/ [IButton,"Tool:Positioner:Alignment:Z-OF","Centers Active On Target's Outside Front", //This Button centers Active onto Target's Outside Front [VarSet,ActiveToolSizEz,[IGet, Tool: Geometry: z Size]] //finds and sets z Size of ActiveTool [ISet, Tool: Geometry: z Position, (TargetToolPoSz -(TargetToolSizEz/2)- (ActiveToolSizEz /2))] ,,.2,,,.2]//end of button [IButton,"Tool:Positioner:Alignment:Z-IF","Centers Active On Target's Inside Front", //This Button centers Active onto Target's Inside front [VarSet,ActiveToolSizEz,[IGet, Tool: Geometry: z Size]] //finds and sets z Size of ActiveTool [ISet, Tool: Geometry: z Position, (TargetToolPoSz -(TargetToolSizEz/2)+ (ActiveToolSizEz /2))] ,,.2,,,.2]//end of button [IButton,"Tool:Positioner:Alignment:Z-Cntr","Centers Active On Target's Z", //This Button centers Active onto Target's Z [VarSet,ActiveToolSizEz,[IGet, Tool: Geometry: z Size]] //finds and sets z Size of ActiveTool [ISet, Tool: Geometry: z Position, TargetToolPoSz] ,,.2,,,.2]//end of button [IButton,"Tool:Positioner:Alignment:Z-IB","Centers Active On Target's Inside Back", //This Button centers Active onto Target's Inside Back [VarSet,ActiveToolSizEz,[IGet, Tool: Geometry: z Size]] //finds and sets z Size of ActiveTool [ISet, Tool: Geometry: z Position, (TargetToolPoSz +(TargetToolSizEz/2)- (ActiveToolSizEz /2))] ,,.2,,,.2]//end of button [IButton,"Tool:Positioner:Alignment:Z-OB","Centers Active On Target's Outside Back", //This Button centers Active onto Target's Outside Back [VarSet,ActiveToolSizEz,[IGet, Tool: Geometry: z Size]] //finds and sets z Size of ActiveTool [ISet, Tool: Geometry: z Position, (TargetToolPoSz +(TargetToolSizEz/2)+ (ActiveToolSizEz /2))] ,,.2,,,.2]//end of button /*---------------------------------------------------------------------------------------------------------------*/ [ISubPalette,"Tool:Positioner:Nudge"] [ISwitch,"Tool:Positioner:Nudge:X",0,"Sets x as the axis to nudge tool", //This Switch Toggels x axis on and off [ISet, Tool:Positioner:Nudge:y,0][ISet, Tool:Positioner:Nudge:Z,0][VarSet,NudgeAxis,2],[VarSet,NudgeAxis,1] ,0,.2]//end of Switch [ISwitch,"Tool:Positioner:Nudge:Y",0,"Sets y as the axis to nudge tool", //This Switch Toggles y axis on and off [ISet, Tool:Positioner:Nudge:X,0][ISet, Tool:Positioner:Nudge:Z,0][VarSet,NudgeAxis,4],[VarSet,NudgeAxis,1] ,0,.2]//end of Switch [ISwitch,"Tool:Positioner:Nudge:Z",0,"Sets z as the axis to nudge tool", //This Switch Toggles z axis on and off [ISet, Tool:Positioner:Nudge:X,0][ISet, Tool:Positioner:Nudge:Y,0][VarSet,NudgeAxis,6],[VarSet,NudgeAxis,1] ,0,.2]//end of Swicth [ISwitch,"Tool:Positioner:Nudge:+",0,"Moves in Positive Direction", //Moves Tool in the Positive Direction [ISet, Tool:Positioner:Nudge:-,0][VarSet,MoveDirection,1],[VarSet, MoveDirection, 0] ,0,.2]//end of Switch [ISwitch,"Tool:Positioner:Nudge:-",0,"Sets Positive Nudge Direction", //Moves Tool in the Positive Direction [Iset, Tool:Positioner:Nudge:+,0][VarSet,MoveDirection,-1],[VarSet, MoveDirection, 0] ,0,.2]//end of button [IButton,"Tool:Positioner:Nudge:2x","Moves Tool twice tools size in selected axis", //This Button moves the tool twice its size [If,NudgeAxis=2, [VarSet,ActiveToolPoSX,[Iget,Tool: Geometry: x position]][VarSet,ActiveToolSizEx,[Iget,Tool: Geometry: x size]][ISet, Tool: Geometry: x position, (ActiveToolPoSX +(MoveDirection*(ActiveToolSizEx*2)))],] [If,NudgeAxis=4, [VarSet,ActiveToolPoSy,[Iget,Tool: Geometry: y position]][VarSet,ActiveToolSizEy,[Iget,Tool: Geometry: y size]][ISet, Tool: Geometry: y position, (ActiveToolPoSy +((MoveDirection*-1)*(ActiveToolSizEy*2)))],] [If,NudgeAxis=6, [VarSet,ActiveToolPosz,[Iget,Tool: Geometry: z position]][VarSet,ActiveToolSizEz,[Iget,Tool: Geometry: z size]][ISet, Tool: Geometry: z position, (ActiveToolPoSz +((MoveDirection*-1)*(ActiveToolSizEz*2)))],] ,,.2,,,.2]//end of button [IButton,"Tool:Positioner:Nudge:1x","Moves Tool once tools size in selected axis", //This Button moves the tool once its size [If,NudgeAxis=2, [VarSet,ActiveToolPoSX,[Iget,Tool: Geometry: x position]][VarSet,ActiveToolSizEx,[Iget,Tool: Geometry: x size]][ISet, Tool: Geometry: x position, (ActiveToolPoSX +(MoveDirection*(ActiveToolSizEx*1)))],] [If,NudgeAxis=4, [VarSet,ActiveToolPoSy,[Iget,Tool: Geometry: y position]][VarSet,ActiveToolSizEy,[Iget,Tool: Geometry: y size]][ISet, Tool: Geometry: y position, (ActiveToolPoSy +((MoveDirection*-1)*(ActiveToolSizEy*1)))],] [If,NudgeAxis=6, [VarSet,ActiveToolPosz,[Iget,Tool: Geometry: z position]][VarSet,ActiveToolSizEz,[Iget,Tool: Geometry: z size]][ISet, Tool: Geometry: z position, (ActiveToolPoSz +((MoveDirection*-1)*(ActiveToolSizEz*1)))],] ,,.2,,,.2]//end of button [IButton,"Tool:Positioner:Nudge:1/2x","Moves Tool Half tools size in selected axis", //This Button moves the tool Half its size [If,NudgeAxis=2, [VarSet,ActiveToolPoSX,[Iget,Tool: Geometry: x position]][VarSet,ActiveToolSizEx,[Iget,Tool: Geometry: x size]][ISet, Tool: Geometry: x position, (ActiveToolPoSX +(MoveDirection*(ActiveToolSizEx*.5)))],] [If,NudgeAxis=4, [VarSet,ActiveToolPoSy,[Iget,Tool: Geometry: y position]][VarSet,ActiveToolSizEy,[Iget,Tool: Geometry: y size]][ISet, Tool: Geometry: y position, (ActiveToolPoSy +((MoveDirection*-1)*(ActiveToolSizEy*.5)))],] [If,NudgeAxis=6, [VarSet,ActiveToolPosz,[Iget,Tool: Geometry: z position]][VarSet,ActiveToolSizEz,[Iget,Tool: Geometry: z size]][ISet, Tool: Geometry: z position, (ActiveToolPoSz +((MoveDirection*-1)*(ActiveToolSizEz*.5)))],] ,,.2,,,.2]//end of button [IButton,"Tool:Positioner:Nudge:1/4x","Moves Tool Quarter tools size in selected axis", //This Button moves the tool Quarter its size [If,NudgeAxis=2, [VarSet,ActiveToolPoSX,[Iget,Tool: Geometry: x position]][VarSet,ActiveToolSizEx,[Iget,Tool: Geometry: x size]][ISet, Tool: Geometry: x position, (ActiveToolPoSX +(MoveDirection*(ActiveToolSizEx*.25)))],] [If,NudgeAxis=4, [VarSet,ActiveToolPoSy,[Iget,Tool: Geometry: y position]][VarSet,ActiveToolSizEy,[Iget,Tool: Geometry: y size]][ISet, Tool: Geometry: y position, (ActiveToolPoSy +((MoveDirection*-1)*(ActiveToolSizEy*.25)))],] [If,NudgeAxis=6, [VarSet,ActiveToolPosz,[Iget,Tool: Geometry: z position]][VarSet,ActiveToolSizEz,[Iget,Tool: Geometry: z size]][ISet, Tool: Geometry: z position, (ActiveToolPoSz +((MoveDirection*-1)*(ActiveToolSizEz*.25)))],] ,,.2,,,.2]//end of button [IButton,"Tool:Positioner:Nudge:1/8x","Moves Tool Eighth tools size in selected axis", //This Button moves the tool Eighth its size [If,NudgeAxis=2, [VarSet,ActiveToolPoSX,[Iget,Tool: Geometry: x position]][VarSet,ActiveToolSizEx,[Iget,Tool: Geometry: x size]][ISet, Tool: Geometry: x position, (ActiveToolPoSX +(MoveDirection*(ActiveToolSizEx*.125)))],] [If,NudgeAxis=4, [VarSet,ActiveToolPoSy,[Iget,Tool: Geometry: y position]][VarSet,ActiveToolSizEy,[Iget,Tool: Geometry: y size]][ISet, Tool: Geometry: y position, (ActiveToolPoSy +((MoveDirection*-1)*(ActiveToolSizEy*.125)))],] [If,NudgeAxis=6, [VarSet,ActiveToolPosz,[Iget,Tool: Geometry: z position]][VarSet,ActiveToolSizEz,[Iget,Tool: Geometry: z size]][ISet, Tool: Geometry: z position, (ActiveToolPoSz +((MoveDirection*-1)*(ActiveToolSizEz*.125)))],] ,,.2,,,.2]//end of button [IEnable, Tool:Positioner:Nudge:x] [IEnable, Tool:Positioner:Nudge:y] [IEnable, Tool:Positioner:Nudge:z] [IEnable, Tool:Positioner:Nudge:+] [IEnable, Tool:Positioner:Nudge:-]