diff --git a/applications/fpvviewer/cube.dxf b/applications/fpvviewer/cube.dxf new file mode 100644 index 000000000..d0497a33d --- /dev/null +++ b/applications/fpvviewer/cube.dxf @@ -0,0 +1,414 @@ + 0 +SECTION + 2 +HEADER +999 +cube.dxf created by IVREAD. +999 +Original data in cube.iv + 0 +ENDSEC + 0 +SECTION + 2 +TABLES + 0 +ENDSEC + 0 +SECTION + 2 +BLOCKS + 0 +ENDSEC + 0 +SECTION + 2 +ENTITIES + 0 +LINE + 8 + 0 + 10 + -0.5000 + 20 + -0.5000 + 30 + 1.000 + 11 + 0.5000 + 21 + -0.5000 + 31 + 1.000 + 0 +LINE + 8 + 0 + 10 + 0.5000 + 20 + -0.5000 + 30 + 1.000 + 11 + 0.5000 + 21 + 0.5000 + 31 + 1.000 + 0 +LINE + 8 + 0 + 10 + 0.5000 + 20 + 0.5000 + 30 + 1.000 + 11 + -0.5000 + 21 + 0.5000 + 31 + 1.000 + 0 +LINE + 8 + 0 + 10 + -0.5000 + 20 + 0.5000 + 30 + 1.000 + 11 + -0.5000 + 21 + -0.5000 + 31 + 1.000 + 0 +LINE + 8 + 0 + 10 + 0.5000 + 20 + -0.5000 + 30 + 0.0000E+00 + 11 + -0.5000 + 21 + -0.5000 + 31 + 0.0000E+00 + 0 +LINE + 8 + 0 + 10 + -0.5000 + 20 + -0.5000 + 30 + 0.0000E+00 + 11 + -0.5000 + 21 + 0.5000 + 31 + 0.0000E+00 + 0 +LINE + 8 + 0 + 10 + -0.5000 + 20 + 0.5000 + 30 + 0.0000E+00 + 11 + 0.5000 + 21 + 0.5000 + 31 + 0.0000E+00 + 0 +LINE + 8 + 0 + 10 + 0.5000 + 20 + 0.5000 + 30 + 0.0000E+00 + 11 + 0.5000 + 21 + -0.5000 + 31 + 0.0000E+00 + 0 +LINE + 8 + 0 + 10 + -0.5000 + 20 + -0.5000 + 30 + 0.0000E+00 + 11 + -0.5000 + 21 + -0.5000 + 31 + 1.000 + 0 +LINE + 8 + 0 + 10 + -0.5000 + 20 + -0.5000 + 30 + 1.000 + 11 + -0.5000 + 21 + 0.5000 + 31 + 1.000 + 0 +LINE + 8 + 0 + 10 + -0.5000 + 20 + 0.5000 + 30 + 1.000 + 11 + -0.5000 + 21 + 0.5000 + 31 + 0.0000E+00 + 0 +LINE + 8 + 0 + 10 + -0.5000 + 20 + 0.5000 + 30 + 0.0000E+00 + 11 + -0.5000 + 21 + -0.5000 + 31 + 0.0000E+00 + 0 +LINE + 8 + 0 + 10 + 0.5000 + 20 + -0.5000 + 30 + 1.000 + 11 + 0.5000 + 21 + -0.5000 + 31 + 0.0000E+00 + 0 +LINE + 8 + 0 + 10 + 0.5000 + 20 + -0.5000 + 30 + 0.0000E+00 + 11 + 0.5000 + 21 + 0.5000 + 31 + 0.0000E+00 + 0 +LINE + 8 + 0 + 10 + 0.5000 + 20 + 0.5000 + 30 + 0.0000E+00 + 11 + 0.5000 + 21 + 0.5000 + 31 + 1.000 + 0 +LINE + 8 + 0 + 10 + 0.5000 + 20 + 0.5000 + 30 + 1.000 + 11 + 0.5000 + 21 + -0.5000 + 31 + 1.000 + 0 +LINE + 8 + 0 + 10 + -0.5000 + 20 + -0.5000 + 30 + 0.0000E+00 + 11 + 0.5000 + 21 + -0.5000 + 31 + 0.0000E+00 + 0 +LINE + 8 + 0 + 10 + 0.5000 + 20 + -0.5000 + 30 + 0.0000E+00 + 11 + 0.5000 + 21 + -0.5000 + 31 + 1.000 + 0 +LINE + 8 + 0 + 10 + 0.5000 + 20 + -0.5000 + 30 + 1.000 + 11 + -0.5000 + 21 + -0.5000 + 31 + 1.000 + 0 +LINE + 8 + 0 + 10 + -0.5000 + 20 + -0.5000 + 30 + 1.000 + 11 + -0.5000 + 21 + -0.5000 + 31 + 0.0000E+00 + 0 +LINE + 8 + 0 + 10 + -0.5000 + 20 + 0.5000 + 30 + 1.000 + 11 + 0.5000 + 21 + 0.5000 + 31 + 1.000 + 0 +LINE + 8 + 0 + 10 + 0.5000 + 20 + 0.5000 + 30 + 1.000 + 11 + 0.5000 + 21 + 0.5000 + 31 + 0.0000E+00 + 0 +LINE + 8 + 0 + 10 + 0.5000 + 20 + 0.5000 + 30 + 0.0000E+00 + 11 + -0.5000 + 21 + 0.5000 + 31 + 0.0000E+00 + 0 +LINE + 8 + 0 + 10 + -0.5000 + 20 + 0.5000 + 30 + 0.0000E+00 + 11 + -0.5000 + 21 + 0.5000 + 31 + 1.000 + 0 +ENDSEC + 0 +EOF diff --git a/applications/fpvviewer/fpvv_mainform.lfm b/applications/fpvviewer/fpvv_mainform.lfm new file mode 100644 index 000000000..d041ee0af --- /dev/null +++ b/applications/fpvviewer/fpvv_mainform.lfm @@ -0,0 +1,8 @@ +object Form1: TForm1 + Left = 349 + Height = 240 + Top = 171 + Width = 320 + Caption = 'Form1' + LCLVersion = '0.9.31' +end diff --git a/applications/fpvviewer/fpvv_mainform.pas b/applications/fpvviewer/fpvv_mainform.pas new file mode 100644 index 000000000..24af93956 --- /dev/null +++ b/applications/fpvviewer/fpvv_mainform.pas @@ -0,0 +1,26 @@ +unit fpvv_mainform; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs; + +type + TForm1 = class(TForm) + private + { private declarations } + public + { public declarations } + end; + +var + Form1: TForm1; + +implementation + +{$R *.lfm} + +end. + diff --git a/applications/fpvviewer/fpvviewer.lpi b/applications/fpvviewer/fpvviewer.lpi new file mode 100644 index 000000000..b63b082db --- /dev/null +++ b/applications/fpvviewer/fpvviewer.lpi @@ -0,0 +1,95 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/applications/fpvviewer/fpvviewer.lpr b/applications/fpvviewer/fpvviewer.lpr new file mode 100644 index 000000000..830a81bcf --- /dev/null +++ b/applications/fpvviewer/fpvviewer.lpr @@ -0,0 +1,20 @@ +program fpvviewer; + +{$mode objfpc}{$H+} + +uses + {$IFDEF UNIX}{$IFDEF UseCThreads} + cthreads, + {$ENDIF}{$ENDIF} + Interfaces, // this includes the LCL widgetset + Forms, fpvv_mainform + { you can add units after this }; + +{$R *.res} + +begin + Application.Initialize; + Application.CreateForm(TForm1, Form1); + Application.Run; +end. +