QB64/InForm
QB64/InForm
1
1
Fork 0
mirror of https://github.com/FellippeHeitor/InForm.git synced 2025-01-14 19:49:33 +00:00
Code Issues Releases Wiki Activity
InForm/examples/GravitationSimulation/GravitationSimulation.frm

1451 lines
64 KiB
Text
Raw Permalink Blame History

': This form was generated by
': InForm - GUI library for QB64 - v1.5
': Fellippe Heitor, 2016-2023 - fellippe@qb64.org - @fellippeheitor
': https://github.com/FellippeHeitor/InForm
'-----------------------------------------------------------
SUB __UI_LoadForm
DIM __UI_NewID AS LONG, __UI_RegisterResult AS LONG
__UI_NewID = __UI_NewControl(__UI_Type_Form, "GravitationSimulation", 1400, 830, 0, 0, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Gravitation Simulation"
Control(__UI_NewID).Font = SetFont("segoeui.ttf", 12)
Control(__UI_NewID).HasBorder = False
__UI_NewID = __UI_NewControl(__UI_Type_Frame, "SimulationTypeFR", 180, 180, 10, 577, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "SimulationType"
Control(__UI_NewID).ForeColor = _RGB32(236, 233, 236)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Value = 5
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Frame, "HowManyBodiesFR", 160, 100, 362, 458, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "How Many Bodies"
Control(__UI_NewID).ForeColor = _RGB32(236, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Value = 4
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Frame, "GravitationalCollapseFR", 190, 134, 202, 622, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Gravitational Collapse"
Control(__UI_NewID).ForeColor = _RGB32(236, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Value = 8
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Frame, "GravitationalConstantFR", 212, 34, 678, 20, 0)
__UI_RegisterResult = 0
Control(__UI_NewID).ForeColor = _RGB32(236, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Value = 2
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Frame, "BodyDataFR", 454, 354, 532, 458, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Body Data"
Control(__UI_NewID).ForeColor = _RGB32(236, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Value = 96
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Frame, "StepTimeFR", 190, 56, 409, 20, 0)
__UI_RegisterResult = 0
Control(__UI_NewID).ForeColor = _RGB32(236, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Value = 7
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Frame, "CollisionsFR", 126, 34, 10, 368, 0)
__UI_RegisterResult = 0
Control(__UI_NewID).ForeColor = _RGB32(236, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Value = 1
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Frame, "CollisionDistanceFR", 174, 34, 150, 368, 0)
__UI_RegisterResult = 0
Control(__UI_NewID).ForeColor = _RGB32(236, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Value = 2
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Frame, "ViewingAngleFR", 320, 72, 1070, 20, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Viewing Angle"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Value = 4
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Frame, "ZoomFR", 160, 44, 900, 20, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Zoom"
Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Value = 2
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Frame, "SimulationLimitTypeFR", 140, 74, 10, 485, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Simulation Limit Type"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Value = 2
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Frame, "SimulationLimitTimeFR", 190, 76, 162, 420, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Simulation Limit"
Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Value = 4
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Frame, "SimulationLimitCyclesFR", 190, 44, 162, 514, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Simulation Limit"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Value = 2
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Frame, "ElapsedTimeFR", 180, 56, 220, 20, 0)
__UI_RegisterResult = 0
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Value = 5
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Frame, "EnergyFR", 61, 54, 608, 20, 0)
__UI_RegisterResult = 0
Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Value = 2
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox1", 1400, 830, 0, 0, 0)
__UI_RegisterResult = 0
Control(__UI_NewID).Stretch = True
Control(__UI_NewID).BackColor = _RGB32(30, 30, 30)
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Align = __UI_Center
Control(__UI_NewID).VAlign = __UI_Middle
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Button, "ExitBT", 80, 23, 1310, 800, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Exit"
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_Button, "PauseBT", 80, 23, 10, 767, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Pause"
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).Disabled = True
__UI_NewID = __UI_NewControl(__UI_Type_Button, "ExecuteBT", 80, 23, 10, 800, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Execute"
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_RadioButton, "SolarSystemRB", 110, 23, 25, 21, __UI_GetID("SimulationTypeFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Solar System"
Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).Value = -1
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_RadioButton, "BodyManualRB", 115, 23, 25, 51, __UI_GetID("SimulationTypeFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "11-Body Manual"
Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_RadioButton, "GravitationalCollapseRB", 145, 23, 25, 81, __UI_GetID("SimulationTypeFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Gravitational Collapse"
Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_RadioButton, "LoadFromFileRB", 110, 23, 25, 111, __UI_GetID("SimulationTypeFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Load from File"
Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_RadioButton, "DemonstrationRB", 110, 23, 25, 141, __UI_GetID("SimulationTypeFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Demonstration"
Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_Label, "GravitationalConstantLB", 118, 21, 5, 5, __UI_GetID("GravitationalConstantFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Gravitational Constant"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "GravitationalConstantTB", 75, 23, 130, 5, __UI_GetID("GravitationalConstantFR"))
__UI_RegisterResult = 0
Text(__UI_NewID) = "6.67385E-11"
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "HowManyBodiesLB", 101, 21, 10, 15, __UI_GetID("HowManyBodiesFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "How Many Bodies?"
Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "HowManyBodiesTB", 30, 23, 120, 15, __UI_GetID("HowManyBodiesFR"))
__UI_RegisterResult = 0
Text(__UI_NewID) = "11"
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Max = 2
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "BodyLB", 30, 21, 10, 15, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Body"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_Label, "MassLB", 40, 21, 52, 15, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Mass"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_Label, "xPositionLB", 53, 21, 97, 15, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "x-Position"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_Label, "yPositionLB", 54, 21, 155, 15, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "y-Position"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_Label, "zPositionLB", 53, 21, 213, 15, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "z-Position"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_Label, "xVelocityLB", 52, 21, 271, 15, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "x-Velocity"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_Label, "yVelocityLB", 53, 21, 329, 15, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "y-Velocity"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_Label, "zVelocityLB", 52, 21, 387, 15, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "z-Velocity"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_Label, "Body1LB", 33, 21, 10, 38, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Body1"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "BodyMass1TB", 40, 23, 52, 38, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XPosition1TB", 54, 23, 97, 38, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YPosition1TB", 54, 23, 155, 38, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZPosition1TB", 54, 23, 213, 38, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XVelocity1TB", 54, 23, 271, 38, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YVelocity1TB", 54, 23, 329, 38, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZVelocity1TB", 54, 23, 387, 38, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "Body2LB", 33, 21, 10, 66, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Body2"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "BodyMass2TB", 40, 23, 52, 66, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XPosition2TB", 54, 23, 97, 66, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YPosition2TB", 54, 23, 155, 66, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZPosition2TB", 54, 23, 213, 66, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XVelocity2TB", 54, 23, 271, 66, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YVelocity2TB", 54, 23, 329, 66, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZVelocity2TB", 54, 23, 387, 66, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "Body3LB", 33, 21, 10, 94, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Body3"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "BodyMass3TB", 40, 23, 52, 94, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XPosition3TB", 54, 23, 97, 94, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YPosition3TB", 54, 23, 155, 94, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZPosition3TB", 54, 23, 213, 94, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XVelocity3TB", 54, 23, 271, 94, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YVelocity3TB", 54, 23, 329, 94, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZVelocity3TB", 54, 23, 387, 94, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "Body4LB", 33, 21, 10, 122, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Body4"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "BodyMass4TB", 40, 23, 52, 122, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XPosition4TB", 54, 23, 97, 122, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YPosition4TB", 54, 23, 155, 122, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZPosition4TB", 54, 23, 213, 122, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XVelocity4TB", 54, 23, 271, 122, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YVelocity4TB", 54, 23, 329, 122, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZVelocity4TB", 54, 23, 387, 122, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "Body5LB", 33, 21, 10, 150, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Body5"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "BodyMass5TB", 40, 23, 52, 150, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XPosition5TB", 54, 23, 97, 150, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YPosition5TB", 54, 23, 155, 150, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZPosition5TB", 54, 23, 213, 150, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XVelocity5TB", 54, 23, 271, 150, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YVelocity5TB", 54, 23, 329, 150, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZVelocity5TB", 54, 23, 387, 150, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "Body6LB", 33, 21, 10, 180, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Body6"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "BodyMass6TB", 40, 25, 52, 178, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XPosition6TB", 54, 25, 97, 178, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YPosition6TB", 54, 25, 155, 178, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZPosition6TB", 54, 25, 213, 178, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XVelocity6TB", 54, 25, 271, 178, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YVelocity6TB", 54, 25, 329, 178, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZVelocity6TB", 54, 25, 387, 178, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "Body7LB", 33, 21, 10, 208, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Body7"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "BodyMass7TB", 40, 25, 52, 206, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XPosition7TB", 54, 25, 97, 206, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YPosition7TB", 54, 25, 155, 206, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZPosition7TB", 54, 25, 213, 206, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XVelocity7TB", 54, 25, 271, 206, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YVelocity7TB", 54, 25, 329, 206, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZVelocity7TB", 54, 25, 387, 206, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "Body8LB", 33, 21, 10, 236, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Body8"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "BodyMass8TB", 40, 25, 52, 234, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XPosition8TB", 54, 25, 97, 234, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YPosition8TB", 54, 25, 155, 234, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZPosition8TB", 54, 25, 213, 234, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XVelocity8TB", 54, 25, 271, 234, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YVelocity8TB", 54, 25, 329, 234, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZVelocity8TB", 54, 25, 387, 234, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "Body9LB", 33, 21, 10, 264, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Body9"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "BodyMass9TB", 40, 25, 52, 262, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XPosition9TB", 54, 25, 97, 262, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YPosition9TB", 54, 25, 155, 262, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZPosition9TB", 54, 25, 213, 262, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XVelocity9TB", 54, 25, 271, 262, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YVelocity9TB", 54, 25, 329, 262, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZVelocity9TB", 54, 25, 387, 262, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "Body10LB", 39, 21, 10, 292, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Body10"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "BodyMass10TB", 40, 25, 52, 290, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XPosition10TB", 54, 25, 97, 290, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YPosition10TB", 54, 25, 155, 290, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZPosition10TB", 54, 25, 213, 290, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XVelocity10TB", 54, 25, 271, 290, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YVelocity10TB", 54, 25, 329, 290, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZVelocity10TB", 54, 25, 387, 290, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "Body11LB", 39, 21, 10, 320, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Body11"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "BodyMass11TB", 40, 25, 52, 318, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XPosition11TB", 54, 25, 97, 318, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YPosition11TB", 54, 25, 155, 318, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZPosition11TB", 54, 25, 213, 318, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XVelocity11TB", 54, 25, 271, 318, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YVelocity11TB", 54, 25, 329, 318, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZVelocity11TB", 54, 25, 387, 318, __UI_GetID("BodyDataFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "NumberOfBodiesLB", 96, 21, 10, 15, __UI_GetID("GravitationalCollapseFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Number of Bodies"
Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "NumberOfBodiesTB", 30, 23, 152, 15, __UI_GetID("GravitationalCollapseFR"))
__UI_RegisterResult = 0
Text(__UI_NewID) = "512"
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Max = 3
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "MaximumMassLB", 84, 21, 10, 43, __UI_GetID("GravitationalCollapseFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Maximum Mass"
Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "MaximumMassTB", 50, 23, 132, 43, __UI_GetID("GravitationalCollapseFR"))
__UI_RegisterResult = 0
Text(__UI_NewID) = "3E26"
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Max = 6
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "MaximumDistanceLB", 102, 21, 10, 71, __UI_GetID("GravitationalCollapseFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Maximum Distance"
Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "MaximumDistanceTB", 50, 23, 132, 71, __UI_GetID("GravitationalCollapseFR"))
__UI_RegisterResult = 0
Text(__UI_NewID) = "2E9"
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Max = 6
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "MaximumSpeedLB", 89, 21, 10, 99, __UI_GetID("GravitationalCollapseFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Maximum Speed"
Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "MaximumSpeedTB", 30, 23, 152, 99, __UI_GetID("GravitationalCollapseFR"))
__UI_RegisterResult = 0
Text(__UI_NewID) = "500"
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Max = 3
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "StepTimeLB", 53, 21, 10, 5, __UI_GetID("StepTimeFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Step Time"
Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "StepTimeSecTB", 30, 23, 150, 5, __UI_GetID("StepTimeFR"))
__UI_RegisterResult = 0
Text(__UI_NewID) = "0"
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Max = 2
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "CollisionDistanceLB", 97, 21, 10, 5, __UI_GetID("CollisionDistanceFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Collision Distance "
Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "CollisionDistanceTB", 50, 23, 110, 5, __UI_GetID("CollisionDistanceFR"))
__UI_RegisterResult = 0
Text(__UI_NewID) = "1E6"
Control(__UI_NewID).BackColor = _RGB32(235, 233, 236)
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "AllowCollisionsCB", 110, 23, 10, 5, __UI_GetID("CollisionsFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Allow Collisions"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).Disabled = True
__UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "AllowComputertoSetCB", 150, 23, 10, 44, __UI_GetID("HowManyBodiesFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Allow Computer"
Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_Label, "toSetValuesLB", 67, 21, 30, 66, __UI_GetID("HowManyBodiesFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "to Set Values"
Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_ProgressBar, "ProgressBar1", 220, 23, 100, 800, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "\92;#"
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).Max = 100
Control(__UI_NewID).ShowPercentage = True
__UI_NewID = __UI_NewControl(__UI_Type_TrackBar, "ViewingTrackBar", 300, 40, 10, 10, __UI_GetID("ViewingAngleFR"))
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).Min = -180
Control(__UI_NewID).Max = 180
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).Interval = 30
__UI_NewID = __UI_NewControl(__UI_Type_Label, "ZeroDegLB", 6, 21, 158, 50, __UI_GetID("ViewingAngleFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "0"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_Label, "Minus180LB", 23, 21, 5, 50, __UI_GetID("ViewingAngleFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "-180"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_Label, "Plus180LB", 26, 21, 289, 50, __UI_GetID("ViewingAngleFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "+180"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_RadioButton, "TimeLimitRB", 60, 23, 10, 10, __UI_GetID("SimulationLimitTypeFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Time"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).Value = -1
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_RadioButton, "CyclesLimitRB", 122, 23, 10, 38, __UI_GetID("SimulationLimitTypeFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Number of Cycles"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_Label, "NumberofMinutesLB", 104, 21, 10, 10, __UI_GetID("SimulationLimitTimeFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Number of Minutes"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "NumberofMinutesTB", 40, 23, 140, 10, __UI_GetID("SimulationLimitTimeFR"))
__UI_RegisterResult = 0
Text(__UI_NewID) = "10"
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Max = 2
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "NumberofHoursLB", 93, 21, 10, 38, __UI_GetID("SimulationLimitTimeFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Number of Hours"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "NumberofHoursTB", 40, 23, 140, 38, __UI_GetID("SimulationLimitTimeFR"))
__UI_RegisterResult = 0
Text(__UI_NewID) = "0"
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Max = 2
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "NumberofCyclesTB", 70, 23, 110, 10, __UI_GetID("SimulationLimitCyclesFR"))
__UI_RegisterResult = 0
Text(__UI_NewID) = "100000"
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Max = 9
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "NumberofCyclesLB", 95, 21, 10, 10, __UI_GetID("SimulationLimitCyclesFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Number of Cycles"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "StepTimeMinTB", 30, 23, 110, 5, __UI_GetID("StepTimeFR"))
__UI_RegisterResult = 0
Text(__UI_NewID) = "0"
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Max = 2
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "StepTimeHrTB", 30, 23, 70, 5, __UI_GetID("StepTimeFR"))
__UI_RegisterResult = 0
Text(__UI_NewID) = "1"
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Max = 3
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "StepTimeHrLB", 32, 21, 70, 30, __UI_GetID("StepTimeFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Hours"
Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_Label, "StepTimeMinsLB", 26, 21, 110, 30, __UI_GetID("StepTimeFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Mins"
Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_Label, "StepTimeSecsLB", 23, 21, 150, 30, __UI_GetID("StepTimeFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Secs"
Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ElapsedTime1TB", 50, 23, 84, 5, __UI_GetID("ElapsedTimeFR"))
__UI_RegisterResult = 0
Text(__UI_NewID) = "0"
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).Disabled = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ElapsedTime2TB", 30, 23, 140, 5, __UI_GetID("ElapsedTimeFR"))
__UI_RegisterResult = 0
Text(__UI_NewID) = "0"
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).Disabled = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "ElapsedTime1LB", 43, 21, 84, 30, __UI_GetID("ElapsedTimeFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Minutes"
Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_Label, "ElapsedTime2LB", 30, 21, 140, 30, __UI_GetID("ElapsedTimeFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Secs"
Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_Label, "SolarSystemLB", 123, 32, 10, 10, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, " Solar System "
Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_Label, "ManualInputLB", 126, 32, 10, 52, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, " Manual Input "
Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_Label, "GravitationalCollapseLB", 202, 32, 10, 94, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, " Gravitational Collapse "
Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_Label, "LoadFromFileLB", 135, 32, 10, 136, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, " Load from File "
Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_Label, "ElapsedTimeLB", 70, 21, 10, 5, __UI_GetID("ElapsedTimeFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Elapsed Time"
Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_Label, "DemonstrationLB", 141, 32, 10, 178, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, " Demonstration "
Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_Button, "ResetBT", 80, 23, 100, 767, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Reset"
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).Disabled = True
__UI_NewID = __UI_NewControl(__UI_Type_Label, "EnergyLB", 36, 21, 10, 5, __UI_GetID("EnergyFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Energy"
Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237)
Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "EnergyTB", 51, 23, 5, 26, __UI_GetID("EnergyFR"))
__UI_RegisterResult = 0
Text(__UI_NewID) = "0"
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Max = 7
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).Disabled = True
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "DemoLabel1LB", 110, 32, 10, 220, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "DemoLabel1"
Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20)
Control(__UI_NewID).ForeColor = _RGB32(14, 14, 103)
Control(__UI_NewID).BackColor = _RGB32(221, 233, 168)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).Align = __UI_Center
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_Button, "TraceBT", 60, 23, 190, 767, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Spot"
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).Disabled = True
__UI_NewID = __UI_NewControl(__UI_Type_Button, "ClearBT", 60, 23, 260, 767, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Clear"
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).CanHaveFocus = True
Control(__UI_NewID).Disabled = True
__UI_NewID = __UI_NewControl(__UI_Type_Label, "DemoLabel2LB", 110, 32, 10, 262, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "DemoLabel2"
Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20)
Control(__UI_NewID).ForeColor = _RGB32(14, 14, 103)
Control(__UI_NewID).BackColor = _RGB32(221, 233, 168)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).Align = __UI_Center
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_Button, "ZoomInBT", 70, 23, 7, 10, __UI_GetID("ZoomFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Zoom In"
Control(__UI_NewID).BackColor = _RGB32(234, 233, 237)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_Button, "ZoomOutBT", 70, 23, 84, 10, __UI_GetID("ZoomFR"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Zoom Out"
Control(__UI_NewID).BackColor = _RGB32(234, 233, 237)
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).CanHaveFocus = True
END SUB
SUB __UI_AssignIDs
GravitationSimulation = __UI_GetID("GravitationSimulation")
SimulationTypeFR = __UI_GetID("SimulationTypeFR")
HowManyBodiesFR = __UI_GetID("HowManyBodiesFR")
GravitationalCollapseFR = __UI_GetID("GravitationalCollapseFR")
GravitationalConstantFR = __UI_GetID("GravitationalConstantFR")
BodyDataFR = __UI_GetID("BodyDataFR")
StepTimeFR = __UI_GetID("StepTimeFR")
CollisionsFR = __UI_GetID("CollisionsFR")
CollisionDistanceFR = __UI_GetID("CollisionDistanceFR")
ViewingAngleFR = __UI_GetID("ViewingAngleFR")
ZoomFR = __UI_GetID("ZoomFR")
SimulationLimitTypeFR = __UI_GetID("SimulationLimitTypeFR")
SimulationLimitTimeFR = __UI_GetID("SimulationLimitTimeFR")
SimulationLimitCyclesFR = __UI_GetID("SimulationLimitCyclesFR")
ElapsedTimeFR = __UI_GetID("ElapsedTimeFR")
EnergyFR = __UI_GetID("EnergyFR")
PictureBox1 = __UI_GetID("PictureBox1")
ExitBT = __UI_GetID("ExitBT")
PauseBT = __UI_GetID("PauseBT")
ExecuteBT = __UI_GetID("ExecuteBT")
SolarSystemRB = __UI_GetID("SolarSystemRB")
BodyManualRB = __UI_GetID("BodyManualRB")
GravitationalCollapseRB = __UI_GetID("GravitationalCollapseRB")
LoadFromFileRB = __UI_GetID("LoadFromFileRB")
DemonstrationRB = __UI_GetID("DemonstrationRB")
GravitationalConstantLB = __UI_GetID("GravitationalConstantLB")
GravitationalConstantTB = __UI_GetID("GravitationalConstantTB")
HowManyBodiesLB = __UI_GetID("HowManyBodiesLB")
HowManyBodiesTB = __UI_GetID("HowManyBodiesTB")
BodyLB = __UI_GetID("BodyLB")
MassLB = __UI_GetID("MassLB")
xPositionLB = __UI_GetID("xPositionLB")
yPositionLB = __UI_GetID("yPositionLB")
zPositionLB = __UI_GetID("zPositionLB")
xVelocityLB = __UI_GetID("xVelocityLB")
yVelocityLB = __UI_GetID("yVelocityLB")
zVelocityLB = __UI_GetID("zVelocityLB")
Body1LB = __UI_GetID("Body1LB")
BodyMass1TB = __UI_GetID("BodyMass1TB")
XPosition1TB = __UI_GetID("XPosition1TB")
YPosition1TB = __UI_GetID("YPosition1TB")
ZPosition1TB = __UI_GetID("ZPosition1TB")
XVelocity1TB = __UI_GetID("XVelocity1TB")
YVelocity1TB = __UI_GetID("YVelocity1TB")
ZVelocity1TB = __UI_GetID("ZVelocity1TB")
Body2LB = __UI_GetID("Body2LB")
BodyMass2TB = __UI_GetID("BodyMass2TB")
XPosition2TB = __UI_GetID("XPosition2TB")
YPosition2TB = __UI_GetID("YPosition2TB")
ZPosition2TB = __UI_GetID("ZPosition2TB")
XVelocity2TB = __UI_GetID("XVelocity2TB")
YVelocity2TB = __UI_GetID("YVelocity2TB")
ZVelocity2TB = __UI_GetID("ZVelocity2TB")
Body3LB = __UI_GetID("Body3LB")
BodyMass3TB = __UI_GetID("BodyMass3TB")
XPosition3TB = __UI_GetID("XPosition3TB")
YPosition3TB = __UI_GetID("YPosition3TB")
ZPosition3TB = __UI_GetID("ZPosition3TB")
XVelocity3TB = __UI_GetID("XVelocity3TB")
YVelocity3TB = __UI_GetID("YVelocity3TB")
ZVelocity3TB = __UI_GetID("ZVelocity3TB")
Body4LB = __UI_GetID("Body4LB")
BodyMass4TB = __UI_GetID("BodyMass4TB")
XPosition4TB = __UI_GetID("XPosition4TB")
YPosition4TB = __UI_GetID("YPosition4TB")
ZPosition4TB = __UI_GetID("ZPosition4TB")
XVelocity4TB = __UI_GetID("XVelocity4TB")
YVelocity4TB = __UI_GetID("YVelocity4TB")
ZVelocity4TB = __UI_GetID("ZVelocity4TB")
Body5LB = __UI_GetID("Body5LB")
BodyMass5TB = __UI_GetID("BodyMass5TB")
XPosition5TB = __UI_GetID("XPosition5TB")
YPosition5TB = __UI_GetID("YPosition5TB")
ZPosition5TB = __UI_GetID("ZPosition5TB")
XVelocity5TB = __UI_GetID("XVelocity5TB")
YVelocity5TB = __UI_GetID("YVelocity5TB")
ZVelocity5TB = __UI_GetID("ZVelocity5TB")
Body6LB = __UI_GetID("Body6LB")
BodyMass6TB = __UI_GetID("BodyMass6TB")
XPosition6TB = __UI_GetID("XPosition6TB")
YPosition6TB = __UI_GetID("YPosition6TB")
ZPosition6TB = __UI_GetID("ZPosition6TB")
XVelocity6TB = __UI_GetID("XVelocity6TB")
YVelocity6TB = __UI_GetID("YVelocity6TB")
ZVelocity6TB = __UI_GetID("ZVelocity6TB")
Body7LB = __UI_GetID("Body7LB")
BodyMass7TB = __UI_GetID("BodyMass7TB")
XPosition7TB = __UI_GetID("XPosition7TB")
YPosition7TB = __UI_GetID("YPosition7TB")
ZPosition7TB = __UI_GetID("ZPosition7TB")
XVelocity7TB = __UI_GetID("XVelocity7TB")
YVelocity7TB = __UI_GetID("YVelocity7TB")
ZVelocity7TB = __UI_GetID("ZVelocity7TB")
Body8LB = __UI_GetID("Body8LB")
BodyMass8TB = __UI_GetID("BodyMass8TB")
XPosition8TB = __UI_GetID("XPosition8TB")
YPosition8TB = __UI_GetID("YPosition8TB")
ZPosition8TB = __UI_GetID("ZPosition8TB")
XVelocity8TB = __UI_GetID("XVelocity8TB")
YVelocity8TB = __UI_GetID("YVelocity8TB")
ZVelocity8TB = __UI_GetID("ZVelocity8TB")
Body9LB = __UI_GetID("Body9LB")
BodyMass9TB = __UI_GetID("BodyMass9TB")
XPosition9TB = __UI_GetID("XPosition9TB")
YPosition9TB = __UI_GetID("YPosition9TB")
ZPosition9TB = __UI_GetID("ZPosition9TB")
XVelocity9TB = __UI_GetID("XVelocity9TB")
YVelocity9TB = __UI_GetID("YVelocity9TB")
ZVelocity9TB = __UI_GetID("ZVelocity9TB")
Body10LB = __UI_GetID("Body10LB")
BodyMass10TB = __UI_GetID("BodyMass10TB")
XPosition10TB = __UI_GetID("XPosition10TB")
YPosition10TB = __UI_GetID("YPosition10TB")
ZPosition10TB = __UI_GetID("ZPosition10TB")
XVelocity10TB = __UI_GetID("XVelocity10TB")
YVelocity10TB = __UI_GetID("YVelocity10TB")
ZVelocity10TB = __UI_GetID("ZVelocity10TB")
Body11LB = __UI_GetID("Body11LB")
BodyMass11TB = __UI_GetID("BodyMass11TB")
XPosition11TB = __UI_GetID("XPosition11TB")
YPosition11TB = __UI_GetID("YPosition11TB")
ZPosition11TB = __UI_GetID("ZPosition11TB")
XVelocity11TB = __UI_GetID("XVelocity11TB")
YVelocity11TB = __UI_GetID("YVelocity11TB")
ZVelocity11TB = __UI_GetID("ZVelocity11TB")
NumberOfBodiesLB = __UI_GetID("NumberOfBodiesLB")
NumberOfBodiesTB = __UI_GetID("NumberOfBodiesTB")
MaximumMassLB = __UI_GetID("MaximumMassLB")
MaximumMassTB = __UI_GetID("MaximumMassTB")
MaximumDistanceLB = __UI_GetID("MaximumDistanceLB")
MaximumDistanceTB = __UI_GetID("MaximumDistanceTB")
MaximumSpeedLB = __UI_GetID("MaximumSpeedLB")
MaximumSpeedTB = __UI_GetID("MaximumSpeedTB")
StepTimeLB = __UI_GetID("StepTimeLB")
StepTimeSecTB = __UI_GetID("StepTimeSecTB")
CollisionDistanceLB = __UI_GetID("CollisionDistanceLB")
CollisionDistanceTB = __UI_GetID("CollisionDistanceTB")
AllowCollisionsCB = __UI_GetID("AllowCollisionsCB")
AllowComputertoSetCB = __UI_GetID("AllowComputertoSetCB")
toSetValuesLB = __UI_GetID("toSetValuesLB")
ProgressBar1 = __UI_GetID("ProgressBar1")
ViewingTrackBar = __UI_GetID("ViewingTrackBar")
ZeroDegLB = __UI_GetID("ZeroDegLB")
Minus180LB = __UI_GetID("Minus180LB")
Plus180LB = __UI_GetID("Plus180LB")
TimeLimitRB = __UI_GetID("TimeLimitRB")
CyclesLimitRB = __UI_GetID("CyclesLimitRB")
NumberofMinutesLB = __UI_GetID("NumberofMinutesLB")
NumberofMinutesTB = __UI_GetID("NumberofMinutesTB")
NumberofHoursLB = __UI_GetID("NumberofHoursLB")
NumberofHoursTB = __UI_GetID("NumberofHoursTB")
NumberofCyclesTB = __UI_GetID("NumberofCyclesTB")
NumberofCyclesLB = __UI_GetID("NumberofCyclesLB")
StepTimeMinTB = __UI_GetID("StepTimeMinTB")
StepTimeHrTB = __UI_GetID("StepTimeHrTB")
StepTimeHrLB = __UI_GetID("StepTimeHrLB")
StepTimeMinsLB = __UI_GetID("StepTimeMinsLB")
StepTimeSecsLB = __UI_GetID("StepTimeSecsLB")
ElapsedTime1TB = __UI_GetID("ElapsedTime1TB")
ElapsedTime2TB = __UI_GetID("ElapsedTime2TB")
ElapsedTime1LB = __UI_GetID("ElapsedTime1LB")
ElapsedTime2LB = __UI_GetID("ElapsedTime2LB")
SolarSystemLB = __UI_GetID("SolarSystemLB")
ManualInputLB = __UI_GetID("ManualInputLB")
GravitationalCollapseLB = __UI_GetID("GravitationalCollapseLB")
LoadFromFileLB = __UI_GetID("LoadFromFileLB")
ElapsedTimeLB = __UI_GetID("ElapsedTimeLB")
DemonstrationLB = __UI_GetID("DemonstrationLB")
ResetBT = __UI_GetID("ResetBT")
EnergyLB = __UI_GetID("EnergyLB")
EnergyTB = __UI_GetID("EnergyTB")
DemoLabel1LB = __UI_GetID("DemoLabel1LB")
TraceBT = __UI_GetID("TraceBT")
ClearBT = __UI_GetID("ClearBT")
DemoLabel2LB = __UI_GetID("DemoLabel2LB")
ZoomInBT = __UI_GetID("ZoomInBT")
ZoomOutBT = __UI_GetID("ZoomOutBT")
END SUB
View git blame Copy permalink