object frmTools: TfrmTools Left = 477 Top = 38 BorderIcons = [biHelp] BorderStyle = bsToolWindow Caption = 'Tessellation Controls' ClientHeight = 405 ClientWidth = 189 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FormStyle = fsStayOnTop OldCreateOrder = False Position = poDefaultPosOnly Visible = True PixelsPerInch = 96 TextHeight = 13 object PageControl1: TPageControl Left = 4 Top = 4 Width = 181 Height = 397 ActivePage = TabSheet1 TabOrder = 0 object TabSheet1: TTabSheet Caption = 'Basic' object Label1: TLabel Left = 8 Top = 12 Width = 10 Height = 13 Caption = 'p:' Transparent = True end object Label2: TLabel Left = 96 Top = 12 Width = 10 Height = 13 Caption = 'q:' Transparent = True end object Label3: TLabel Left = 35 Top = 40 Width = 69 Height = 13 Alignment = taRightJustify Caption = 'Max. Vertices:' Transparent = True end object Label8: TLabel Left = 20 Top = 300 Width = 33 Height = 13 Caption = 'Driver:' Transparent = True end object Label9: TLabel Left = 28 Top = 348 Width = 72 Height = 13 Alignment = taRightJustify Caption = 'Line Thickness:' Transparent = True end object Label10: TLabel Left = 20 Top = 144 Width = 55 Height = 13 Caption = 'Truncation:' Transparent = True end object txtP: TEdit Left = 20 Top = 8 Width = 45 Height = 21 TabOrder = 0 Text = '7' OnChange = txtPChange end object udP: TUpDown Left = 65 Top = 8 Width = 12 Height = 21 Associate = txtP Min = 3 Max = 10000 Position = 7 TabOrder = 1 TabStop = True Thousands = False Wrap = False end object txtQ: TEdit Left = 108 Top = 8 Width = 45 Height = 21 TabOrder = 2 Text = '3' OnChange = txtQChange end object udQ: TUpDown Left = 153 Top = 8 Width = 12 Height = 21 Associate = txtQ Min = 3 Position = 3 TabOrder = 3 TabStop = True Thousands = False Wrap = False end object txtMaxIso: TEdit Left = 108 Top = 36 Width = 45 Height = 21 TabOrder = 4 Text = '100' OnChange = txtMaxIsoChange end object udIso: TUpDown Left = 153 Top = 36 Width = 12 Height = 21 Associate = txtMaxIso Min = 10 Max = 20000 Increment = 10 Position = 100 TabOrder = 5 Thousands = False Wrap = False end object comboDriver: TComboBox Left = 56 Top = 296 Width = 105 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 10 OnChange = simpleChange Items.Strings = ( 'Windows GDI' 'OpenGL') end object chkAntiAlias: TCheckBox Left = 44 Top = 324 Width = 93 Height = 13 Caption = 'Antialias lines' TabOrder = 11 OnClick = simpleChange end object txtLineThickness: TEdit Left = 104 Top = 344 Width = 41 Height = 21 TabOrder = 12 Text = '1' OnChange = txtLineThicknessChange end object udLineThick: TUpDown Left = 145 Top = 344 Width = 12 Height = 21 Associate = txtLineThickness Min = 1 Max = 16 Position = 1 TabOrder = 13 Thousands = False Wrap = False end object cbTruncation: TComboBox Left = 16 Top = 160 Width = 141 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 8 OnChange = simpleChange Items.Strings = ( 'Primal' '[.75][.25][0]' '[.5][.5][0]' '[.25][.75][0]' '[0][1][0]' '[0][.75][.25]' '[0][.5][.5]' '[0][.25][.75]' 'Dual' 'Runcinated' 'Omnitruncated') end object rgModel: TRadioGroup Left = 4 Top = 64 Width = 165 Height = 33 Caption = 'Model' Columns = 2 ItemIndex = 0 Items.Strings = ( 'Poincaré' 'Klein') TabOrder = 6 OnClick = simpleChange end object GroupBox1: TGroupBox Left = 4 Top = 188 Width = 165 Height = 101 Caption = 'Colors' TabOrder = 9 object shpPrimal: TShape Left = 72 Top = 16 Width = 29 Height = 13 Brush.Color = clLime OnMouseDown = shpMouseDown end object Label4: TLabel Left = 38 Top = 16 Width = 32 Height = 13 Alignment = taRightJustify Caption = 'Primal:' Transparent = True end object shpDual: TShape Left = 72 Top = 32 Width = 29 Height = 13 Brush.Color = 4227327 OnMouseDown = shpMouseDown end object Label5: TLabel Left = 45 Top = 32 Width = 25 Height = 13 Alignment = taRightJustify Caption = 'Dual:' Transparent = True end object shpBack: TShape Left = 72 Top = 80 Width = 29 Height = 13 Brush.Color = clBlack OnMouseDown = shpMouseDown end object Label6: TLabel Left = 10 Top = 80 Width = 60 Height = 13 Alignment = taRightJustify Caption = 'Background:' Transparent = True end object shpBoundary: TShape Left = 72 Top = 64 Width = 29 Height = 13 Brush.Color = clGray OnMouseDown = shpMouseDown end object Label7: TLabel Left = 20 Top = 64 Width = 50 Height = 13 Alignment = taRightJustify Caption = 'Boundary:' Transparent = True end object shpSnub: TShape Left = 72 Top = 48 Width = 29 Height = 13 Brush.Color = 16711808 OnMouseDown = shpMouseDown end object Label11: TLabel Left = 42 Top = 48 Width = 28 Height = 13 Alignment = taRightJustify Caption = 'Snub:' Transparent = True end object chkEnablePrimal: TCheckBox Left = 108 Top = 16 Width = 53 Height = 16 Caption = 'Enable' Checked = True State = cbChecked TabOrder = 0 OnClick = simpleChange end object chkEnableDual: TCheckBox Left = 108 Top = 32 Width = 53 Height = 16 Caption = 'Enable' Checked = True State = cbChecked TabOrder = 1 OnClick = simpleChange end object chkEnableSnub: TCheckBox Left = 108 Top = 48 Width = 53 Height = 16 Caption = 'Enable' TabOrder = 2 OnClick = simpleChange end object chkEnableBoundary: TCheckBox Left = 108 Top = 64 Width = 53 Height = 16 Caption = 'Enable' Checked = True State = cbChecked TabOrder = 3 OnClick = simpleChange end end object rgQuality: TRadioGroup Left = 4 Top = 104 Width = 165 Height = 33 Caption = 'Quality' Columns = 2 ItemIndex = 0 Items.Strings = ( 'Low' 'High') TabOrder = 7 OnClick = simpleChange end end object TabSheet2: TTabSheet Caption = 'Advanced' ImageIndex = 1 object Label12: TLabel Left = 4 Top = 4 Width = 104 Height = 13 Caption = 'Wythoff Coefficients:' end object txtWythoff0: TEdit Left = 112 Top = 4 Width = 57 Height = 13 TabStop = False BorderStyle = bsNone Color = clBtnFace MaxLength = 8 ReadOnly = True TabOrder = 11 Text = '1' end object txtWythoff1: TEdit Left = 112 Top = 20 Width = 57 Height = 13 TabStop = False BorderStyle = bsNone Color = clBtnFace MaxLength = 8 ReadOnly = True TabOrder = 12 Text = '0' end object txtWythoff2: TEdit Left = 112 Top = 36 Width = 57 Height = 13 TabStop = False BorderStyle = bsNone Color = clBtnFace MaxLength = 8 ReadOnly = True TabOrder = 13 Text = '0' end object rgSnubParity: TRadioGroup Left = 4 Top = 28 Width = 77 Height = 37 Caption = 'Snub Parity' Columns = 2 ItemIndex = 0 Items.Strings = ( '0' '1') TabOrder = 0 OnClick = simpleChange end object chkLabelVerts: TCheckBox Left = 8 Top = 76 Width = 113 Height = 13 Caption = 'Label Vertices' TabOrder = 1 OnClick = simpleChange end object chkRandomJitter: TCheckBox Left = 8 Top = 116 Width = 113 Height = 13 Caption = 'Random Jitter' TabOrder = 3 OnClick = simpleChange end object chkAlternateDraw: TCheckBox Left = 8 Top = 136 Width = 157 Height = 13 Caption = 'Alternate Draw Method' TabOrder = 4 OnClick = simpleChange end object chkLabelSegments: TCheckBox Left = 8 Top = 96 Width = 113 Height = 13 Caption = 'Label All Segments' TabOrder = 2 OnClick = simpleChange end object chkDrawGrid: TCheckBox Left = 8 Top = 156 Width = 145 Height = 13 Caption = 'Draw Background Grid' TabOrder = 5 OnClick = simpleChange end object chkDrawSchwarzPolygon: TCheckBox Left = 8 Top = 176 Width = 145 Height = 13 Caption = 'Draw Schwarz Polygon' TabOrder = 6 OnClick = simpleChange end object cmdResetOrientation: TButton Left = 20 Top = 220 Width = 133 Height = 21 Caption = 'Reset Orientation' TabOrder = 8 OnClick = cmdResetOrientationClick end object cmdMakeSnubUniform: TButton Left = 20 Top = 244 Width = 133 Height = 21 Caption = 'Make Snub Uniform' TabOrder = 9 OnClick = cmdMakeSnubUniformClick end object chkFadeOutColors: TCheckBox Left = 8 Top = 196 Width = 145 Height = 13 Caption = 'Fade Out Colors' TabOrder = 7 OnClick = simpleChange end object chkDrawExperimental: TCheckBox Left = 8 Top = 312 Width = 145 Height = 13 Caption = 'Experimental 3' TabOrder = 10 OnClick = simpleChange end object chkTriangle1: TCheckBox Left = 8 Top = 272 Width = 145 Height = 13 Caption = 'Experimental 1' TabOrder = 14 OnClick = simpleChange end object chkTriangle2: TCheckBox Left = 8 Top = 292 Width = 145 Height = 13 Caption = 'Experimental 2' TabOrder = 15 OnClick = simpleChange end end end object ColorDialog1: TColorDialog Ctl3D = True Options = [cdFullOpen, cdAnyColor] Left = 8 Top = 368 end end