1.0: init version

.gitignore

@@ -0,0 +1,6 @@
+*.dcu
+*.~*
+*.ddp
+*.dmp
+*.dsk
+*.dsm

LICENSE

@@ -0,0 +1,30 @@
+Public Domain Mark 1.0
+ No Copyright
+
+    This work has been identified as being free of known restrictions
+    under copyright law, including all related and neighboring rights.
+
+    You can copy, modify, distribute and perform the work, even for
+    commercial purposes, all without asking permission. See Other
+    Information below.
+
+ Other Information
+
+    The work may not be free of known copyright restrictions in all
+    jurisdictions.
+
+    Persons may have other rights in or related to the work, such as
+    patent or trademark rights, and others may have rights in how the
+    work is used, such as publicity or privacy rights.
+
+    In some jurisdictions moral rights of the author may persist beyond
+    the term of copyright. These rights may include the right to be
+    identified as the author and the right to object to derogatory
+    treatments.
+
+    Unless expressly stated otherwise, the person who identified the work
+    makes no warranties about the work, and disclaims liability for all
+    uses of the work, to the fullest extent permitted by applicable law.
+
+    When using or citing the work, you should not imply endorsement by
+    the author or the person who identified the work.

README.md

@@ -0,0 +1,16 @@
+# PasGeoConvert.
+
+28 Feb 2015  
+https://gis-lab.info/forum/viewtopic.php?f=34&t=18604&start=15  
+(c) Franklin1967 (https://gis-lab.info/forum/memberlist.php?mode=viewprofile&u=10600)
+
+### Description
+
+Convert geodetic coordinates to planar rectangular
+* `MathExt.pas` is my math library. Inside there are types and basic geometric functions on which the converter to SK63 and geodesy converters are based.
+* `uCk63.pas` is the source code of the CK63 converter along with the algorithm for determining the layout of all regions (along the way, you will figure out what's what, the example compiles and works)
+* `uGisCalc.pas` is a geodetic library itself. In it, I collected everything from everywhere (except for SK63 - it is separately, in the module above in the text).
+
+-----
+
+In fact, I translated the source code of the PRJ4.0 project written in C into Pascal.

src/CK42.txt

@@ -0,0 +1,6 @@
+// - комментарий
+N474357.5-E223423
+N475015.0-E224724.5
+N475028.0-E223432
+
+

src/CK63.txt

@@ -0,0 +1,22 @@
+// - комментарий
+X:5557407.81 Y:3358368.77
+X:5557426.75 Y:3358643.26
+X:5557429.56 Y:3358687.57
+X:5557307.91 Y:3358689.77
+X:5557282.82 Y:3358688.04
+X:5557256.92 Y:3358458.31
+X:5557339.28 Y:3358409.64
+// ВИКОС
+X:5557256.92 Y:3358458.31
+X:5557282.82 Y:3358688.04
+X:5557230.94 Y:3358684.45
+X:5557205.16 Y:3358681.26
+X:5557183.05 Y:3358501.97
+// ТОВ ГМ
+X:5557183.05 Y:3358501.97
+X:5557205.16 Y:3358681.26
+X:5557142.84 Y:3358673.54
+X:5557058.63 Y:3358666.19
+X:5556939.46 Y:3358649.94
+X:5556941.81 Y:3358643.88
+X:5557128.99 Y:3358533.92

src/Convert.cfg

@@ -0,0 +1,38 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST

src/Convert.dof

@@ -0,0 +1,136 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1049
+CodePage=1251
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=

src/Convert.dpr

@@ -0,0 +1,14 @@
+program Convert;
+
+uses
+  Forms,
+  Windows,
+  uMainUnit in 'uMainUnit.pas' {Form1};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.

src/GAUSS.txt

@@ -0,0 +1,6 @@
+// - комментарий
+X:5289992.21 Y:4617995.50
+// или без Х и Y
+5302004.72-4634008.65 H=0
+5302056.40-4617937.33
+