Lines Matching refs:lambda
228 # lambda -- Longitude of the point to be projected in degrees
235 proc ::mapproj::toPlateCarree {lambda_0 phi_0 lambda phi} {
237 set lambda [expr {$lambda - $lambda_0 + 180.}]
238 if {$lambda < 0.0 || $lambda > 360.0} {
239 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
241 set lambda [expr {$lambda - 180.}]
242 set x [expr {$lambda * $degree}]
262 set lambda [expr {$lambda_0 + $x * $radian + 180.}]
263 if {$lambda < 0.0 || $lambda > 360.0} {
264 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
266 set lambda [expr {$lambda - 180.}]
268 return [list $lambda $phi]
280 # lambda -- Longitude of the point to be projected in degrees
287 proc ::mapproj::toCylindricalEqualArea {phi_1 lambda_0 phi_0 lambda phi} {
290 set lambda [expr {$lambda - $lambda_0 + 180.}]
291 if {$lambda < 0.0 || $lambda > 360.0} {
292 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
294 set lambda [expr {$lambda - 180.}]
295 set x [expr {$lambda * $degree * $cos_phi_s}]
319 set lambda [expr {$lambda_0 + $x / $cos_phi_s * $radian + 180.}]
320 if {$lambda < 0.0 || $lambda > 360.0} {
321 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
323 set lambda [expr {$lambda - 180.}]
326 return [list $lambda $phi]
337 # lambda -- Longitude of the point to be projected in degrees
344 proc ::mapproj::toMercator {lambda_0 phi_0 lambda phi} {
348 set lambda [expr {$lambda - $lambda_0 + 180.}]
349 if {$lambda < 0.0 || $lambda > 360.0} {
350 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
352 set lambda [expr {$lambda - 180.}]
353 set x [expr {$lambda * $degree}]
377 set lambda [expr {$lambda_0 + $x * $radian + 180.}]
378 if {$lambda < 0.0 || $lambda > 360.0} {
379 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
381 set lambda [expr {$lambda - 180.}]
383 return [list $lambda $phi]
393 # lambda -- Longitude of the point to be projected in degrees
400 proc ::mapproj::toMillerCylindrical {lambda_0 lambda phi} {
402 $lambda [expr {0.8 * $phi}]] break
420 foreach {lambda phi} [fromMercator $lambda_0 0.0 \
422 return [list $lambda [expr {1.25 * $phi}]]
433 # lambda -- Longitude of the point to be projected in degrees
440 proc ::mapproj::toSinusoidal {lambda_0 phi_0 lambda phi} {
443 set lambda [expr {$lambda - $lambda_0 + 180.}]
444 if {$lambda < 0.0 || $lambda > 360.0} {
445 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
447 set lambda [expr {($lambda - 180.) * $degree}]
449 set x [expr {$lambda * cos($phi)}]
472 set lambda [expr {180. + $lambda_0 + $radian * $x / cos($y)}]
473 if {$lambda < 0.0 || $lambda > 360.0} {
474 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
476 set lambda [expr {$lambda - 180.}]
477 return [list $lambda $phi]
487 # lambda -- Longitude of the point to be projected in degrees
494 proc ::mapproj::toMollweide {lambda_0 lambda phi} {
500 set lambda [expr {$lambda - $lambda_0 + 180.}]
501 if {$lambda < 0.0 || $lambda > 360.0} {
502 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
504 set lambda [expr {($lambda - 180.) * $degree}]
515 set x [expr {$sqrt8 * $lambda * cos($theta) / $pi}]
540 set lambda [expr {$lambda_0 + $radian * $pi * $x /
543 if {$lambda < 0.0 || $lambda > 360.0} {
544 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
546 set lambda [expr {$lambda - 180.}]
547 return [list $lambda [expr {$phi * $radian}]]
557 # lambda -- Longitude of the point to be projected in degrees
564 proc ::mapproj::toEckertIV {lambda_0 lambda phi} {
570 set lambda [expr {$lambda - $lambda_0 + 180.}]
571 if {$lambda < 0.0 || $lambda > 360.0} {
572 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
574 set lambda [expr {($lambda - 180.) * $degree}]
587 set x [expr {$EckertIVK1 * $lambda * (1.0 + cos($theta))}]
617 set lambda [expr {180.0 + $lambda_0
619 if {$lambda < 0.0 || $lambda > 360.0} {
620 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
622 set lambda [expr {$lambda - 180.}]
623 return [list $lambda [expr {$phi * $radian}]]
633 # lambda -- Longitude of the point to be projected in degrees
640 proc ::mapproj::toEckertVI {lambda_0 lambda phi} {
645 set lambda [expr {$lambda - $lambda_0 + 180.}]
646 if {$lambda < 0.0 || $lambda > 360.0} {
647 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
649 set lambda [expr {($lambda - 180.) * $degree}]
662 set x [expr {$lambda * (1.0 + cos($theta)) / $EckertVIK1}]
691 set lambda [expr {180.0 + $lambda_0 + $radian * $EckertVIK1 * $x
693 if {$lambda < 0.0 || $lambda > 360.0} {
694 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
696 set lambda [expr {$lambda - 180.}]
697 return [list $lambda [expr {$phi * $radian}]]
706 # lambda -- Longitude of the point to be projected in degrees
713 proc ::mapproj::toRobinson {lambda_0 lambda phi} {
720 set lambda [expr {$lambda - $lambda_0 + 180.}]
721 if {$lambda < 0.0 || $lambda > 360.0} {
722 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
724 set lambda [expr {$lambda - 180.}]
728 set x [expr {$degree * $s * $lambda}]
782 set lambda [expr {180.0 + $lambda_0 + $radian * $x / $s}]
783 if {$lambda < 0.0 || $lambda > 360.0} {
784 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
786 set lambda [expr {$lambda - 180.}]
787 return [list $lambda $m]
797 # lambda -- Longitude of the point to be projected in degrees
804 proc ::mapproj::toCassini {lambda_0 phi_0 lambda phi} {
809 set lambda [expr {$lambda - $lambda_0 + 180.}]
810 if {$lambda < 0.0 || $lambda > 360.0} {
811 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
813 set lambda [expr {($lambda - 180.) * $degree}]
815 set x [expr {asin(cos($phi) * sin($lambda))}]
816 set y [expr {atan2(tan($phi), cos($lambda)) - $degree * $phi_0}]
842 set lambda [expr {180. + $lambda_0 + $radian * atan2(tan($x), cos($y))}]
843 if {$lambda < 0.0 || $lambda > 360.0} {
844 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
846 set lambda [expr {$lambda - 180.}]
847 return [list $lambda $phi]
856 # lambda - Longitude of the point to be projected in degrees
862 proc ::mapproj::toPeirceQuincuncial {lambda_0 lambda phi} {
875 set lambda [expr {$lambda - $lambda_0 + 180.}]
876 if {$lambda < 0.0 || $lambda > 360.0} {
877 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
879 set lambda [expr {($lambda - 180.) * $degree}]
883 # the sign of 'lambda' and 'n' to be positive if |lambda| > pi/2
886 set cos_lambda [expr {cos($lambda)}]
887 set sin_lambda [expr {sin($lambda)}]
919 if {$lambda < $mthreequarterpi} {
921 } elseif {$lambda < $mquarterpi} {
923 } elseif {$lambda < $quarterpi} {
925 } elseif {$lambda < $threequarterpi} {
1025 set lambda [expr {$quarterpi - atan2($cos_b, $cos_a)}]
1032 set lambda [expr {$halfpi - $lambda}]
1035 set lambda [expr {$pi - $lambda}]
1038 set lambda [expr {-$lambda}]
1046 set lambda [expr {$lambda * $radian + 180. + $lambda_0}]
1047 if {$lambda < 0.0 || $lambda > 360.0} {
1048 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
1050 set lambda [expr {$lambda - 180.}]
1053 return [list $lambda $phi]
1082 # lambda - Longitude of the point to be projected, in degrees
1094 proc ::mapproj::ToCartesian {lambda phi} {
1096 set lambda [expr {$degree * $lambda}]
1099 return [list [expr {$cos_phi * cos($lambda)}] \
1100 [expr {$cos_phi * sin($lambda)}] \
1177 # lambda, phi -- Longitude and latitude of the point to be projected
1183 proc ::mapproj::toOrthographic {lambda_0 phi_0 lambda phi} {
1184 foreach {x y z} [ToCartesian [expr {$lambda-$lambda_0}] $phi] \
1215 foreach {lambda phi} [CartesianToSpherical $x $y $z] break
1219 set lambda [expr {$lambda * $radian + 180. + $lambda_0}]
1220 if {$lambda < 0.0 || $lambda > 360.0} {
1221 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
1223 set lambda [expr {$lambda - 180.}]
1226 return [list $lambda $phi]
1238 # lambda, phi -- Longitude and latitude of the point to be projected
1244 proc ::mapproj::toStereographic {lambda_0 phi_0 lambda phi} {
1245 foreach {x y z} [ToCartesian [expr {$lambda-$lambda_0}] $phi] \
1282 foreach {lambda phi} [CartesianToSpherical $x $y $z] break
1286 set lambda [expr {$lambda * $radian + 180. + $lambda_0}]
1287 if {$lambda < 0.0 || $lambda > 360.0} {
1288 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
1290 set lambda [expr {$lambda - 180.}]
1293 return [list $lambda $phi]
1305 # lambda, phi -- Longitude and latitude of the point to be projected
1311 proc ::mapproj::toGnomonic {lambda_0 phi_0 lambda phi} {
1312 foreach {x y z} [ToCartesian [expr {$lambda-$lambda_0}] $phi] \
1349 foreach {lambda phi} [CartesianToSpherical $x $y $z] break
1353 set lambda [expr {$lambda * $radian + 180. + $lambda_0}]
1354 if {$lambda < 0.0 || $lambda > 360.0} {
1355 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
1357 set lambda [expr {$lambda - 180.}]
1360 return [list $lambda $phi]
1372 # lambda, phi -- Longitude and latitude of the point to be projected
1378 proc ::mapproj::toAzimuthalEquidistant {lambda_0 phi_0 lambda phi} {
1379 foreach {x y z} [ToCartesian [expr {$lambda-$lambda_0}] $phi] \
1410 foreach {lambda phi} [CartesianToSpherical $x $y $z] break
1414 set lambda [expr {$lambda * $radian + 180. + $lambda_0}]
1415 if {$lambda < 0.0 || $lambda > 360.0} {
1416 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
1418 set lambda [expr {$lambda - 180.}]
1421 return [list $lambda $phi]
1433 # lambda, phi -- Longitude and latitude of the point to be projected
1439 proc ::mapproj::toLambertAzimuthalEqualArea {lambda_0 phi_0 lambda phi} {
1440 foreach {x y z} [ToCartesian [expr {$lambda-$lambda_0}] $phi] \
1473 foreach {lambda phi} [CartesianToSpherical $x $y $z] break
1477 set lambda [expr {$lambda * $radian + 180. + $lambda_0}]
1478 if {$lambda < 0.0 || $lambda > 360.0} {
1479 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
1481 set lambda [expr {$lambda - 180.}]
1484 return [list $lambda $phi]
1496 # lambda, phi -- Longitude and latitude of the point to be projected
1502 proc ::mapproj::toHammer {lambda_0 lambda phi} {
1503 set lambda [expr {$lambda - $lambda_0 + 180.}]
1504 if {$lambda < 0.0 || $lambda > 360.0} {
1505 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
1507 set lambda [expr {$lambda - 180.0}]
1508 foreach {x y z} [ToCartesian [expr {$lambda/2.}] $phi] \
1539 foreach {lambda phi} [CartesianToSpherical $x $y $z] break
1543 set lambda [expr {2.0 * $lambda * $radian + 180. + $lambda_0}]
1544 if {$lambda < 0.0 || $lambda > 360.0} {
1545 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
1547 set lambda [expr {$lambda - 180.}]
1550 return [list $lambda $phi]
1562 # lambda, phi -- Longitude and latitude of the point to be projected
1567 proc ::mapproj::toConicEquidistant {lambda_0 phi_0 phi_1 phi_2 lambda phi} {
1572 set lambda [expr {$lambda - $lambda_0 + 180.}]
1573 if {$lambda < 0.0 || $lambda > 360.0} {
1574 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
1576 set lambda [expr {($lambda - 180.0) * $degree}]
1582 set theta [expr {$n * $lambda}]
1618 set lambda [expr {($theta / $n * $radian) + $lambda_0 + 180.}]
1619 if {$lambda < 0.0 || $lambda > 360.0} {
1620 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
1622 set lambda [expr {$lambda - 180.}]
1623 return [list $lambda $phi]
1635 # lambda, phi -- Longitude and latitude of the point to be projected
1640 proc ::mapproj::toAlbersEqualAreaConic {lambda_0 phi_0 phi_1 phi_2 lambda phi} {
1645 set lambda [expr {$lambda - $lambda_0 + 180.}]
1646 if {$lambda < 0.0 || $lambda > 360.0} {
1647 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
1649 set lambda [expr {($lambda - 180.0) * $degree}]
1654 set theta [expr {$n * $lambda}]
1692 set lambda [expr {($theta / $n * $radian) + $lambda_0 + 180.}]
1693 if {$lambda < 0.0 || $lambda > 360.0} {
1694 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
1696 set lambda [expr {$lambda - 180.}]
1697 return [list $lambda $phi]
1709 # lambda, phi -- Longitude and latitude of the point to be projected
1714 proc ::mapproj::toLambertConformalConic {lambda_0 phi_0 phi_1 phi_2 lambda phi} {
1720 set lambda [expr {$lambda - $lambda_0 + 180.}]
1721 if {$lambda < 0.0 || $lambda > 360.0} {
1722 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
1724 set lambda [expr {($lambda - 180.0) * $degree}]
1734 set x [expr {$rho * sin($n * $lambda)}]
1735 set y [expr {$rho_0 - $rho * cos($n * $lambda)}]
1772 set lambda [expr {($theta / $n * $radian) + $lambda_0 + 180.}]
1773 if {$lambda < 0.0 || $lambda > 360.0} {
1774 set lambda [expr {$lambda - 360. * floor($lambda / 360.)}]
1776 set lambda [expr {$lambda - 180.}]
1777 return [list $lambda $phi]
1782 proc ::mapproj::toLambertCylindricalEqualArea {lambda_0 phi_0 lambda phi} {
1783 toCylindricalEqualArea 0.0 $lambda_0 $phi_0 $lambda $phi
1788 proc ::mapproj::toBehrmann {lambda_0 phi_0 lambda phi} {
1789 toCylindricalEqualArea 30.0 $lambda_0 $phi_0 $lambda $phi
1794 proc ::mapproj::toTrystanEdwards {lambda_0 phi_0 lambda phi} {
1795 toCylindricalEqualArea 37.4 $lambda_0 $phi_0 $lambda $phi
1800 proc ::mapproj::toHoboDyer {lambda_0 phi_0 lambda phi} {
1801 toCylindricalEqualArea 37.5 $lambda_0 $phi_0 $lambda $phi
1806 proc ::mapproj::toGallPeters {lambda_0 phi_0 lambda phi} {
1807 toCylindricalEqualArea 45.0 $lambda_0 $phi_0 $lambda $phi
1812 proc ::mapproj::toBalthasart {lambda_0 phi_0 lambda phi} {
1813 toCylindricalEqualArea 50.0 $lambda_0 $phi_0 $lambda $phi