Skip to content

Commit

Permalink
Breshenham - initial implementation
Browse files Browse the repository at this point in the history
  • Loading branch information
@dziesig
dziesig committed Apr 15, 2012
1 parent 96b70fd commit c7c6ba5
Show file tree
Hide file tree
Showing 9 changed files with 461 additions and 47 deletions.
210 changes: 169 additions & 41 deletions MagicTracks.lpi
View file
Expand Up @@ -38,30 +38,29 @@
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="35">
<Units Count="37">
<Unit0>
<Filename Value="MagicTracks.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="MagicTracks"/>
<EditorIndex Value="4"/>
<WindowIndex Value="0"/>
<TopLine Value="15"/>
<CursorPos X="1" Y="36"/>
<UsageCount Value="200"/>
<Loaded Value="True"/>
</Unit0>
<Unit1>
<Filename Value="Main1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MainForm"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Main1"/>
<EditorIndex Value="5"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="15" Y="479"/>
<TopLine Value="441"/>
<CursorPos X="62" Y="455"/>
<UsageCount Value="200"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="Drawing1.pas"/>
Expand Down Expand Up @@ -95,37 +94,30 @@
<Filename Value="Preferences1.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="Preferences1"/>
<EditorIndex Value="6"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="203"/>
<UsageCount Value="201"/>
<Loaded Value="True"/>
</Unit5>
<Unit6>
<Filename Value="preferencesform1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="PreferencesForm"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="PreferencesForm1"/>
<EditorIndex Value="7"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="136"/>
<UsageCount Value="208"/>
<Loaded Value="True"/>
</Unit6>
<Unit7>
<Filename Value="unitconversion1.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="UnitConversion1"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="11"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="286"/>
<UsageCount Value="201"/>
<Loaded Value="True"/>
</Unit7>
<Unit8>
<Filename Value="..\MagicLibraries\common1.pas"/>
Expand All @@ -139,12 +131,10 @@
<Filename Value="Ruler1.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="Ruler1"/>
<EditorIndex Value="9"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="55" Y="27"/>
<UsageCount Value="205"/>
<Loaded Value="True"/>
</Unit9>
<Unit10>
<Filename Value=".gitignore"/>
Expand Down Expand Up @@ -179,21 +169,19 @@
<ComponentName Value="DrawingSetFrame"/>
<ResourceBaseClass Value="Frame"/>
<UnitName Value="DrawingSetFrame1"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="20"/>
<UsageCount Value="209"/>
<Loaded Value="True"/>
</Unit13>
<Unit14>
<Filename Value="threepoint1.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="ThreePoint1"/>
<EditorIndex Value="10"/>
<EditorIndex Value="5"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="20"/>
<TopLine Value="68"/>
<CursorPos X="1" Y="84"/>
<UsageCount Value="200"/>
<Loaded Value="True"/>
</Unit14>
Expand All @@ -203,12 +191,10 @@
<ComponentName Value="LayerForm"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="LayerForm1"/>
<EditorIndex Value="2"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="20"/>
<UsageCount Value="182"/>
<Loaded Value="True"/>
<UsageCount Value="187"/>
</Unit15>
<Unit16>
<Filename Value="Notes.txt"/>
Expand Down Expand Up @@ -238,25 +224,21 @@
<Filename Value="layers1.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="Layers1"/>
<EditorIndex Value="3"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="20"/>
<UsageCount Value="169"/>
<Loaded Value="True"/>
<UsageCount Value="174"/>
</Unit19>
<Unit20>
<Filename Value="internals1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="InternalsForm1"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Internals1"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<TopLine Value="113"/>
<CursorPos X="1" Y="20"/>
<UsageCount Value="133"/>
<Loaded Value="True"/>
<UsageCount Value="138"/>
</Unit20>
<Unit21>
<Filename Value="C:\lazarus\lcl\grids.pas"/>
Expand Down Expand Up @@ -285,10 +267,12 @@
<Filename Value="drawingobject1.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="DrawingObject1"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="228"/>
<UsageCount Value="90"/>
<TopLine Value="303"/>
<CursorPos X="1" Y="321"/>
<UsageCount Value="95"/>
<Loaded Value="True"/>
</Unit24>
<Unit25>
<Filename Value="drawingcommon1.pas"/>
Expand All @@ -297,17 +281,17 @@
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="20"/>
<UsageCount Value="90"/>
<UsageCount Value="95"/>
</Unit25>
<Unit26>
<Filename Value="rectangularsolid1.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="RectangularSolid1"/>
<EditorIndex Value="8"/>
<EditorIndex Value="2"/>
<WindowIndex Value="0"/>
<TopLine Value="28"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="20"/>
<UsageCount Value="84"/>
<UsageCount Value="89"/>
<Loaded Value="True"/>
</Unit26>
<Unit27>
Expand All @@ -317,7 +301,7 @@
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="20"/>
<UsageCount Value="74"/>
<UsageCount Value="79"/>
</Unit27>
<Unit28>
<Filename Value="C:\lazarus\lcl\menus.pp"/>
Expand Down Expand Up @@ -355,7 +339,7 @@
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="25" Y="18"/>
<UsageCount Value="22"/>
<UsageCount Value="27"/>
</Unit32>
<Unit33>
<Filename Value="Persistent1.pas"/>
Expand All @@ -364,7 +348,7 @@
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="20"/>
<UsageCount Value="22"/>
<UsageCount Value="27"/>
</Unit33>
<Unit34>
<Filename Value="README"/>
Expand All @@ -374,8 +358,152 @@
<UsageCount Value="10"/>
<DefaultSyntaxHighlighter Value="None"/>
</Unit34>
<Unit35>
<Filename Value="straightline1.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="StraightLine1"/>
<EditorIndex Value="3"/>
<WindowIndex Value="0"/>
<TopLine Value="89"/>
<CursorPos X="66" Y="101"/>
<UsageCount Value="25"/>
<Loaded Value="True"/>
</Unit35>
<Unit36>
<Filename Value="breshenham1.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="Breshenham1"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="4"/>
<WindowIndex Value="0"/>
<TopLine Value="47"/>
<CursorPos X="14" Y="55"/>
<UsageCount Value="22"/>
<Loaded Value="True"/>
</Unit36>
</Units>
<JumpHistory Count="0" HistoryIndex="-1"/>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="breshenham1.pas"/>
<Caret Line="37" Column="55" TopLine="12"/>
</Position1>
<Position2>
<Filename Value="breshenham1.pas"/>
<Caret Line="50" Column="3" TopLine="37"/>
</Position2>
<Position3>
<Filename Value="breshenham1.pas"/>
<Caret Line="75" Column="1" TopLine="50"/>
</Position3>
<Position4>
<Filename Value="breshenham1.pas"/>
<Caret Line="42" Column="10" TopLine="22"/>
</Position4>
<Position5>
<Filename Value="breshenham1.pas"/>
<Caret Line="53" Column="27" TopLine="38"/>
</Position5>
<Position6>
<Filename Value="breshenham1.pas"/>
<Caret Line="74" Column="1" TopLine="48"/>
</Position6>
<Position7>
<Filename Value="breshenham1.pas"/>
<Caret Line="53" Column="27" TopLine="38"/>
</Position7>
<Position8>
<Filename Value="breshenham1.pas"/>
<Caret Line="64" Column="10" TopLine="49"/>
</Position8>
<Position9>
<Filename Value="breshenham1.pas"/>
<Caret Line="45" Column="17" TopLine="42"/>
</Position9>
<Position10>
<Filename Value="breshenham1.pas"/>
<Caret Line="54" Column="27" TopLine="39"/>
</Position10>
<Position11>
<Filename Value="breshenham1.pas"/>
<Caret Line="37" Column="31" TopLine="16"/>
</Position11>
<Position12>
<Filename Value="breshenham1.pas"/>
<Caret Line="54" Column="20" TopLine="39"/>
</Position12>
<Position13>
<Filename Value="breshenham1.pas"/>
<Caret Line="37" Column="36" TopLine="31"/>
</Position13>
<Position14>
<Filename Value="breshenham1.pas"/>
<Caret Line="54" Column="22" TopLine="39"/>
</Position14>
<Position15>
<Filename Value="breshenham1.pas"/>
<Caret Line="84" Column="24" TopLine="62"/>
</Position15>
<Position16>
<Filename Value="breshenham1.pas"/>
<Caret Line="61" Column="17" TopLine="23"/>
</Position16>
<Position17>
<Filename Value="breshenham1.pas"/>
<Caret Line="56" Column="35" TopLine="43"/>
</Position17>
<Position18>
<Filename Value="straightline1.pas"/>
<Caret Line="101" Column="66" TopLine="89"/>
</Position18>
<Position19>
<Filename Value="breshenham1.pas"/>
<Caret Line="52" Column="1" TopLine="40"/>
</Position19>
<Position20>
<Filename Value="breshenham1.pas"/>
<Caret Line="61" Column="1" TopLine="41"/>
</Position20>
<Position21>
<Filename Value="breshenham1.pas"/>
<Caret Line="62" Column="1" TopLine="42"/>
</Position21>
<Position22>
<Filename Value="breshenham1.pas"/>
<Caret Line="63" Column="1" TopLine="43"/>
</Position22>
<Position23>
<Filename Value="breshenham1.pas"/>
<Caret Line="64" Column="1" TopLine="44"/>
</Position23>
<Position24>
<Filename Value="breshenham1.pas"/>
<Caret Line="65" Column="1" TopLine="45"/>
</Position24>
<Position25>
<Filename Value="breshenham1.pas"/>
<Caret Line="66" Column="1" TopLine="46"/>
</Position25>
<Position26>
<Filename Value="breshenham1.pas"/>
<Caret Line="70" Column="1" TopLine="50"/>
</Position26>
<Position27>
<Filename Value="breshenham1.pas"/>
<Caret Line="52" Column="1" TopLine="47"/>
</Position27>
<Position28>
<Filename Value="breshenham1.pas"/>
<Caret Line="53" Column="1" TopLine="47"/>
</Position28>
<Position29>
<Filename Value="breshenham1.pas"/>
<Caret Line="54" Column="1" TopLine="47"/>
</Position29>
<Position30>
<Filename Value="breshenham1.pas"/>
<Caret Line="55" Column="1" TopLine="47"/>
</Position30>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="9"/>
Expand Down
2 changes: 1 addition & 1 deletion MagicTracks.lpr
View file
Expand Up @@ -29,7 +29,7 @@
Forms, printer4lazarus, Main1, Drawing1, About1, Preferences1,
PreferencesForm1, UnitConversion1, Ruler1, DrawingFrame1, DrawingSetFrame1,
ThreePoint1, LayerForm1, Layers1, Internals1, DrawingObject1, DrawingCommon1,
RectangularSolid1, Sphere1, Common1, Persistent1;
RectangularSolid1, Sphere1, Common1, Persistent1, StraightLine1, Breshenham1;

{$R *.res}

Expand Down
3 changes: 2 additions & 1 deletion Main1.lfm
View file
Expand Up @@ -1061,7 +1061,7 @@ object MainForm: TMainForm
Caption = 'Objects'
object MenuItem35: TMenuItem
Caption = 'Create from Guides'
object MenuItem37: TMenuItem
object GuidesStraightLine: TMenuItem
Action = GuidesToLine
end
object MenuItem36: TMenuItem
Expand Down Expand Up @@ -1359,6 +1359,7 @@ object MainForm: TMainForm
object GuidesToLine: TAction
Category = 'Guides'
Caption = 'Straight Line'
OnExecute = GuidesToLineExecute
end
end
object ImageList1: TImageList
Expand Down

0 comments on commit c7c6ba5

Please sign in to comment.