;
; ECKERTSCHER ENTWURF III
; =======================
;
; Nr. bei Wagner: 23a
; Kurzname:       Eckert III
; Name:           Eckertscher Entwurf III (abstandsgleich, elliptische Meridians)
; Autor:          Max Eckert(-Greiffendorf)
; Quelle:         Karlheinz Wagner, Kartographische Netzentwürfe, Leipzig 1949, S. 219.
; Richtung:       Invers
;
; Das Programm übernimmt die Koordinaten eines Punktes (x/y) und transformiert
; diese in einen Punkt (x'/y').
;
; x/y sind ebene Zielpunktkoordinaten, x'/y' geben die geogr. Breite und Länge
; der Position auf der Quell-Erdkugel, auf der der Zielpunkt gelesen werden
; kann.
;
; Maßstab und Mittelmeridian werden abgefragt.
;
; Literatur:
; Wagner: Kartographische Netzentwürfe, Leipzig: Bibliographisches Institut 1949

; (C) Rolf Böhm 2004

; Benutzte Variablen
; ==================

; Die Variablennamen entsprechen weitgehend denen von Karlheinz Wagner,

;
; Laufende Koordinaten
;
	_name	Eckerts~Entwurf~III
	_var	phi		; Geographische Breite
	_var	lambda		; Geographische Länge
	_var	psi		; The parameter
	_var	t1		; temporär
	_var	t2		; temporär
	_var	n		; 2/root(2+pi)
	_var	n*pi/2		; n*pi/2
	_var	lambda0		; Null-Länge
;
; x, y, x', y',  Cx', Cy', Rx', Ry', °(, (°, pi, pi/2 etc. sind vordefinierte globale Konstanten
;
; Initialisierung
; ===============
;
	tstne	initial	077$
; Dialog
	input	scale	Eckerts~Entwurf~III~(abstandsgleich,~elliptische~Meridiane)\\Maßstabszahl
	clip	scale	1	1E12
	input	lambda0	Mittelpunktslänge~in~Grad
	clip	lambda0	-180	180
; Konstanten (Konfigurationsvariablen) berechnen
	mov 	t1	4
	mov	t2	pi
	add	t2	4
	mul	t2	pi
	root	t2	2
	div	t1	t2
	mov	n	t1
;	
	mov	n*pi/2	n
	mul	n*pi/2	pi
	div	n*pi/2	2
; Programm ist initialisiert
	mov	initial	1
077$:
;
; SIMD-Laufbereich
; ================

;
; Maßstab, Kartenmittelpunkt etc. einrechnen
; ------------------------------------------

	sub	x	Cx'		; Bildmittelpunkt
	div	x	Rx'		; Erdradius
	mul	x	scale		; Kartenmaßstab

	sub	y	Cy'
	div	y	Ry'
	mul	y	scale
;
; Eigentlicher Entwurf, dieser invers
; -----------------------------------

	mov	psi	y		; psi -- the parameter
	div	psi	n*pi/2
	asin	psi
	errjump	out

	mov	t1	psi		; t1 = 1 + cos(psi) 
	cos	t1
	add	t1	1		
	
	mov	lambda	x
	mul	lambda	2
	div	lambda	n
	div	lambda	t1

	mov	phi	psi
	sin	phi
	mul	phi	pi
	div	phi	2
;
; In Gradmaß umrechnen und Ausserhalbtest
; ---------------------------------------

	mul	phi	(°
	mul	lambda	(°
	cmplt	phi	-90	out
	cmpgt	phi	90	out
	cmplt	lambda	-180	out
	cmpgt	lambda	180	out
;
; Schlussarbeiten
; ---------------
;
	mov	x'	lambda
	mov	y'	phi
; Lambda um lambda0 kreisen lassen
	add	x'	lambda0
	cmod	x'	-180	180
	exit
out:
	mov	x'	-9999
	mov	y'	-9999
	exit
	_end