home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Science / Science.zip / gmt_os2.zip / src / gmt_map_good.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-10-09  |  175.1 KB  |  5,316 lines
  1. /*--------------------------------------------------------------------
  2.  *    The GMT-system:    @(#)gmt_map.c    2.56  09 Aug 1995    
  3.  *
  4.  *    Copyright (c) 1991-1995 by P. Wessel and W. H. F. Smith
  5.  *    See README file for copying and redistribution conditions.
  6.  *--------------------------------------------------------------------*/
  7.  
  8. /*
  9.  *
  10.  *            G M T _ M A P . C
  11.  *
  12.  *- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  13.  * gmt_map.c contains code related to coordinate transformation
  14.  *
  15.  *     Map Transformation Setup Routines
  16.  *    These routines initializes the selected map transformation
  17.  *    The names and main function are listed below
  18.  *    NB! Note that the transformation function does not check that they are
  19.  *    passed valid lon,lat numbers. I.e asking for log10 scaling using values
  20.  *    <= 0 results in problems.
  21.  *
  22.  * Map_projections include functions that will set up the transformation
  23.  * between xy and latlon for several map projections.
  24.  *
  25.  * A few of the core coordinate transformation functions are based on similar
  26.  * FORTRAN routines written by Pat Manley, Doug Shearer, and Bill Haxby, and
  27.  * have been rewritten in C and subsequently streamlined.  The rest is based
  28.  * on P. Snyder, "Map Projections - a working manual", USGS Prof paper 1395.
  29.  *
  30.  * Transformations supported (both forward and inverse):
  31.  *    Linear x/y[/z] scaling
  32.  *    Polar (theta, r) scaling
  33.  *    Mercator
  34.  *    Stereographic
  35.  *    Albers Equal-Area Conic
  36.  *    Lambert Conformal Conic
  37.  *    Cassini Cylindrical
  38.  *    Oblique Mercator
  39.  *    TM Transverse Mercator
  40.  *    UTM Universal Transverse Mercator
  41.  *    Lambert Azimuthal Equal-Area
  42.  *    Mollweide Equal-Area
  43.  *    Hammer-Aitoff Equal-Area
  44.  *    Sinusoidal Equal-Area
  45.  *    Winkel Tripel
  46.  *    Orthographic
  47.  *    Azimuthal Equidistant
  48.  *    Robinson
  49.  *    Eckert IV
  50.  *    Cylindrical Equal-area (e.g., Peters, Gall, Behrmann)
  51.  *    Cylindrical Equidistant (Plate Carree)
  52.  *
  53.  * The ellipsoid used is selectable by editing the .gmtdefaults in your
  54.  * home directory.  If no such file, create one by running gmtdefaults.
  55.  *
  56.  * Usage: Initialize system by calling map_setup (separate module), and
  57.  * then just use geo_to_xy() and xy_to_geo() functions.
  58.  *
  59.  * Author:    Paul Wessel
  60.  * Date:    27-JUL-1992
  61.  * Version:    v2.1
  62.  *
  63.  *
  64.  * Functions include:
  65.  *
  66.  *    azim_2_angle :        Converts azimuth to angle on the map
  67.  *    break_through :        Checks if we cross a map boundary
  68.  *    clip_to_map :        Force polygon points to be inside map
  69.  *    compact_line :        Remove redundant pen movements
  70.  *    geo_to_xy :        Generic lon/lat to x/y
  71.  *    geo_to_xy_line :    Same for polygons
  72.  *    geoz_to_xy :        Generic 3-D lon/lat/z to x/y
  73.  *    get_origin :        Find origin of projection based on pole and 2nd point
  74.  *    get_rotate_pole :    Find rotation pole based on two points on great circle
  75.  *    grd_forward :        Forward map-transform grid matrix from lon/lat to x/y
  76.  *    grd_inverse :        Inversely transform grid matrix from x/y to lon/lat
  77.  *    grdproject_init :    Initialize parameters for grid transformations
  78.  *    great_circle_dist :    Returns great circle distance in degrees
  79.  *    hammer :        Hammer-Aitoff equal area projection
  80.  *    ihammer :        Inverse Hammer-Aitoff equal area projection
  81.  *    ilamb :            Inverse Lambert conformal conic projection
  82.  *    ilambeq :        Inverse Lambert azimuthal equal area projection
  83.  *    ilinearxy :        Inverse linear projection
  84.  *    imerc :            Inverse Mercator projection
  85.  *    imollweide :        Inverse Mollweide projection
  86.  *    init_three_D :        Initializes parameters needed for 3-D plots
  87.  *    ioblmrc :        Inverse oblique Mercator projection, spherical only
  88.  *    iortho :        Inverse orthographic projection
  89.  *    iplrs :            Inverse Polar stereographic projection
  90.  *    itranslin :        Inverse linear x projection
  91.  *    itranslog10 :        Inverse log10 x projection
  92.  *    itranspowx :        Inverse pow x projection
  93.  *    itranspowy :        Inverse pow y projection
  94.  *    itm :            Inverse TM projection
  95.  *    lamb :            Lambert conformal conic projection
  96.  *    lambeq :        Lambert azimuthal equal area projection
  97.  *    radial_crossing :    Determine map crossing in the Lambert azimuthal equal area projection
  98.  *    latpath :        Return path between 2 points of equal latitide
  99.  *    left_boundary :        Return left boundary in x-inches
  100.  *    linearxy :        Linear xy projection
  101.  *    lon_inside :        Accounts for wrap-around in longitudes and checks for inside    
  102.  *    lonpath :        Return path between 2 points of equal longitude
  103.  *    map_crossing :        Generic function finds crossings between line and map boundary
  104.  *    map_outside :        Generic function determines if we're outside map boundary
  105.  *    map_path :        Return latpat or lonpath
  106.  *    map_setup :        Initialize map projection
  107.  *    merc :            Mercator projection
  108.  *    mollweide :        Mollweide projection
  109.  *    ellipse_crossing :    Find map crossings in the Mollweide projection
  110.  *    move_to_rect :        Move an outside point straight in to nearest edge
  111.  *    oblmrc :        Spherical oblique Mercator projection
  112.  *    ortho :            Orthographic projection
  113.  *    pen_status :        Determines if pen is up or down
  114.  *    plrs :            Polar stereographic projection
  115.  *    polar_outside :        Determines if a point is outside polar projection region
  116.  *    pole_rotate_forward :    Compute positions from oblique coordinates
  117.  *    pole_rotate_inverse :    Compute oblique coordinates
  118.  *    project3D :        Convert lon/lat/z to xx/yy/zz
  119.  *    radial_clip :        Clip path outside radial region
  120.  *    radial_outside :    Determine if point is outside radial region
  121.  *    radial_overlap :    Determine overlap, always TRUE for his projection
  122.  *    rect_clip :        Clip to rectangular region
  123.  *    rect_crossing :        Find crossling between line and rect region
  124.  *    rect_outside :        Determine if point is outside rect region
  125.  *    rect_outside2 :        Determine if point is outside rect region (azimuthal proj only)
  126.  *    rect_overlap :        Determine overlap between rect regions
  127.  *    right_boundary :    Return x value of right map boundary
  128.  *    translin :        Linear x projection
  129.  *    translog10 :        Log10 x projection
  130.  *    transpowx :        Linear pow x projection
  131.  *    transpowy :        Linear pow y projection
  132.  *    tm :            TM projection
  133.  *    xy_search :        Find xy map boundary
  134.  *    two_d_to_three_d :    Convert xyz to xy for entire array
  135.  *    vhammer :        Initialize Hammer-Aitoff equal area projection
  136.  *    vlamb :            Initialize Lambert conformal conic projection
  137.  *    vlambeq :        Initialize Lambert azimuthal equal area projection
  138.  *    vmerc :            Initialize Mercator projection
  139.  *    vmollweide :        Initialize Mollweide projection
  140.  *    vortho :        Initialize Orthographic projection
  141.  *    vplrs :            Initialize Polar stereographic projection
  142.  *    vtm :            Initialize TM projection
  143.  *    wesn_clip:        Clip polygon to wesn boundaries
  144.  *    wesn_crossing :        Find crossing between line and lon/lat rectangle
  145.  *    wesn_outside :        Determine if a point is outside a lon/lat rectangle
  146.  *    wesn_overlap :        Determine overlap between lon/lat rectangles
  147.  *    wesn_search :        Search for extreme coordinates    
  148.  *    wrap_around_check :    Check if line wraps around due to Greenwich
  149.  *    x_to_xx :        Generic linear x projection
  150.  *    xx_to_x :        Generic inverse linear x projection
  151.  *    xy_to_geo :        Generic inverse x/y to lon/lat projection
  152.  *    xyz_to_xy :        Generic xyz to xy projection
  153.  *    y_to_yy :        Generic linear y projection
  154.  *    yy_to_y :        Generic inverse linear y projection
  155.  *    z_to_zz :        Generic linear z projection
  156.  *    zz_to_z :        Generic inverse linear z projection
  157.  */
  158.  
  159. #include "gmt.h"
  160.  
  161. #define PI_2 (2.0 * M_PI)
  162.  
  163. /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  164.  *
  165.  *    S E C T I O N  1 :    M A P  - T R A N S F O R M A T I O N S
  166.  *
  167.  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -*/
  168.  
  169. /*
  170.  * map_setup sets up the transformations for the chosen map projection.
  171.  * The user must pass:
  172.  *   w,e,s,n,parameters[0] - parameters[np-1] (np = number of parameters), and project:
  173.  *   w,e,s,n defines the area in degrees.
  174.  *   project == LINEAR, POLAR, MERCATOR, STEREO, LAMBERT, OBLIQUE_MERC,
  175.  *    TM, ORTHO, AZ_EQDIST, LAMB_AZ_EQ, WINKEL, ROBINSON, CASSINI, ALBERS. ECKERT, CYL_EQ, CYL_EQDIST
  176.  *    For LINEAR, we may have LINEAR, LOG10, or POW
  177.  *
  178.  * parameters[0] through parameters[np-1] mean different things to the various
  179.  * projections, as explained below. (np also varies, of course)
  180.  *
  181.  * LINEAR projection:
  182.  *    parameters[0] is inch (or cm)/x_user_unit.
  183.  *    parameters[1] is inch (or cm)/y_user_unit. If 0, then yscale = xscale.
  184.  *    parameters[2] is pow for x^pow (if POW is on).
  185.  *    parameters[3] is pow for y^pow (if POW is on).
  186.  *
  187.  * POLAR (r,theta) projection:
  188.  *    parameters[0] is inch (or cm)/x_user_unit (radius)
  189.  *
  190.  * MERCATOR projection:
  191.  *    parameters[0] is in inch (or cm)/degree_longitude @ equator OR 1:xxxxx OR map-width
  192.  *
  193.  * STEREOgraphic projection:
  194.  *    parameters[0] is longitude of pole
  195.  *    parameters[1] is latitude of pole
  196.  *    parameters[2] is radius in inches (or cm) from pole to the latitude specified
  197.  *       by parameters[3] OR 1:xxxxx OR map-width.
  198.  *
  199.  * LAMBERT projection (Conic):
  200.  *    parameters[0] is first standard parallell
  201.  *    parameters[1] is second standard parallell
  202.  *    parameters[2] is scale in inch (or cm)/degree along parallells OR 1:xxxxx OR map-width
  203.  *
  204.  * OBLIQUE MERCATOR projection:
  205.  *    parameters[0] is longitude of origin
  206.  *    parameters[1] is latitude of origin
  207.  *    Definition a:
  208.  *        parameters[2] is longitude of second point along oblique equator
  209.  *        parameters[3] is latitude of second point along oblique equator
  210.  *        parameters[4] is scale in inch (or cm)/degree along oblique equator OR 1:xxxxx OR map-width
  211.  *    Definition b:
  212.  *        parameters[2] is azimuth along oblique equator at origin
  213.  *        parameters[3] is scale in inch (or cm)/degree along oblique equator OR 1:xxxxx OR map-width
  214.  *    Definition c:
  215.  *        parameters[2] is longitude of pole of projection
  216.  *        parameters[3] is latitude of pole of projection
  217.  *        parameters[4] is scale in inch (cm)/degree along oblique equator OR 1:xxxxx OR map-width
  218.  *
  219.  * TRANSVERSE MERCATOR (TM) projection
  220.  *    parameters[0] is central meridian
  221.  *    parameters[1] is scale in inch (cm)/degree along this meridian OR 1:xxxxx OR map-width
  222.  *
  223.  * UNIVERSAL TRANSVERSE MERCATOR (UTM) projection
  224.  *    parameters[0] is UTM zone (0-60, use negative for S hemisphere)
  225.  *    parameters[1] is scale in inch (cm)/degree along this meridian OR 1:xxxxx OR map-width
  226.  *
  227.  * LAMBERT AZIMUTHAL EQUAL AREA projection:
  228.  *    parameters[0] is longitude of origin
  229.  *    parameters[1] is latitude of origin
  230.  *    parameters[2] is radius in inches (or cm) from pole to the latitude specified
  231.  *       by parameters[3] OR 1:xxxxx OR map-width.
  232.  *
  233.  * ORTHOGRAPHIC AZIMUTHAL projection:
  234.  *    parameters[0] is longitude of origin
  235.  *    parameters[1] is latitude of origin
  236.  *    parameters[2] is radius in inches (or cm) from pole to the latitude specified
  237.  *       by parameters[3] OR 1:xxxxx OR map-width.
  238.  *
  239.  * AZIMUTHAL EQUIDISTANCE projection:
  240.  *    parameters[0] is longitude of origin
  241.  *    parameters[1] is latitude of origin
  242.  *    parameters[2] is radius in inches (or cm) from pole to the latitude specified
  243.  *       by parameters[3] OR 1:xxxxx OR map-width.
  244.  *
  245.  * MOLLWEIDE EQUAL-AREA projection
  246.  *    parameters[0] is longitude of origin
  247.  *    parametres[1] is in inch (or cm)/degree_longitude @ equator OR 1:xxxxx OR map-width
  248.  *
  249.  * HAMMER-AITOFF EQUAL-AREA projection
  250.  *    parameters[0] is longitude of origin
  251.  *    parametres[1] is in inch (or cm)/degree_longitude @ equator OR 1:xxxxx OR map-width
  252.  *
  253.  * SINUSOIDAL EQUAL-AREA projection
  254.  *    parameters[0] is longitude of origin
  255.  *    parameters[1] is in inch (or cm)/degree_longitude @ equator OR 1:xxxxx OR map-width
  256.  *
  257.  * WINKEL TRIPEL MODIFIED AZIMUTHAL projection
  258.  *    parameters[0] is longitude of origin
  259.  *    parametres[1] is in inch (or cm)/degree_longitude @ equator OR 1:xxxxx OR map-width
  260.  *
  261.  * ROBINSON PSEUDOCYLINDRICAL projection
  262.  *    parameters[0] is longitude of origin
  263.  *    parametres[1] is in inch (or cm)/degree_longitude @ equator OR 1:xxxxx OR map-width
  264.  *
  265.  * CASSINI projection
  266.  *    parameters[0] is longitude of origin
  267.  *    parameters[1] is latitude of origin
  268.  *    parametres[2] is scale in inch (cm)/degree along this meridian OR 1:xxxxx OR map-width
  269.  *
  270.  * ALBERS projection (Conic):
  271.  *    parameters[0] is first standard parallell
  272.  *    parameters[1] is second standard parallell
  273.  *    parameters[2] is scale in inch (or cm)/degree along parallells OR 1:xxxxx OR map-width
  274.  *
  275.  * ECKERT IV projection:
  276.  *    parameters[0] is longitude of origin
  277.  *    parameters[1] is scale in inch (or cm)/degree along parallells OR 1:xxxxx OR map-width
  278.  *
  279.  * CYLINDRICAL EQUAL-AREA projections (Behrmann, Gall, Peters):
  280.  *    parameters[0] is longitude of origin
  281.  *    parameters[1] is the standard parallell
  282.  *    parameters[2] is scale in inch (or cm)/degree along parallells OR 1:xxxxx OR map-width
  283.  *
  284.  * Pointers to the correct map transformation fuctions will be set up so that
  285.  * there are no if tests to determine which routine to call. These pointers
  286.  * are forward and inverse, and are called from geo_to_xy and xy_to_geo.
  287.  *
  288.  */
  289.  
  290. int map_setup (west, east, south, north)
  291. double west, east, south, north; {
  292.     int i, search;
  293.     double f;
  294.     
  295.     if (!project_info.region) d_swap (south, east);  /* Got w/s/e/n, make into w/e/s/n */
  296.  
  297.     if (west == east && south == north) {
  298.         fprintf (stderr, "%s: GMT Fatal Error: No region selected - Aborts!\n", gmt_program);
  299.         exit (-1);
  300.     }
  301.  
  302.     if (east < west) east += 360.0;
  303.     project_info.w = west;    project_info.e = east;    project_info.s = south;    project_info.n = north;
  304.     if (project_info.gave_map_width) project_info.units_pr_degree = FALSE;
  305.     
  306.     /* Set up ellipse parameters for the selected ellipsoid */
  307.     
  308.     frame_info.check_side = frame_info.horizontal = FALSE;
  309.     EQ_RAD = gmtdefs.ellipse[gmtdefs.ellipsoid].eq_radius;
  310.     f = gmtdefs.ellipse[gmtdefs.ellipsoid].flattening;
  311.     ECC2 = 2 * f - f * f;
  312.     ECC4 = ECC2 * ECC2;
  313.     ECC6 = ECC2 * ECC4;
  314.     ECC = d_sqrt (ECC2);
  315.     M_PR_DEG = PI_2 * EQ_RAD / 360.0;
  316.     if (!z_forward) z_forward = (PFI) translin;
  317.     if (!z_inverse) z_inverse = (PFI) itranslin;
  318.     gmtdefs.n_lon_nodes = gmtdefs.n_lat_nodes = 0;
  319.     
  320.     switch (project_info.projection) {
  321.     
  322.         case LINEAR:    /* Linear transformations */
  323.         
  324.             search = map_init_linear ();
  325.             break;
  326.             
  327.         case POLAR:    /* Both lon/lat are actually theta, radius */
  328.     
  329.             search = map_init_polar ();
  330.             break;
  331.             
  332.         case MERCATOR:    /* Standard Mercator projection */
  333.     
  334.             search = map_init_merc ();
  335.             break;
  336.                         
  337.         case STEREO:    /* Stereographic projection */
  338.  
  339.             search = map_init_stereo ();
  340.             break;
  341.             
  342.         case LAMBERT:    /* Lambert Conformal Conic */
  343.  
  344.             search = map_init_lambert();
  345.             break;
  346.             
  347.         case OBLIQUE_MERC:    /* Oblique Mercator */
  348.  
  349.             search = map_init_oblique ();
  350.             break;
  351.             
  352.         case TM:    /* Transverse Mercator */
  353.  
  354.             search = map_init_tm ();
  355.             break;
  356.             
  357.         case UTM:    /* Universal Transverse Mercator */
  358.  
  359.             search = map_init_utm ();
  360.             break;
  361.             
  362.         case LAMB_AZ_EQ:    /* Lambert Azimuthal Equal-Area */
  363.  
  364.             search = map_init_lambeq ();
  365.             break;
  366.             
  367.         case ORTHO:    /* Orthographic Projection */
  368.  
  369.             search = map_init_ortho ();
  370.             break;
  371.             
  372.         case AZ_EQDIST:    /* Azimuthal Equal-Distance Projection */
  373.  
  374.             search = map_init_azeqdist ();
  375.             break;
  376.             
  377.         case MOLLWEIDE:    /* Mollweide Equal-Area */
  378.  
  379.             search = map_init_mollweide ();
  380.             break;
  381.             
  382.         case HAMMER:    /* Hammer-Aitoff Equal-Area */
  383.  
  384.             search = map_init_hammer ();
  385.             break;
  386.  
  387.         case WINKEL:    /* Winkel Tripel */
  388.  
  389.             search = map_init_winkel ();
  390.             break;
  391.             
  392.         case ECKERT:    /* Eckert VI */
  393.  
  394.             search = map_init_eckert ();
  395.             break;
  396.             
  397.         case CYL_EQ:    /* Cylindrical Equal-Area */
  398.  
  399.             search = map_init_cyleq ();
  400.             break;
  401.             
  402.         case CYL_EQDIST:    /* Cylindrical Equaidistant */
  403.  
  404.             search = map_init_cyleqdist ();
  405.             break;
  406.             
  407.         case ROBINSON:    /* Robinson */
  408.  
  409.             search = map_init_robinson ();
  410.             break;
  411.             
  412.         case SINUSOIDAL:    /* Sinusoidal Equal-Area */
  413.  
  414.             search = map_init_sinusoidal ();
  415.             break;
  416.  
  417.         case CASSINI:    /* Cassini cylindrical */
  418.  
  419.             search = map_init_cassini ();
  420.             break;
  421.             
  422.         case ALBERS:    /* Albers Equal-Area Conic */
  423.  
  424.             search = map_init_albers ();
  425.             break;
  426.             
  427.         default:    /* No projection selected, die */
  428.             fprintf (stderr, "%s: GMT Fatal Error: No projection selected - Aborts!\n", gmt_program);
  429.             exit (-1);
  430.             break;
  431.     }
  432.     
  433.     gmt_map_width = fabs (project_info.xmax - project_info.xmin);
  434.     gmt_map_height = fabs (project_info.ymax - project_info.ymin);
  435.     gmt_half_map_size = 0.5 * gmt_map_width;
  436.     
  437.     if (!gmtdefs.n_lon_nodes) gmtdefs.n_lon_nodes = rint (gmt_map_width / gmtdefs.line_step);
  438.     if (!gmtdefs.n_lat_nodes) gmtdefs.n_lat_nodes = rint (gmt_map_height / gmtdefs.line_step);
  439.     
  440.     gmtdefs.dlon = (project_info.e - project_info.w) / gmtdefs.n_lon_nodes;
  441.     gmtdefs.dlat = (project_info.n - project_info.s) / gmtdefs.n_lat_nodes;
  442.         
  443.     if (search) {
  444.         wesn_search ();
  445.         gmtdefs.dlon = (project_info.e - project_info.w) / gmtdefs.n_lon_nodes;
  446.         gmtdefs.dlat = (project_info.n - project_info.s) / gmtdefs.n_lat_nodes;
  447.     }
  448.  
  449.     for (i = 0; i < 3; i++) {
  450.         if (!project_info.xyz_pos[i]) {    /* Max intervals negative */
  451.             frame_info.anot_int[i]  = -frame_info.anot_int[i];
  452.             frame_info.frame_int[i] = -frame_info.frame_int[i];
  453.             frame_info.grid_int[i]  = -frame_info.grid_int[i];
  454.         }
  455.     }
  456.     
  457.     init_three_D ();
  458.     
  459.     /* Default for overlay plots is no shifting */
  460.     
  461.     if (!project_info.x_off_supplied && gmtdefs.overlay) gmtdefs.x_origin = 0.0;
  462.     if (!project_info.y_off_supplied && gmtdefs.overlay) gmtdefs.y_origin = 0.0;
  463.  
  464.     return (0);
  465. }
  466.  
  467. int init_three_D () {
  468.     int i, easy;
  469.     double tilt_angle, x, y, x0, x1, x2, y0, y1, y2, zmin, zmax;
  470.     
  471.     project_info.three_D = (z_project.view_azimuth != 180.0 || z_project.view_elevation != 90.0);
  472.     if (project_info.three_D) gmtdefs.basemap_type = 1;    /* Only plain frame for 3-D */
  473.     
  474.     project_info.z_scale = project_info.z_pars[0];
  475.     if (project_info.z_scale < 0.0) project_info.xyz_pos[2] = FALSE;    /* User wants z to increase down */
  476.     if (project_info.z_level == MAXDOUBLE) project_info.z_level = (project_info.xyz_pos[2]) ? project_info.z_bottom : project_info.z_top;
  477.     
  478.     switch (project_info.xyz_projection[2]) {
  479.         case LINEAR:    /* Regular scaling */
  480.             zmin = (project_info.xyz_pos[2]) ? project_info.z_bottom : project_info.z_top;
  481.             zmax = (project_info.xyz_pos[2]) ? project_info.z_top : project_info.z_bottom;
  482.             z_forward = (PFI) translin;
  483.             z_inverse = (PFI) itranslin;
  484.             break;
  485.         case LOG10:    /* Log10 transformation */
  486.             if (project_info.z_bottom <= 0.0 || project_info.z_top <= 0.0) {
  487.                 fprintf (stderr, "%s: GMT SYNTAX ERROR for -Jz -JZ option: limits must be positive for log10 projection\n", gmt_program);
  488.                 exit (-1);
  489.             }
  490.             zmin = (project_info.xyz_pos[2]) ? d_log10 (project_info.z_bottom) : d_log10 (project_info.z_top);
  491.             zmax = (project_info.xyz_pos[2]) ? d_log10 (project_info.z_top) : d_log10 (project_info.z_bottom);
  492.             z_forward = (PFI) translog10;
  493.             z_inverse = (PFI) itranslog10;
  494.             break;
  495.         case POW:    /* x^y transformation */
  496.             project_info.xyz_pow[2] = project_info.z_pars[1];
  497.             zmin = (project_info.xyz_pos[2]) ? pow (project_info.z_bottom, project_info.xyz_pow[2]) : pow (project_info.z_top, project_info.xyz_pow[2]);
  498.             zmax = (project_info.xyz_pos[2]) ? pow (project_info.z_top, project_info.xyz_pow[2]) : pow (project_info.z_bottom, project_info.xyz_pow[2]);
  499.             z_forward = (PFI) transpowz;
  500.             z_inverse = (PFI) itranspowz;
  501.     }
  502.     if (project_info.compute_scale[2]) project_info.z_scale /= fabs (zmin - zmax);
  503.     project_info.zmax = (zmax - zmin) * project_info.z_scale;
  504.     project_info.z0 = -zmin * project_info.z_scale;
  505.     
  506.     if (z_project.view_azimuth >= 360.0) z_project.view_azimuth -= 360.0;
  507.     z_project.quadrant = ceil (z_project.view_azimuth / 90.0);
  508.     z_project.view_azimuth -= 180.0;    /* Turn into direction instead */
  509.     if (z_project.view_azimuth < 0.0) z_project.view_azimuth += 360.0;
  510.     z_project.view_azimuth *= D2R;
  511.     z_project.view_elevation *= D2R;
  512.     z_project.cos_az = cos (z_project.view_azimuth);
  513.     z_project.sin_az = sin (z_project.view_azimuth);
  514.     z_project.cos_el = cos (z_project.view_elevation);
  515.     z_project.sin_el = sin (z_project.view_elevation);
  516.     geoz_to_xy (project_info.w, project_info.s, project_info.z_bottom, &x0, &y0);
  517.     geoz_to_xy (project_info.e, project_info.s, project_info.z_bottom, &x1, &y1);
  518.     geoz_to_xy (project_info.w, project_info.n, project_info.z_bottom, &x2, &y2);
  519.     z_project.phi[0] = d_atan2 (y1 - y0, x1 - x0) * R2D;
  520.     z_project.phi[1] = d_atan2 (y2 - y0, x2 - x0) * R2D;
  521.     z_project.phi[2] = 90.0;
  522.     tilt_angle = (z_project.phi[0] + 90.0 - z_project.phi[1]) * D2R;
  523.     z_project.k = (fabs (z_project.cos_az) > fabs (z_project.sin_az)) ? 0 : 1;
  524.     z_project.xshrink[0] = hypot (z_project.cos_az, z_project.sin_az * z_project.sin_el);
  525.     z_project.yshrink[0] = hypot (z_project.sin_az, z_project.cos_az * z_project.sin_el);
  526.     z_project.xshrink[1] = z_project.yshrink[0];
  527.     z_project.yshrink[1] = z_project.xshrink[0];
  528.     z_project.yshrink[0] *= fabs (cos (tilt_angle));    /* New */
  529.     z_project.yshrink[1] *= fabs (cos (tilt_angle));
  530.     z_project.xshrink[2] = fabs (z_project.cos_el);
  531.     z_project.yshrink[2] = (fabs (z_project.cos_az) > fabs (z_project.sin_az)) ? fabs (z_project.cos_az) : fabs (z_project.sin_az);
  532.     z_project.tilt[0] = tan (tilt_angle);
  533.     z_project.tilt[1] = -z_project.tilt[0];
  534.     z_project.tilt[2] = (fabs (z_project.cos_az) > fabs (z_project.sin_az)) ? tan (-z_project.phi[0] * D2R) : tan (-z_project.phi[1] * D2R);
  535.     
  536.     /* Determine min/max y of plot */
  537.     
  538.     /* easy = TRUE means we can use 4 corner points to find min x and y, FALSE
  539.        measn we must search along wesn perimeter the hard way */
  540.        
  541.     switch (project_info.projection) {
  542.         case LINEAR:
  543.         case POLAR:
  544.         case MERCATOR:
  545.         case OBLIQUE_MERC:
  546.         case CYL_EQ:
  547.         case CYL_EQDIST:
  548.             easy = TRUE;
  549.             break;
  550.         case LAMBERT:
  551.         case TM:
  552.         case UTM:
  553.         case CASSINI:
  554.         case STEREO:
  555.         case ALBERS:
  556.         case LAMB_AZ_EQ:
  557.         case ORTHO:
  558.         case AZ_EQDIST:
  559.         case SINUSOIDAL:
  560.         case MOLLWEIDE:
  561.         case HAMMER:
  562.         case WINKEL:
  563.         case ECKERT:
  564.         case ROBINSON:
  565.             easy = (!project_info.region);
  566.             break;
  567.         default:
  568.             easy = FALSE;
  569.             break;
  570.     }
  571.     
  572.     if (!project_info.three_D) easy = TRUE;
  573.     
  574.     z_project.corner_x[0] = z_project.corner_x[3] = (project_info.xyz_pos[0]) ? project_info.w : project_info.e;
  575.     z_project.corner_x[1] = z_project.corner_x[2] = (project_info.xyz_pos[0]) ? project_info.e : project_info.w;
  576.     z_project.corner_y[0] = z_project.corner_y[1] = (project_info.xyz_pos[1]) ? project_info.s : project_info.n;
  577.     z_project.corner_y[2] = z_project.corner_y[3] = (project_info.xyz_pos[1]) ? project_info.n : project_info.s;
  578.     z_project.xmin = z_project.ymin = MAXDOUBLE;    z_project.xmax = z_project.ymax = -MAXDOUBLE;
  579.     
  580.     if (easy) {
  581.         double xx[4], yy[4];
  582.         
  583.         xx[0] = xx[3] = project_info.xmin; xx[1] = xx[2] = project_info.xmax;
  584.         yy[0] = yy[1] = project_info.ymin; yy[2] = yy[3] = project_info.ymax;
  585.         
  586.         for (i = 0; i < 4; i++) {
  587.             xy_do_z_to_xy (xx[i], yy[i], project_info.z_bottom, &x, &y);
  588.             z_project.ymin = MIN (z_project.ymin, y);
  589.             z_project.ymax = MAX (z_project.ymax, y);
  590.             z_project.xmin = MIN (z_project.xmin, x);
  591.             z_project.xmax = MAX (z_project.xmax, x);
  592.             xy_do_z_to_xy (xx[i], yy[i], project_info.z_top, &x, &y);
  593.             z_project.ymin = MIN (z_project.ymin, y);
  594.             z_project.ymax = MAX (z_project.ymax, y);
  595.             z_project.xmin = MIN (z_project.xmin, x);
  596.             z_project.xmax = MAX (z_project.xmax, x);
  597.         }
  598.     }
  599.     else {
  600.         for (i = 0; i < gmtdefs.n_lon_nodes; i++) {    /* S and N */
  601.             geoz_to_xy (project_info.w + i * gmtdefs.dlon, project_info.s, project_info.z_bottom, &x, &y);
  602.             z_project.ymin = MIN (z_project.ymin, y);
  603.             z_project.ymax = MAX (z_project.ymax, y);
  604.             z_project.xmin = MIN (z_project.xmin, x);
  605.             z_project.xmax = MAX (z_project.xmax, x);
  606.             if (project_info.z_top != project_info.z_bottom) {    
  607.                 geoz_to_xy (project_info.w + i * gmtdefs.dlon, project_info.s, project_info.z_top, &x, &y);
  608.                 z_project.ymin = MIN (z_project.ymin, y);
  609.                 z_project.ymax = MAX (z_project.ymax, y);
  610.                 z_project.xmin = MIN (z_project.xmin, x);
  611.                 z_project.xmax = MAX (z_project.xmax, x);
  612.             }            
  613.             geoz_to_xy (project_info.w + i * gmtdefs.dlon, project_info.n, project_info.z_bottom, &x, &y);
  614.             z_project.ymin = MIN (z_project.ymin, y);
  615.             z_project.ymax = MAX (z_project.ymax, y);
  616.             z_project.xmin = MIN (z_project.xmin, x);
  617.             z_project.xmax = MAX (z_project.xmax, x);            
  618.             if (project_info.z_top != project_info.z_bottom) {    
  619.                 geoz_to_xy (project_info.w + i * gmtdefs.dlon, project_info.n, project_info.z_top, &x, &y);
  620.                 z_project.ymin = MIN (z_project.ymin, y);
  621.                 z_project.ymax = MAX (z_project.ymax, y);
  622.                 z_project.xmin = MIN (z_project.xmin, x);
  623.                 z_project.xmax = MAX (z_project.xmax, x);
  624.             }        
  625.         }
  626.         for (i = 0; i < gmtdefs.n_lat_nodes; i++) {    /* W and E */
  627.             geoz_to_xy (project_info.w, project_info.s + i * gmtdefs.dlat, project_info.z_bottom, &x, &y);
  628.             z_project.ymin = MIN (z_project.ymin, y);
  629.             z_project.ymax = MAX (z_project.ymax, y);
  630.             z_project.xmin = MIN (z_project.xmin, x);
  631.             z_project.xmax = MAX (z_project.xmax, x);            
  632.             if (project_info.z_top != project_info.z_bottom) {    
  633.                 geoz_to_xy (project_info.w, project_info.s + i * gmtdefs.dlat, project_info.z_top, &x, &y);
  634.                 z_project.ymin = MIN (z_project.ymin, y);
  635.                 z_project.ymax = MAX (z_project.ymax, y);
  636.                 z_project.xmin = MIN (z_project.xmin, x);
  637.                 z_project.xmax = MAX (z_project.xmax, x);
  638.             }            
  639.             geoz_to_xy (project_info.e, project_info.s + i * gmtdefs.dlat, project_info.z_bottom, &x, &y);
  640.             z_project.ymin = MIN (z_project.ymin, y);
  641.             z_project.ymax = MAX (z_project.ymax, y);
  642.             z_project.xmin = MIN (z_project.xmin, x);
  643.             z_project.xmax = MAX (z_project.xmax, x);            
  644.             if (project_info.z_top != project_info.z_bottom) {    
  645.                 geoz_to_xy (project_info.e, project_info.s + i * gmtdefs.dlat, project_info.z_top, &x, &y);
  646.                 z_project.ymin = MIN (z_project.ymin, y);
  647.                 z_project.ymax = MAX (z_project.ymax, y);
  648.                 z_project.xmin = MIN (z_project.xmin, x);
  649.                 z_project.xmax = MAX (z_project.xmax, x);
  650.             }        
  651.         }
  652.     }
  653.     
  654.     z_project.face[0] = (z_project.quadrant == 1 || z_project.quadrant == 2) ? 0 : 1;
  655.     z_project.face[1] = (z_project.quadrant == 1 || z_project.quadrant == 4) ? 2 : 3;
  656.     z_project.face[2] = (z_project.view_elevation >= 0.0) ? 4 : 5;
  657.     z_project.draw[0] = (z_project.quadrant == 1 || z_project.quadrant == 4) ? TRUE : FALSE;
  658.     z_project.draw[1] = (z_project.quadrant == 3 || z_project.quadrant == 4) ? TRUE : FALSE;
  659.     z_project.draw[2] = (z_project.quadrant == 2 || z_project.quadrant == 3) ? TRUE : FALSE;
  660.     z_project.draw[3] = (z_project.quadrant == 1 || z_project.quadrant == 2) ? TRUE : FALSE;
  661.     z_project.sign[0] = z_project.sign[3] = -1.0;
  662.     z_project.sign[1] = z_project.sign[2] = 1.0;
  663.     z_project.z_axis = (z_project.quadrant%2) ? z_project.quadrant : z_project.quadrant - 2;
  664. }
  665.  
  666. /*
  667.  *    GENERIC TRANSFORMATION ROUTINES FOR THE LINEAR PROJECTION
  668.  */
  669.  
  670. int x_to_xx (x, xx)
  671. double x, *xx; {
  672.     /* Converts x to xx using the current linear projection */
  673.     
  674.     (*x_forward) (x, xx);
  675.     (*xx) = (*xx) * project_info.x_scale + project_info.x0;
  676. }
  677.  
  678. int y_to_yy (y, yy)
  679. double y, *yy; {
  680.     /* Converts y to yy using the current linear projection */
  681.     
  682.     (*y_forward) (y, yy);
  683.     (*yy) = (*yy) * project_info.y_scale + project_info.y0;
  684. }
  685.  
  686. int z_to_zz (z, zz)
  687. double z, *zz; {
  688.     /* Converts z to zz using the current linear projection */
  689.     
  690.     (*z_forward) (z, zz);
  691.     (*zz) = (*zz) * project_info.z_scale + project_info.z0;
  692. }
  693.  
  694. int xx_to_x (x, xx)
  695. double *x, xx; {
  696.     /* Converts xx back to x using the current linear projection */
  697.     
  698.     xx = (xx - project_info.x0) / project_info.x_scale;
  699.     
  700.     (*x_inverse) (x, xx);
  701. }
  702.  
  703. int yy_to_y (y, yy)
  704. double *y, yy; {
  705.     /* Converts yy back to y using the current linear projection */
  706.     
  707.     yy = (yy - project_info.y0) / project_info.y_scale;
  708.     
  709.     (*y_inverse) (y, yy);
  710. }
  711.  
  712. int zz_to_z (z, zz)
  713. double *z, zz; {
  714.     /* Converts zz back to z using the current linear projection */
  715.     
  716.     zz = (zz - project_info.z0) / project_info.z_scale;
  717.     
  718.     (*z_inverse) (z, zz);
  719. }
  720.  
  721. int geo_to_xy (lon, lat, x, y)
  722. double lon, lat, *x, *y; {
  723.     /* Converts lon/lat to x/y using the current projection */
  724.     
  725.     (*forward) (lon, lat, x, y);
  726.     (*x) = (*x) * project_info.x_scale + project_info.x0;
  727.     (*y) = (*y) * project_info.y_scale + project_info.y0;
  728. }
  729.  
  730. int xy_to_geo (lon, lat, x, y)
  731. double *lon, *lat, x, y; {
  732.     /* Converts x/y to lon/lat using the current projection */
  733.     
  734.     x = (x - project_info.x0) / project_info.x_scale;
  735.     y = (y - project_info.y0) / project_info.y_scale;
  736.     
  737.     (*inverse) (lon, lat, x, y);
  738. }
  739.  
  740. int geoz_to_xy (x, y, z, x_out, y_out)
  741. double x, y, z;
  742. double *x_out, *y_out; {    /* Map-projects xy first, the projects xyz onto xy plane */
  743.     double x0, y0, z0;
  744.     geo_to_xy (x, y, &x0, &y0);
  745.     z_to_zz (z, &z0);
  746.     *x_out = x0 * z_project.cos_az - y0 * z_project.sin_az;
  747.     *y_out = (x0 * z_project.sin_az + y0 * z_project.cos_az) * z_project.sin_el + z0 * z_project.cos_el;
  748. }
  749.  
  750. int xyz_to_xy (x, y, z, x_out, y_out)
  751. double x, y, z;
  752. double *x_out, *y_out; {    /* projects xyz onto xy plane */
  753.     *x_out = x * z_project.cos_az - y * z_project.sin_az;
  754.     *y_out = (x * z_project.sin_az + y * z_project.cos_az) * z_project.sin_el + z * z_project.cos_el;
  755. }
  756.  
  757. int xy_do_z_to_xy (x, y, z, x_out, y_out)
  758. double x, y, z;
  759. double *x_out, *y_out; {    /* projects xy (inches) z (z-value) onto xy plane */
  760.     double z_out;
  761.     
  762.     z_to_zz (z, &z_out);
  763.     *x_out = x * z_project.cos_az - y * z_project.sin_az;
  764.     *y_out = (x * z_project.sin_az + y * z_project.cos_az) * z_project.sin_el + z_out * z_project.cos_el;
  765. }
  766.  
  767. int project3D (x, y, z, x_out, y_out, z_out)
  768. double x, y, z, *x_out, *y_out, *z_out; {
  769.     geo_to_xy (x, y, x_out, y_out);
  770.     z_to_zz (z, z_out);
  771. }
  772.  
  773. /*
  774.  *    TRANSFORMATION ROUTINES FOR THE LINEAR PROJECTION
  775.  */
  776.  
  777. int map_init_linear () {
  778.     BOOLEAN degree;
  779.     double xmin, xmax, ymin, ymax;
  780.  
  781.     left_edge = (PFD) left_rect;
  782.     right_edge = (PFD) right_rect;
  783.     forward  = (PFI) linearxy;
  784.     inverse  = (PFI) ilinearxy;
  785.     degree = (project_info.pars[4] == 1.0);
  786.     if (degree) {
  787.         project_info.central_meridian = 0.5 * (project_info.w + project_info.e);
  788.         gmt_world_map = (fabs (project_info.w - project_info.e) == 360.0);
  789.     }
  790.     project_info.x_scale = project_info.pars[0];
  791.     project_info.y_scale = project_info.pars[1];
  792.     if (project_info.x_scale < 0.0) project_info.xyz_pos[0] = FALSE;    /* User wants x to increase left */
  793.     if (project_info.y_scale < 0.0) project_info.xyz_pos[1] = FALSE;    /* User wants y to increase down */
  794.             
  795.     switch (project_info.xyz_projection[0]) {
  796.         case LINEAR:    /* Regular scaling */
  797.             x_forward = (PFI) ((degree) ? translind : translin);
  798.             x_inverse = (PFI) itranslin;
  799.             if (project_info.xyz_pos[0]) {
  800.                 (*x_forward) (project_info.w, &xmin);
  801.                 (*x_forward) (project_info.e, &xmax);
  802.             }
  803.             else {
  804.                 (*x_forward) (project_info.e, &xmin);
  805.                 (*x_forward) (project_info.w, &xmax);
  806.             }
  807.             break;
  808.         case LOG10:    /* Log10 transformation */
  809.             if (project_info.w <= 0.0 || project_info.e <= 0.0) {
  810.                 fprintf (stderr, "%s: GMT SYNTAX ERROR -Jx option:  Limits must be positive for log10 option\n", gmt_program);
  811.                 exit (-1);
  812.             }
  813.             xmin = (project_info.xyz_pos[0]) ? d_log10 (project_info.w) : d_log10 (project_info.e);
  814.             xmax = (project_info.xyz_pos[0]) ? d_log10 (project_info.e) : d_log10 (project_info.w);
  815.             x_forward = (PFI) translog10;
  816.             x_inverse = (PFI) itranslog10;
  817.             break;
  818.         case POW:    /* x^y transformation */
  819.             project_info.xyz_pow[0] = project_info.pars[2];
  820.             project_info.xyz_ipow[0] = 1.0 / project_info.pars[2];
  821.             xmin = (project_info.xyz_pos[0]) ? pow (project_info.w, project_info.xyz_pow[0]) : pow (project_info.e, project_info.xyz_pow[0]);
  822.             xmax = (project_info.xyz_pos[0]) ? pow (project_info.e, project_info.xyz_pow[0]) : pow (project_info.w, project_info.xyz_pow[0]);
  823.             x_forward = (PFI) transpowx;
  824.             x_inverse = (PFI) itranspowx;
  825.             break;
  826.     }
  827.     switch (project_info.xyz_projection[1]) {
  828.         case LINEAR:    /* Regular scaling */
  829.             ymin = (project_info.xyz_pos[1]) ? project_info.s : project_info.n;
  830.             ymax = (project_info.xyz_pos[1]) ? project_info.n : project_info.s;
  831.             y_forward = (PFI) translin;
  832.             y_inverse = (PFI) itranslin;
  833.             break;
  834.         case LOG10:    /* Log10 transformation */
  835.             if (project_info.s <= 0.0 || project_info.n <= 0.0) {
  836.                 fprintf (stderr, "%s: GMT SYNTAX ERROR -Jx option:  Limits must be positive for log10 option\n", gmt_program);
  837.                 exit (-1);
  838.             }
  839.             ymin = (project_info.xyz_pos[1]) ? d_log10 (project_info.s) : d_log10 (project_info.n);
  840.             ymax = (project_info.xyz_pos[1]) ? d_log10 (project_info.n) : d_log10 (project_info.s);
  841.             y_forward = (PFI) translog10;
  842.             y_inverse = (PFI) itranslog10;
  843.             break;
  844.         case POW:    /* x^y transformation */
  845.             project_info.xyz_pow[1] = project_info.pars[3];
  846.             project_info.xyz_ipow[1] = 1.0 / project_info.pars[3];
  847.             ymin = (project_info.xyz_pos[1]) ? pow (project_info.s, project_info.xyz_pow[1]) : pow (project_info.n, project_info.xyz_pow[1]);
  848.             ymax = (project_info.xyz_pos[1]) ? pow (project_info.n, project_info.xyz_pow[1]) : pow (project_info.s, project_info.xyz_pow[1]);
  849.             y_forward = (PFI) transpowy;
  850.             y_inverse = (PFI) itranspowy;
  851.     }
  852.             
  853.     /* Was given axes length instead of scale? */
  854.             
  855.     if (project_info.compute_scale[0]) project_info.x_scale /= fabs (xmin - xmax);
  856.     if (project_info.compute_scale[1]) project_info.y_scale /= fabs (ymin - ymax);
  857.  
  858.     map_setxy (xmin, xmax, ymin, ymax);
  859.     outside = (PFI) rect_outside;
  860.     crossing = (PFI) rect_crossing;
  861.     overlap = (PFI) rect_overlap;
  862.     map_clip = (PFI) rect_clip;
  863.     frame_info.horizontal = TRUE;
  864.     
  865.     return (FALSE);
  866. }
  867.  
  868. int linearxy (x, y, x_i, y_i)
  869. double x, y, *x_i, *y_i; {    /* Transform both x and y linearly */
  870.     (*x_forward) (x, x_i);
  871.     (*y_forward) (y, y_i);
  872. }
  873.  
  874. int ilinearxy (x, y, x_i, y_i)
  875. double *x, *y, x_i, y_i; {    /* Inversely transform both x and y linearly */
  876.     (*x_inverse) (x, x_i);
  877.     (*y_inverse) (y, y_i);
  878. }
  879.  
  880. int translin (forw, inv)    /* Linear forward */
  881. double forw, *inv; {
  882.     *inv = forw;
  883. }
  884.  
  885. int translind (forw, inv)    /* Linear forward, but with degrees*/
  886. double forw, *inv; {
  887.     while ((forw - project_info.central_meridian) < -180.0) forw += 360.0;
  888.     while ((forw - project_info.central_meridian) > 180.0) forw -= 360.0;
  889.     *inv = forw - project_info.central_meridian;
  890. }
  891.  
  892. int itranslin (forw, inv)    /* Linear inverse */
  893. double *forw, inv; {
  894.     *forw = inv;
  895. }
  896.  
  897. int translog10 (forw, inv)    /* Log10 forward */
  898. double forw, *inv; {
  899.     *inv = d_log10 (forw);
  900. }
  901.  
  902. int itranslog10 (forw, inv) /* Log10 inverse */
  903. double *forw, inv; {
  904.     *forw = pow (10.0, inv);
  905. }
  906.  
  907. int transpowx (x, x_in)    /* pow x forward */
  908. double x, *x_in; {
  909.     *x_in = pow (x, project_info.xyz_pow[0]);
  910. }
  911.  
  912. int itranspowx (x, x_in) /* pow x inverse */
  913. double *x, x_in; {
  914.     *x = pow (x_in, project_info.xyz_ipow[0]);
  915. }
  916.  
  917. int transpowy (y, y_in)    /* pow y forward */
  918. double y, *y_in; {
  919.     *y_in = pow (y, project_info.xyz_pow[1]);
  920. }
  921.  
  922. int itranspowy (y, y_in) /* pow y inverse */
  923. double *y, y_in; {
  924.     *y = pow (y_in, project_info.xyz_ipow[1]);
  925. }
  926.  
  927. int transpowz (z, z_in)    /* pow z forward */
  928. double z, *z_in; {
  929.     *z_in = pow (z, project_info.xyz_pow[2]);
  930. }
  931.  
  932. int itranspowz (z, z_in) /* pow z inverse */
  933. double *z, z_in; {
  934.     *z = pow (z_in, project_info.xyz_ipow[2]);
  935. }
  936.  
  937. /*
  938.  *    TRANSFORMATION ROUTINES FOR POLAR (theta,r) PROJECTION
  939.  */
  940.  
  941. int map_init_polar () {
  942.     double xmin, xmax, ymin, ymax;
  943.     
  944.     vpolar (0.5 * (project_info.w + project_info.e));
  945.     /* project_info.w = 0.0;    project_info.e = 360.0; */
  946.     /* if (project_info.gave_map_width) project_info.pars[0] *= 0.5 / project_info.n; */    /* north is max radius */
  947.     if (project_info.s == 0.0) project_info.edge[0] = FALSE;
  948.     if (fabs (project_info.e - project_info.w) == 360.0) project_info.edge[1] = project_info.edge[3] = FALSE;
  949.     left_edge = (PFD) left_circle;
  950.     right_edge = (PFD) right_circle;
  951.     forward  = (PFI) polar;
  952.     inverse  = (PFI) ipolar;
  953.     gmt_world_map = TRUE;
  954.     xy_search (&xmin, &xmax, &ymin, &ymax);
  955.     project_info.x_scale = project_info.y_scale = project_info.pars[0];
  956.     map_setinfo (xmin, xmax, ymin, ymax, project_info.pars[0]);
  957.     /* xmin = ymin = -project_info.n;    xmax = ymax = project_info.n;
  958.     project_info.x_scale = project_info.y_scale = project_info.pars[0]; */
  959.  
  960.     /* project_info.r = 0.5 * project_info.xmax; */
  961.     project_info.r = project_info.y_scale * project_info.n;
  962.     outside = (PFI) polar_outside;
  963.     crossing = (PFI) wesn_crossing;
  964.     overlap = (PFI) wesn_overlap;
  965.     map_clip = (PFI) wesn_clip;
  966.     frame_info.horizontal = TRUE;
  967.     gmtdefs.degree_format = 6;    /* Special labeling case */
  968.     
  969.     return (FALSE);
  970. }
  971.  
  972. int vpolar (lon0)
  973. double lon0; {
  974.     /* Set up a Polar (theta,r) transformation */
  975.     
  976.     project_info.central_meridian = lon0;
  977.     project_info.north_pole = FALSE;
  978.     return (0);
  979. }
  980.  
  981. int polar (x, y, x_i, y_i)
  982. double x, y, *x_i, *y_i; {    /* Transform both x and y linearly */
  983.     *x_i = y * cosd (x);
  984.     *y_i = y * sind (x);
  985. }
  986.  
  987. int ipolar (x, y, x_i, y_i)
  988. double *x, *y, x_i, y_i; {    /* Inversely transform both x and y linearly */
  989.     *x = R2D * d_atan2 (y_i, x_i);
  990.     *y = hypot (x_i, y_i);
  991. }
  992.  
  993. /*
  994.  *    TRANSFORMATION ROUTINES FOR THE MERCATOR PROJECTION
  995.  */
  996.  
  997. int map_init_merc () {
  998.     double xmin, xmax, ymin, ymax;
  999.     
  1000.     if (project_info.s == -90.0 || project_info.n == 90.0) {
  1001.         fprintf (stderr, "%s: GMT SYNTAX ERROR -R option:  Cannot include south/north poles with Mercator projection!\n", gmt_program);
  1002.         exit (-1);
  1003.     }
  1004.     
  1005.     vmerc (0.5 * (project_info.w + project_info.e));
  1006.     merc (project_info.w, project_info.s, &xmin, &ymin);
  1007.     merc (project_info.e, project_info.n, &xmax, &ymax);
  1008.     if (project_info.gave_map_width) project_info.pars[0] /= (M_PR_DEG * fabs (project_info.w - project_info.e));
  1009.     if (project_info.units_pr_degree) project_info.pars[0] /= M_PR_DEG;
  1010.     project_info.x_scale = project_info.y_scale = project_info.pars[0];
  1011.     map_setxy (xmin, xmax, ymin, ymax);
  1012.     gmt_world_map = (fabs (project_info.w - project_info.e) == 360.0);
  1013.     gmtdefs.n_lat_nodes = 2;
  1014.     gmtdefs.n_lon_nodes = 3;    /* > 2 to avoid map-jumps */
  1015.     forward = (PFI)merc;        inverse = (PFI)imerc;
  1016.     outside = (PFI) wesn_outside;
  1017.     crossing = (PFI) wesn_crossing;
  1018.     overlap = (PFI) wesn_overlap;
  1019.     map_clip = (PFI) wesn_clip;
  1020.     left_edge = (PFD) left_rect;
  1021.     right_edge = (PFD) right_rect;
  1022.     frame_info.horizontal = TRUE;
  1023.     return (FALSE);    /* No need to search for wesn */
  1024. }
  1025.  
  1026. int vmerc (cmerid)
  1027. double cmerid; {
  1028.     /* Set up a Mercator transformation */
  1029.     
  1030.     project_info.central_meridian = cmerid;
  1031.     return (0);
  1032. }
  1033.  
  1034. int merc (lon, lat, x, y)
  1035. double lon, lat, *x, *y; {
  1036.     double tmp;
  1037.     /* Convert lon/lat to Mercator x/y */
  1038.  
  1039.     while ((lon - project_info.central_meridian) < -180.0) lon += 360.0;
  1040.     while ((lon - project_info.central_meridian) > 180.0) lon -= 360.0;
  1041.     *x = (lon - project_info.central_meridian) * D2R * EQ_RAD;
  1042.     
  1043.     if (fabs (lat) < 90.0) {
  1044.         tmp = pow ((1.0 - ECC * sin (lat * D2R)) / (1.0 + ECC * sin (lat * D2R)), 0.5 * ECC);
  1045.         *y =  d_log (tan ((45.0 + 0.5 * lat) * D2R) * tmp) * EQ_RAD;
  1046.     }
  1047.     else
  1048.         *y = copysign (1.0e100, lat);
  1049. }
  1050.  
  1051. int imerc (lon, lat, x, y)
  1052. double *lon, *lat, x, y; {
  1053.     int i;
  1054.     double t, t_phi, delta, tmp, phi, pw, pow();
  1055.  
  1056.     /* Convert Mercator x/y to lon/lat */
  1057.     
  1058.     *lon = (x / EQ_RAD) * R2D + project_info.central_meridian;
  1059.     
  1060.     t = exp (-y / EQ_RAD);
  1061.     t_phi = 90.0 - 2.0 * atan(t) * R2D;
  1062.     for (delta = 1.0, i = 0; delta > 0.0000001 && i < 100; i++) {
  1063.         tmp = (1.0 - ECC * sin (t_phi * D2R)) / (1.0 + ECC * sin (t_phi * D2R));
  1064.         pw = pow (tmp, 0.5 * ECC);
  1065.         phi = 90.0 - 2.0 * atan (t * pw) * R2D;
  1066.         delta = fabs (fabs (phi) - fabs (t_phi));
  1067.         t_phi = phi;
  1068.     }
  1069.     *lat = phi;
  1070. }
  1071.  
  1072. /*
  1073.  *    TRANSFORMATION ROUTINES FOR CYLIDNDRICAL EQUAL-AREA PROJECTIONS (CYL_EQ)
  1074.  */
  1075.  
  1076. int map_init_cyleq () {
  1077.     double xmin, xmax, ymin, ymax;
  1078.     
  1079.     gmt_world_map = (fabs (project_info.w - project_info.e) == 360.0);
  1080.     vcyleq (project_info.pars[0], project_info.pars[1]);
  1081.     cyleq (project_info.w, project_info.s, &xmin, &ymin);
  1082.     cyleq (project_info.e, project_info.n, &xmax, &ymax);
  1083.     if (project_info.gave_map_width) project_info.pars[2] /= (M_PR_DEG * fabs (project_info.w - project_info.e));
  1084.     if (project_info.units_pr_degree) project_info.pars[2] /= M_PR_DEG;
  1085.     project_info.x_scale = project_info.y_scale = project_info.pars[2];
  1086.     map_setxy (xmin, xmax, ymin, ymax);
  1087.     gmtdefs.n_lat_nodes = 2;
  1088.     gmtdefs.n_lon_nodes = 3;    /* > 2 to avoid map-jumps */
  1089.     forward = (PFI)cyleq;        inverse = (PFI)icyleq;
  1090.     outside = (PFI) wesn_outside;
  1091.     crossing = (PFI) wesn_crossing;
  1092.     overlap = (PFI) wesn_overlap;
  1093.     map_clip = (PFI) wesn_clip;
  1094.     left_edge = (PFD) left_rect;
  1095.     right_edge = (PFD) right_rect;
  1096.     frame_info.horizontal = TRUE;
  1097.     return (FALSE);    /* No need to search for wesn */
  1098. }
  1099.  
  1100. int vcyleq (lon0, slat)
  1101. double lon0, slat; {
  1102.     /* Set up a Cylindrical equal-area transformation */
  1103.     
  1104.     gmt_check_R_J (&lon0);
  1105.     project_info.central_meridian = lon0;
  1106.     project_info.y_rx = EQ_RAD * D2R * cos (D2R * slat);
  1107.     project_info.y_ry = EQ_RAD / cos (D2R * slat);
  1108.     return (0);
  1109. }
  1110.  
  1111. int cyleq (lon, lat, x, y)
  1112. double lon, lat, *x, *y; {
  1113.     /* Convert lon/lat to Cylindrical equal-area x/y */
  1114.  
  1115.     while ((lon - project_info.central_meridian) < -180.0) lon += 360.0;
  1116.     while ((lon - project_info.central_meridian) > 180.0) lon -= 360.0;
  1117.     *x = (lon - project_info.central_meridian) * project_info.y_rx;
  1118.     *y = project_info.y_ry * sind (lat);
  1119. }
  1120.  
  1121. int icyleq (lon, lat, x, y)
  1122. double *lon, *lat, x, y; {
  1123.  
  1124.     /* Convert Cylindrical equal-area x/y to lon/lat */
  1125.     
  1126.     *lon = (x / project_info.y_rx) + project_info.central_meridian;
  1127.     *lat = R2D * d_asin (y / project_info.y_ry);
  1128. }
  1129.  
  1130. /*
  1131.  *    TRANSFORMATION ROUTINES FOR CYLINDRICAL EQIDISTANT PROJECTION (CYL_EQDIST)
  1132.  */
  1133.  
  1134. int map_init_cyleqdist () {
  1135.     double xmin, xmax, ymin, ymax;
  1136.     
  1137.     gmt_world_map = (fabs (project_info.w - project_info.e) == 360.0);
  1138.     vcyleqdist (project_info.pars[0]);
  1139.     cyleqdist (project_info.w, project_info.s, &xmin, &ymin);
  1140.     cyleqdist (project_info.e, project_info.n, &xmax, &ymax);
  1141.     if (project_info.gave_map_width) project_info.pars[1] /= (M_PR_DEG * fabs (project_info.w - project_info.e));
  1142.     if (project_info.units_pr_degree) project_info.pars[1] /= M_PR_DEG;
  1143.     project_info.x_scale = project_info.y_scale = project_info.pars[1];
  1144.     map_setxy (xmin, xmax, ymin, ymax);
  1145.     gmtdefs.n_lat_nodes = 2;
  1146.     gmtdefs.n_lon_nodes = 3;    /* > 2 to avoid map-jumps */
  1147.     forward = (PFI)cyleqdist;        inverse = (PFI)icyleqdist;
  1148.     outside = (PFI) wesn_outside;
  1149.     crossing = (PFI) wesn_crossing;
  1150.     overlap = (PFI) wesn_overlap;
  1151.     map_clip = (PFI) wesn_clip;
  1152.     left_edge = (PFD) left_rect;
  1153.     right_edge = (PFD) right_rect;
  1154.     frame_info.horizontal = TRUE;
  1155.     return (FALSE);    /* No need to search for wesn */
  1156. }
  1157.  
  1158. int vcyleqdist (lon0)
  1159. double lon0; {
  1160.     /* Set up a Cylindrical equidistant transformation */
  1161.     
  1162.     gmt_check_R_J (&lon0);
  1163.     project_info.central_meridian = lon0;
  1164.     return (0);
  1165. }
  1166.  
  1167. int cyleqdist (lon, lat, x, y)
  1168. double lon, lat, *x, *y; {
  1169.     /* Convert lon/lat to Cylindrical equidistant x/y */
  1170.  
  1171.     while ((lon - project_info.central_meridian) < -180.0) lon += 360.0;
  1172.     while ((lon - project_info.central_meridian) > 180.0) lon -= 360.0;
  1173.     *x = (lon - project_info.central_meridian) * D2R * EQ_RAD;
  1174.     *y = lat * D2R * EQ_RAD;
  1175. }
  1176.  
  1177. int icyleqdist (lon, lat, x, y)
  1178. double *lon, *lat, x, y; {
  1179.  
  1180.     /* Convert Cylindrical equal-area x/y to lon/lat */
  1181.     
  1182.     *lon = R2D * (x / EQ_RAD) + project_info.central_meridian;
  1183.     *lat = R2D * y / EQ_RAD;
  1184. }
  1185.  
  1186. /*
  1187.  *    TRANSFORMATION ROUTINES FOR THE POLAR STEREOGRAPHIC PROJECTION
  1188.  */
  1189.  
  1190. int map_init_stereo () {
  1191.     BOOLEAN search;
  1192.     double xmin, xmax, ymin, ymax, dummy, radius;
  1193.     
  1194.     if (fabs (project_info.pars[1]) == 90.0) {    /* Polar aspect */
  1195.         project_info.polar = TRUE;
  1196.         forward = (PFI)plrs;        inverse = (PFI)iplrs;
  1197.         vplrs (project_info.pars[0], project_info.pars[1]);
  1198.         if (project_info.units_pr_degree) {
  1199.             plrs (project_info.pars[0], project_info.pars[3], &dummy, &radius);
  1200.             project_info.x_scale = project_info.y_scale = fabs (project_info.pars[2] / radius);
  1201.         }
  1202.         else
  1203.             project_info.x_scale = project_info.y_scale = project_info.pars[2];
  1204.     }
  1205.     else {
  1206.         vstereo (project_info.pars[0], project_info.pars[1]);
  1207.         project_info.polar = FALSE;
  1208.         forward = (project_info.pole == 0.0) ? (PFI)stereo2 : (PFI)stereo1;
  1209.         inverse = (PFI)istereo;
  1210.         if (project_info.units_pr_degree) {
  1211.             vplrs (0.0, 90.0);
  1212.             plrs (0.0, fabs(project_info.pars[3]), &dummy, &radius);
  1213.             project_info.x_scale = project_info.y_scale = fabs (project_info.pars[2] / radius);
  1214.         }
  1215.         else
  1216.             project_info.x_scale = project_info.y_scale = project_info.pars[2];
  1217.                 
  1218.         vstereo (project_info.pars[0], project_info.pars[1]);
  1219.     }
  1220.     
  1221.     if (!project_info.region) {    /* Rectangular box given */
  1222.         (*forward) (project_info.w, project_info.s, &xmin, &ymin);
  1223.         (*forward) (project_info.e, project_info.n, &xmax, &ymax);
  1224.                 
  1225.         outside = (PFI) rect_outside2;
  1226.         crossing = (PFI) rect_crossing;
  1227.         overlap = (PFI) rect_overlap;
  1228.         map_clip = (PFI) rect_clip;
  1229.         left_edge = (PFD) left_rect;
  1230.         right_edge = (PFD) right_rect;
  1231.         frame_info.check_side = !gmtdefs.oblique_anotation;
  1232.         frame_info.horizontal = (fabs (project_info.pars[1]) < 30.0 && fabs (project_info.n - project_info.s) < 30.0);
  1233.         search = TRUE;
  1234.     }
  1235.     else {
  1236.         if (fabs (project_info.pars[1]) == 90.0) {    /* Polar aspect */
  1237.             if (!project_info.north_pole && project_info.s == -90.0) project_info.edge[0] = FALSE;
  1238.             if (project_info.north_pole && project_info.n == 90.0) project_info.edge[2] = FALSE;
  1239.             if ((fabs (project_info.w - project_info.e) == 360.0 || project_info.w == project_info.e)) project_info.edge[1] = project_info.edge[3] = FALSE;
  1240.             outside = (PFI) polar_outside;
  1241.             crossing = (PFI) wesn_crossing;
  1242.             overlap = (PFI) wesn_overlap;
  1243.             map_clip = (PFI) wesn_clip;
  1244.             frame_info.horizontal = TRUE;
  1245.             gmtdefs.n_lat_nodes = 2;
  1246.             xy_search (&xmin, &xmax, &ymin, &ymax);
  1247.         }
  1248.         else {    /* Global view only */
  1249.             frame_info.anot_int[0] = frame_info.anot_int[1] = 0.0;    /* No annotations for global mode */
  1250.             frame_info.frame_int[0] = frame_info.frame_int[1] = 0.0;    /* No tickmarks for global mode */
  1251.             project_info.w = 0.0;
  1252.             project_info.e = 360.0;
  1253.             project_info.s = -90.0;
  1254.             project_info.n = 90.0;
  1255.             xmin = ymin = -2.0 * EQ_RAD;
  1256.             xmax = ymax = -xmin;
  1257.             outside = (PFI) radial_outside;
  1258.             crossing = (PFI) radial_crossing;
  1259.             overlap = (PFI) radial_overlap;
  1260.             map_clip = (PFI) radial_clip;
  1261.             gmtdefs.basemap_type = 1;
  1262.         }
  1263.         search = FALSE;
  1264.         left_edge = (PFD) left_circle;
  1265.         right_edge = (PFD) right_circle;
  1266.     }
  1267.                 
  1268.     map_setinfo (xmin, xmax, ymin, ymax, project_info.pars[2]);
  1269.     project_info.r = 0.5 * project_info.xmax;
  1270.         
  1271.     return (search);
  1272. }
  1273.     
  1274. int vplrs (rlong0, plat)
  1275. double rlong0, plat; {
  1276.     /* Set up a polar stereographic transformation (spherical) */
  1277.     
  1278.     project_info.central_meridian = rlong0;
  1279.     project_info.pole = plat;
  1280.     project_info.north_pole = (plat > 0.0);
  1281.     project_info.s_c = 2.0 * EQ_RAD * gmtdefs.map_scale_factor / d_sqrt (pow (1.0 + ECC, 1.0 + ECC) * pow (1.0 - ECC, 1.0 - ECC));
  1282.     return (0);
  1283. }
  1284.  
  1285. int plrs (lon, lat, x, y)
  1286. double lon, lat, *x, *y; {
  1287.     /* Convert lon/lat to x/y using polar projection */
  1288.     double t, rho, lambda, phi;
  1289.     
  1290.     while ((lon - project_info.central_meridian) < -180.0) lon += 360.0;
  1291.     while ((lon - project_info.central_meridian) > 180.0) lon -= 360.0;
  1292.  
  1293.     lambda = (lon - project_info.central_meridian) * D2R;
  1294.     lat *= D2R;
  1295.     phi = (project_info.north_pole) ? lat : -lat;
  1296.     t = tan (M_PI_4 - 0.5 * phi) / pow ((1.0 - ECC * sin (phi)) / (1.0 + ECC * sin (phi)), 0.5 * ECC);
  1297.     rho = project_info.s_c * t;
  1298.     
  1299.     *x = rho * sin (lambda);
  1300.     *y = (project_info.north_pole) ? -rho * cos (lambda) : rho * cos (lambda);
  1301. }
  1302.  
  1303. int iplrs (lon, lat, x, y)
  1304. double *lon, *lat, x, y; {
  1305.     int i;
  1306.     double rho, temp, tphi, t, delta, phi;
  1307.  
  1308.     /* Convert polar x/y to lon/lat */
  1309.     
  1310.     if (x == 0.0 && y == 0.0) {
  1311.         *lon = project_info.central_meridian;
  1312.         *lat = project_info.pole;
  1313.     }
  1314.     else {
  1315.         *lon = project_info.central_meridian + ((project_info.north_pole) ? d_atan2 (x, -y) : d_atan2 (x, y)) * R2D;        
  1316.         rho = hypot (x, y);
  1317.         t = rho / project_info.s_c;
  1318.         tphi = M_PI_2 - 2.0 * atan (t);
  1319.         delta = 1.0;
  1320.         for (i = 0; i < 100 && delta > 1.0e-8; i++) {
  1321.             temp = (1.0 - ECC * sin (tphi)) / (1.0 + ECC * sin (tphi));
  1322.             phi = M_PI_2 - 2.0 * atan (t * pow (temp, 0.5 * ECC));
  1323.             delta = fabs (fabs (tphi) - fabs (phi));
  1324.             tphi = phi;
  1325.         }
  1326.         *lat = (project_info.north_pole) ? phi * R2D : -phi * R2D;
  1327.     }
  1328. }
  1329.  
  1330. /* STEREO: For general oblique view */
  1331.  
  1332. int vstereo (rlong0, plat)
  1333. double rlong0, plat; {
  1334.     double s, m1, z1;
  1335.     /* Set up a polar stereographic transformation (spherical) */
  1336.     
  1337.     project_info.central_meridian = rlong0;
  1338.     project_info.pole = plat;
  1339.     project_info.sinp = sind (plat);
  1340.     project_info.cosp = cosd (plat);
  1341.     project_info.north_pole = (plat > 0.0);
  1342.     m1 = cosd (plat) / sqrt (1.0 - ECC2 * pow (sind (plat), 2.0));
  1343.     s = sind (plat);
  1344.     z1 = 2.0 * atan (sqrt (pow ((1.0 - ECC * s) / (1.0 + ECC * s), ECC) * (1.0 + s) / (1.0 - s))) - M_PI_2;
  1345.     project_info.s_cosz1 = cos (z1);
  1346.     project_info.s_sinz1 = sin (z1);
  1347.     project_info.s_c = 2.0 * EQ_RAD * gmtdefs.map_scale_factor * m1;
  1348.     return (0);
  1349. }
  1350.  
  1351. int stereo1 (lon, lat, x, y)
  1352. double lon, lat, *x, *y; {
  1353.     double dlon, s, z, A;
  1354.     
  1355.     /* Convert lon/lat to x/y using stereographic projection, oblique view */
  1356.  
  1357.     dlon = lon - project_info.central_meridian;
  1358.     s = sind (lat);
  1359.     z = 2.0 * atan (sqrt (pow ((1.0 - ECC * s) / (1.0 + ECC * s), ECC) * (1.0 + s) / (1.0 - s))) - M_PI_2;
  1360.     A = project_info.s_c / (project_info.s_cosz1 * (1.0 + project_info.s_sinz1 * sin (z) +
  1361.         project_info.s_cosz1 * cos (z) * cosd (dlon)));
  1362.     *x = A * cos (z) * sind (dlon);
  1363.     *y = A * (project_info.s_cosz1 * sin (z) - project_info.s_sinz1 * cos (z) * cosd (dlon));
  1364. }
  1365.  
  1366. int istereo (lon, lat, x, y)
  1367. double *lon, *lat, x, y; {
  1368.     int i;
  1369.     double rho, s, z, delta, ce, tphi, phi;
  1370.     
  1371.     if (x == 0.0 && y == 0.0) {
  1372.         *lon = project_info.central_meridian;
  1373.         *lat = project_info.pole;
  1374.     }
  1375.     else {
  1376.         rho = hypot (x, y);
  1377.         ce = 2.0 * atan (rho * project_info.s_cosz1 / project_info.s_c);
  1378.         z = d_asin (cos (ce) * project_info.s_sinz1 + (y * sin (ce) * project_info.s_cosz1 / rho));
  1379.         delta = 1.0;
  1380.         s = sin (z);
  1381.         tphi = 2.0 * atan (tan (M_PI_4 + 0.5 * z) * pow ((1.0 + ECC * s)/(1.0 - ECC * s), 0.5 * ECC)) - M_PI_2;
  1382.         for (i = 0; i < 100 && delta > 1.0e-8; i++) {
  1383.             s = sin (tphi);
  1384.             phi = 2.0 * atan (tan (M_PI_4 + 0.5 * z) * pow ((1.0 + ECC * s)/(1.0 - ECC * s), 0.5 * ECC)) - M_PI_2;
  1385.             delta = fabs (fabs (tphi) - fabs (phi));
  1386.             tphi = phi;
  1387.         }
  1388.         *lat = phi * R2D;
  1389.         *lon = project_info.central_meridian +
  1390.             R2D * atan (x * sin (ce) / (rho * project_info.s_cosz1 * cos (ce) -
  1391.             y * project_info.s_sinz1 * sin (ce)));
  1392.     }
  1393. }
  1394.     
  1395. /* For equatorial view */
  1396.  
  1397. int stereo2 (lon, lat, x, y)
  1398. double lon, lat, *x, *y; {
  1399.     double dlon, s, z, A;
  1400.     
  1401.     /* Convert lon/lat to x/y using stereographic projection, equatorial view */
  1402.  
  1403.     dlon = lon - project_info.central_meridian;
  1404.     s = sind (lat);
  1405.     z = 2.0 * atan (sqrt (pow ((1.0 - ECC * s) / (1.0 + ECC * s), ECC) * (1.0 + s) / (1.0 - s))) - M_PI_2;
  1406.     A = project_info.s_c / (project_info.s_cosz1 * (1.0 + project_info.s_sinz1 * sin (z) +
  1407.         project_info.s_cosz1 * cos (z) * cosd (dlon)));
  1408.     *x = A * cos (z) * sind (dlon);
  1409.     *y = A * sin (z);
  1410. }
  1411.  
  1412. /*
  1413.  *    TRANSFORMATION ROUTINES FOR THE LAMBERT CONFORMAL CONIC PROJECTION
  1414.  */
  1415.  
  1416. int map_init_lambert () {
  1417.     BOOLEAN search;
  1418.     double xmin, xmax, ymin, ymax;
  1419.     
  1420.     vlamb (project_info.pars[0], project_info.pars[1], project_info.pars[2], project_info.pars[3]);
  1421.     if (project_info.units_pr_degree) project_info.pars[4] /= M_PR_DEG;
  1422.     project_info.x_scale = project_info.y_scale = project_info.pars[4];
  1423.     forward = (PFI)lamb;        inverse = (PFI)ilamb;
  1424.             
  1425.     if (!project_info.region) {    /* Rectangular box given*/
  1426.         lamb (project_info.w, project_info.s, &xmin, &ymin);
  1427.         lamb (project_info.e, project_info.n, &xmax, &ymax);
  1428.                 
  1429.         outside = (PFI) rect_outside;
  1430.         crossing = (PFI) rect_crossing;
  1431.         overlap = (PFI) rect_overlap;
  1432.         map_clip = (PFI) rect_clip;
  1433.         left_edge = (PFD) left_rect;
  1434.         right_edge = (PFD) right_rect;
  1435.         search = TRUE;
  1436.         frame_info.check_side = !gmtdefs.oblique_anotation;
  1437.     }
  1438.     else {
  1439.         xy_search (&xmin, &xmax, &ymin, &ymax);
  1440.         outside = (PFI) wesn_outside;
  1441.         crossing = (PFI) wesn_crossing;
  1442.         overlap = (PFI) wesn_overlap;
  1443.         map_clip = (PFI) wesn_clip;
  1444.         left_edge = (PFD) left_lambert;
  1445.         right_edge = (PFD) right_lambert;
  1446.         search = FALSE;
  1447.     }
  1448.     map_setinfo (xmin, xmax, ymin, ymax, project_info.pars[4]);
  1449.     gmtdefs.n_lat_nodes = 2;
  1450.     frame_info.horizontal = TRUE;
  1451.     return (search);
  1452. }
  1453.  
  1454. int vlamb (rlong0, rlat0, pha, phb)
  1455. double rlong0, rlat0, pha, phb; {
  1456.     /* Set up a Lambert Conformal Conic projection */
  1457.     
  1458.     double t_pha, m_pha, t_phb, m_phb, t_rlat0;
  1459.     
  1460.     project_info.north_pole = (rlat0 > 0.0);
  1461.     project_info.pole = (project_info.north_pole) ? 90.0 : -90.0;
  1462.     pha *= D2R;
  1463.     phb *= D2R;
  1464.     
  1465.     t_pha = tan (45.0 * D2R - 0.5 * pha) / pow ((1.0 - ECC * 
  1466.         sin (pha)) / (1.0 + ECC * sin (pha)), 0.5 * ECC);
  1467.     m_pha = cos (pha) / d_sqrt (1.0 - ECC2 
  1468.         * pow (sin (pha), 2.0));
  1469.     t_phb = tan (45.0 * D2R - 0.5 * phb) / pow ((1.0 - ECC *
  1470.         sin (phb)) / (1.0 + ECC * sin (phb)), 0.5 * ECC);
  1471.     m_phb = cos (phb) / d_sqrt (1.0 - ECC2 
  1472.         * pow (sin (phb), 2.0));
  1473.     t_rlat0 = tan (45.0 * D2R - 0.5 * rlat0 * D2R) /
  1474.         pow ((1.0 - ECC * sin (rlat0 * D2R)) /
  1475.         (1.0 + ECC * sin (rlat0 * D2R)), 0.5 * ECC);
  1476.     
  1477.     if(pha != phb)
  1478.         project_info.l_N = (d_log(m_pha) - d_log(m_phb))/(d_log(t_pha) - d_log(t_phb));
  1479.     else
  1480.         project_info.l_N = sin(pha);
  1481.     
  1482.     project_info.l_F = m_pha/(project_info.l_N * pow(t_pha,project_info.l_N));
  1483.     project_info.central_meridian = rlong0;
  1484.     project_info.l_rho0 = EQ_RAD * project_info.l_F * pow(t_rlat0,project_info.l_N);
  1485. }
  1486.  
  1487. int lamb (lon, lat, x, y)
  1488. double lon, lat, *x, *y; {
  1489.     double rho,theta,hold1,hold2,hold3;
  1490.     
  1491.     while ((lon - project_info.central_meridian) < -180.0) lon += 360.0;
  1492.     while ((lon - project_info.central_meridian) > 180.0) lon -= 360.0;
  1493.     lat *= D2R;
  1494.  
  1495.     hold2 = pow (((1.0 - ECC * sin (lat)) / (1.0 + ECC * sin (lat))), 0.5 * ECC);
  1496.     hold3 = tan (45.0 * D2R - 0.5 * lat);
  1497.     if (fabs (hold3) < SMALL) hold3 = 0.0;
  1498.     hold1 = (hold3 == 0.0) ? 0.0 : pow (hold3 / hold2, project_info.l_N);
  1499.     rho = EQ_RAD * project_info.l_F * hold1;
  1500.     theta = project_info.l_N * (lon - project_info.central_meridian) * D2R;
  1501.  
  1502.     *x = rho * sin (theta);
  1503.     *y = project_info.l_rho0 - rho * cos (theta);
  1504. }
  1505.  
  1506. int ilamb (lon, lat, x, y)
  1507. double *lon, *lat, x, y; {
  1508.     int i;
  1509.     double theta, temp, rho, t, tphi, phi, delta;
  1510.     
  1511.     theta = atan (x / (project_info.l_rho0 - y));
  1512.     *lon = (theta /project_info.l_N) * R2D + project_info.central_meridian;
  1513.     
  1514.     temp = x * x + (project_info.l_rho0 - y) * (project_info.l_rho0 - y);
  1515.     rho = copysign (d_sqrt (temp), project_info.l_N);
  1516.     t = pow ((rho / (EQ_RAD * project_info.l_F)), 1./project_info.l_N);
  1517.     tphi = 90.0 * D2R - 2.0 * atan (t);
  1518.     delta = 1.0;
  1519.     for (i = 0; i < 100 && delta > 1.0e-8; i++) {
  1520.         temp = (1.0 - ECC * sin (tphi)) / (1.0 + ECC * sin (tphi));
  1521.         phi = 90.0 * D2R - 2.0 * atan (t * pow (temp, 0.5 * ECC));
  1522.         delta = fabs (fabs (tphi) - fabs (phi));
  1523.         tphi = phi;
  1524.     }
  1525.     *lat = phi * R2D;
  1526. }
  1527.  
  1528. /*
  1529.  *    TRANSFORMATION ROUTINES FOR THE OBLIQUE MERCATOR PROJECTION
  1530.  */
  1531.  
  1532. int map_init_oblique () {
  1533.     double xmin, xmax, ymin, ymax;
  1534.     double o_x, o_y, p_x, p_y, c, az, b_x, b_y, w, e, s, n;
  1535.  
  1536.     gmt_set_spherical ();    /* PW: Force spherical for now */
  1537.  
  1538.     if (project_info.units_pr_degree) project_info.pars[4] /= M_PR_DEG;    /* To get plot-units / m */
  1539.             
  1540.     o_x = project_info.pars[0];    o_y = project_info.pars[1];
  1541.             
  1542.     if (project_info.pars[6] == 1.0) {    /* Must get correct origin, then get second point */
  1543.         p_x = project_info.pars[2];    p_y = project_info.pars[3];
  1544.                 
  1545.          project_info.o_pole_lon = D2R * p_x;
  1546.          project_info.o_sin_pole_lat = sind (p_y);
  1547.          project_info.o_cos_pole_lat = cosd (p_y);
  1548.          
  1549.          /* Find azimuth to pole, add 90, and compute second point 10 degrees away */
  1550.          
  1551.         get_origin (o_x, o_y, p_x, p_y, &o_x, &o_y);
  1552.          az = R2D * atan (cosd (p_y) * sind (p_x - o_x) / (cosd (o_y) * sind (p_y) - sind (o_y) * cosd (p_y) * cosd (p_x - o_x))) + 90.0;
  1553.          c = 10.0;    /* compute point 10 degrees from origin along azimuth */
  1554.          b_x = o_x + R2D * atan (sind (c) * sind (az) / (cosd (o_y) * cosd (c) - sind (o_y) * sind (c) * cosd (az)));
  1555.          b_y = R2D * d_asin (sind (o_y) * cosd (c) + cosd (o_y) * sind (c) * cosd (az));
  1556.          project_info.pars[0] = o_x;    project_info.pars[1] = o_y;
  1557.          project_info.pars[2] = b_x;    project_info.pars[3] = b_y;
  1558.      }
  1559.      else {    /* Just find pole */
  1560.         b_x = project_info.pars[2];    b_y = project_info.pars[3];
  1561.          get_rotate_pole (o_x, o_y, b_x, b_y);
  1562.     }
  1563.             
  1564.     vmerc (0.0);    /* Because origin will have 0 degree oblique */
  1565.             
  1566.     if (project_info.region) {
  1567.         /* Convert oblique wesn in degrees to meters using regular Mercator */
  1568.         if (fabs (project_info.w - project_info.e) == 360.0) {
  1569.             project_info.w = -180.0;
  1570.             project_info.e = 180.0;
  1571.         }
  1572.         merc (project_info.w, project_info.s, &xmin, &ymin);
  1573.         merc (project_info.e, project_info.n, &xmax, &ymax);
  1574.         vmerc (0.0);
  1575.         project_info.region = FALSE;    /* Since wesn was oblique, not geographical wesn */
  1576.     }
  1577.     else {
  1578.         /* wesn is lower left and upper right corners in normal lon/lats */
  1579.                 
  1580.         oblmrc (project_info.w, project_info.s, &xmin, &ymin);
  1581.         oblmrc (project_info.e, project_info.n, &xmax, &ymax);
  1582.     }
  1583.     
  1584.     imerc (&w, &s, xmin, ymin);    /* Get oblique wesn boundaries */
  1585.     imerc (&e, &n, xmax, ymax);
  1586.     project_info.x_scale = project_info.y_scale = project_info.pars[4];
  1587.     map_setinfo (xmin, xmax, ymin, ymax, project_info.pars[4]);
  1588.                 
  1589.     forward = (PFI)oblmrc;        inverse = (PFI)ioblmrc;
  1590.     outside = (PFI) rect_outside;
  1591.     crossing = (PFI) rect_crossing;
  1592.     overlap = (PFI) rect_overlap;
  1593.     map_clip = (PFI) rect_clip;
  1594.     left_edge = (PFD) left_rect;
  1595.     right_edge = (PFD) right_rect;
  1596.             
  1597.     gmt_world_map = (fabs (fabs (w - e) - 360.0) < SMALL);
  1598.     gmtdefs.basemap_type = 1;
  1599.     frame_info.check_side = !gmtdefs.oblique_anotation;
  1600.     
  1601.     return (TRUE);
  1602. }
  1603.  
  1604. int oblmrc (lon, lat, x, y)
  1605. double lon, lat;
  1606. double *x, *y; {
  1607.     /* Convert a longitude/latitude point to Oblique Mercator coordinates 
  1608.      * by way of rotation coordinates and then using regular Mercator */
  1609.     double tlon, tlat;
  1610.     
  1611.     pole_rotate_forward (lon, lat, &tlon, &tlat);
  1612.     merc (tlon, tlat, x, y);
  1613. }
  1614.  
  1615. int ioblmrc (lon, lat, x, y)
  1616. double *lon, *lat;
  1617. double x, y; {
  1618.     /* Convert a longitude/latitude point from Oblique Mercator coordinates 
  1619.      * by way of regular Mercator and then rotate coordinates */
  1620.     double tlon, tlat;
  1621.     
  1622.     imerc (&tlon, &tlat, x, y);
  1623.     pole_rotate_inverse (lon, lat, tlon, tlat);
  1624. }
  1625.  
  1626. int pole_rotate_forward (lon, lat, tlon, tlat)
  1627. double lon, lat, *tlon, *tlat; {
  1628.     /* Given the pole position in project_info, geographical coordinates
  1629.      * are computed from oblique coordinates assuming a spherical earth.
  1630.      */
  1631.      
  1632.      double dlon, x, y, test;
  1633.      
  1634.      lon *= D2R;    lat *= D2R;
  1635.      dlon = lon - project_info.o_pole_lon;
  1636.      test = project_info.o_sin_pole_lat * sin (lat) + project_info.o_cos_pole_lat * cos (lat) * cos (dlon);
  1637.      y = d_asin (test);
  1638.      x = project_info.o_beta + d_atan2 (cos (lat) * sin (dlon), project_info.o_sin_pole_lat * cos (lat) * cos (dlon)
  1639.          - project_info.o_cos_pole_lat * sin (lat));
  1640.      
  1641.      *tlon = R2D * x;    *tlat = R2D * y;
  1642. }
  1643.      
  1644. int pole_rotate_inverse (lon, lat, tlon, tlat)
  1645. double *lon, *lat, tlon, tlat; {
  1646.     /* Given the pole position in project_info, geographical coordinates 
  1647.      * are computed from oblique coordinates assuming a spherical earth.
  1648.      */
  1649.      
  1650.      double dlon, x, y, test;
  1651.      
  1652.      tlon *= D2R;    tlat *= D2R;
  1653.      dlon = tlon - project_info.o_beta;
  1654.      test = project_info.o_sin_pole_lat * sin (tlat) - project_info.o_cos_pole_lat * cos (tlat) * cos (dlon);
  1655.      y = d_asin (test);
  1656.      x = project_info.o_pole_lon + d_atan2 (cos (tlat) * sin (dlon), project_info.o_sin_pole_lat * cos (tlat) * cos (dlon)
  1657.          + project_info.o_cos_pole_lat * sin (tlat));
  1658.      
  1659.      *lon = R2D * x;    *lat = R2D * y;
  1660. }
  1661.  
  1662. int get_rotate_pole (lon1, lat1, lon2, lat2)
  1663. double lon1, lat1, lon2, lat2; {
  1664.     double plon, plat, beta, dummy;
  1665.     
  1666. #ifdef aix
  1667.     double aix_cpp_sucks1, aix_cpp_sucks2;
  1668.     
  1669.     aix_cpp_sucks1 =  cosd (lat1) * sind (lat2) * cosd (lon1) - sind (lat1) * cosd (lat2) * cosd (lon2);
  1670.     aix_cpp_sucks2 = sind (lat1) * cosd (lat2) * sind (lon2) - cosd (lat1) * sind (lat2) * sind (lon1);
  1671.     plon = R2D * d_atan2 (aix_cpp_sucks1, aix_cpp_sucks2);
  1672. #else
  1673.     plon = R2D * d_atan2 (cosd (lat1) * sind (lat2) * cosd (lon1) - sind (lat1) * cosd (lat2) * cosd (lon2),
  1674.         sind (lat1) * cosd (lat2) * sind (lon2) - cosd (lat1) * sind (lat2) * sind (lon1));
  1675. #endif
  1676.  
  1677.     plat = R2D * atan (-cosd (plon - lon1) / tand (lat1));
  1678.     if (plat < 0.0) {
  1679.         plat = -plat;
  1680.         plon += 180.0;
  1681.         if (plon >= 360.0) plon -= 360.0;
  1682.     }
  1683.     project_info.o_pole_lon = D2R * plon;
  1684.     project_info.o_sin_pole_lat = sind (plat);
  1685.     project_info.o_cos_pole_lat = cosd (plat);
  1686.     pole_rotate_forward (lon1, lat1, &beta, &dummy);
  1687.     project_info.o_beta = -beta * D2R;
  1688. }
  1689.  
  1690. int get_origin (lon1, lat1, lon_p, lat_p, lon2, lat2)
  1691. double lon1, lat1, lon_p, lat_p, *lon2, *lat2; {
  1692.     double beta, dummy, d, az, c;
  1693.     
  1694.     
  1695.     /* Now find origin that is 90 degrees from pole, let oblique lon=0 go through lon1/lat1 */
  1696. #ifdef aix 
  1697.         c = cosd (lat_p) * cosd (lat1) * cosd (lon1-lon_p);
  1698.         c = R2D * d_acos (sind (lat_p) * sind (lat1) + c);
  1699. #else 
  1700.         c = R2D * d_acos (sind (lat_p) * sind (lat1) + cosd (lat_p) * cosd (lat1) * cosd (lon1-lon_p));
  1701. #endif     
  1702.     
  1703.     if (c != 90.0) {    /* Not true origin */
  1704.         d = fabs (90.0 - c);
  1705.         az = R2D * d_asin (sind (lon_p-lon1) * cosd (lat_p) / sind (c));
  1706.         if (c < 90.0) az += 180.0;
  1707.         *lat2 = R2D * d_asin (sind (lat1) * cosd (d) + cosd (lat1) * sind (d) * cosd (az));
  1708.         *lon2 = lon1 + R2D * d_atan2 (sind (d) * sind (az), cosd (lat1) * cosd (d) - sind (lat1) * sind (d) * cosd (az));
  1709.         if (gmtdefs.verbose) fprintf (stderr, "%s: GMT Warning: Correct projection origin = %lg/%lg\n", gmt_program, *lon2, *lat2);
  1710.     }
  1711.     else {
  1712.         *lon2 = lon1;
  1713.         *lat2 = lat1;
  1714.     }
  1715.     
  1716.     pole_rotate_forward (*lon2, *lat2, &beta, &dummy);
  1717.     
  1718.     
  1719.     project_info.o_beta = -beta * D2R;
  1720. }
  1721.  
  1722. /*
  1723.  *    TRANSFORMATION ROUTINES FOR THE TRANSVERSE MERCATOR PROJECTION (TM)
  1724.  */
  1725.  
  1726. int map_init_tm () {
  1727.     BOOLEAN search;
  1728.     double xmin, xmax, ymin, ymax;
  1729.     
  1730.     vtm (project_info.pars[0]);
  1731.     if (project_info.units_pr_degree) project_info.pars[1] /= M_PR_DEG;
  1732.     project_info.x_scale = project_info.y_scale = project_info.pars[1];
  1733.     forward = (PFI)tm;        inverse = (PFI)itm;
  1734.             
  1735.     if (project_info.region) {
  1736.         xy_search (&xmin, &xmax, &ymin, &ymax);
  1737.         outside = (PFI) wesn_outside;
  1738.         crossing = (PFI) wesn_crossing;
  1739.         overlap = (PFI) wesn_overlap;
  1740.         map_clip = (PFI) wesn_clip;
  1741.         left_edge = (PFD) left_rect;
  1742.         right_edge = (PFD) right_rect;
  1743.         search = FALSE;
  1744.     }
  1745.     else { /* Find min values */
  1746.         (*forward) (project_info.w, project_info.s, &xmin, &ymin);
  1747.         (*forward) (project_info.e, project_info.n, &xmax, &ymax);
  1748.         outside = (PFI) rect_outside;
  1749.         crossing = (PFI) rect_crossing;
  1750.         overlap = (PFI) rect_overlap;
  1751.         map_clip = (PFI) rect_clip;
  1752.         left_edge = (PFD) left_rect;
  1753.         right_edge = (PFD) right_rect;
  1754.         frame_info.check_side = TRUE;
  1755.         search = TRUE;
  1756.     }
  1757.             
  1758.     frame_info.horizontal = TRUE;
  1759.     map_setinfo (xmin, xmax, ymin, ymax, project_info.pars[1]);
  1760.             
  1761.     gmtdefs.basemap_type = 1;
  1762.     
  1763.     return (search);
  1764. }
  1765.  
  1766. int vtm (lon0)
  1767. double lon0; {
  1768.     /* Set up an TM projection */
  1769.     double e1;
  1770.     
  1771.     e1 = (1.0 - d_sqrt (1.0 - ECC2)) / (1.0 + d_sqrt (1.0 - ECC2));
  1772.     project_info.t_e2 = ECC2 / (1.0 - ECC2);
  1773.     project_info.t_c1 = (1.0 - 0.25 * ECC2 - 3.0 * ECC4 / 64.0 - 5.0 * ECC6 / 256.0);
  1774.     project_info.t_c2 = (3.0 * ECC2 / 8.0 + 3.0 * ECC4 / 32.0 + 45.0 * ECC6 / 1024.0);
  1775.     project_info.t_c3 = (15.0 * ECC4 / 256.0 + 45.0 * ECC6 / 1024.0);
  1776.     project_info.t_c4 = (35.0 * ECC6 / 3072.0);
  1777.     project_info.t_ic1 = (1.5 * e1 - 27.0 * pow (e1, 3.0) / 32.0);
  1778.     project_info.t_ic2 = (21.0 * e1 * e1 / 16.0 - 55.0 * pow (e1, 4.0) / 32.0);
  1779.     project_info.t_ic3 = (151.0 * pow (e1, 3.0) / 96.0);
  1780.     project_info.t_ic4 = (1097.0 * pow (e1, 4.0) / 512.0);
  1781.     project_info.central_meridian = lon0;
  1782. }
  1783.  
  1784. int tm (lon, lat, x, y)
  1785. double lon, lat, *x, *y; {
  1786.     /* Convert lon/lat to TM x/y */
  1787.     double N, T, T2, C, A, M, dlon, tan_lat, cos_lat, A2, A3, A5;
  1788.     
  1789.     dlon = lon - project_info.central_meridian;
  1790.     if (fabs (dlon) > 360.0) dlon += copysign (360.0, -dlon);
  1791.     if (fabs (dlon) > 180.0) dlon = copysign (360.0 - fabs (dlon), -dlon);
  1792.     lat *= D2R;
  1793.     M = EQ_RAD * (project_info.t_c1 * lat - project_info.t_c2 * sin (2.0 * lat)
  1794.         + project_info.t_c3 * sin (4.0 * lat) - project_info.t_c4 * sin (6.0 * lat));
  1795.     if (fabs (lat) == M_PI_2) {
  1796.         *x = 0.0;
  1797.         *y = gmtdefs.map_scale_factor * M;
  1798.     }
  1799.     else {
  1800.         N = EQ_RAD / d_sqrt (1.0 - ECC2 * pow (sin (lat), 2.0));
  1801.         tan_lat = tan (lat);
  1802.         cos_lat = cos (lat);
  1803.         T = tan_lat * tan_lat;
  1804.         T2 = T * T;
  1805.         C = project_info.t_e2 * cos_lat * cos_lat;
  1806.         A = dlon * D2R * cos_lat;
  1807.         A2 = A * A;    A3 = A2 * A;    A5 = A3 * A2;
  1808.         *x = gmtdefs.map_scale_factor * N * (A + (1.0 - T + C) * (A3 * 0.16666666666666666667)
  1809.             + (5.0 - 18.0 * T + T2 + 72.0 * C - 58.0 * project_info.t_e2) * (A5 * 0.00833333333333333333));
  1810.         A3 *= A;    A5 *= A;
  1811.         *y = gmtdefs.map_scale_factor * (M + N * tan (lat) * (0.5 * A2 + (5.0 - T + 9.0 * C + 4.0 * C * C) * (A3 * 0.04166666666666666667)
  1812.             + (61.0 - 58.0 * T + T2 + 600.0 * C - 330.0 * project_info.t_e2) * (A5 * 0.00138888888888888889)));
  1813.     }
  1814. }
  1815.  
  1816. int itm (lon, lat, x, y)
  1817. double *lon, *lat, x, y; {
  1818.     /* Convert TM x/y to lon/lat */
  1819.     double M, mu, phi1, C1, C12, T1, T12, tmp, tmp2, N1, R1, D, D2, D3, D5, cos_phi1, tan_phi1;
  1820.     
  1821.     M = y / gmtdefs.map_scale_factor;
  1822.     mu = M / (EQ_RAD * project_info.t_c1);
  1823.     phi1 = mu + project_info.t_ic1 * sin (2.0 * mu) + project_info.t_ic2 * sin (4.0 * mu)
  1824.         + project_info.t_ic3 * sin (6.0 * mu) + project_info.t_ic4 * sin (8.0 * mu);
  1825.     cos_phi1 = cos (phi1);
  1826.     tan_phi1 = tan (phi1);
  1827.     C1 = project_info.t_e2 * cos_phi1 * cos_phi1;
  1828.     C12 = C1 * C1;
  1829.     T1 = tan_phi1 * tan_phi1;
  1830.     T12 = T1 * T1;
  1831.     tmp = 1.0 - ECC2 * (1.0 - cos_phi1 * cos_phi1);
  1832.     tmp2 = d_sqrt (tmp);
  1833.     N1 = EQ_RAD / tmp2;
  1834.     R1 = EQ_RAD * (1.0 - ECC2) / (tmp * tmp2);
  1835.     D = x / (N1 * gmtdefs.map_scale_factor);
  1836.     D2 = D * D;    D3 = D2 * D;    D5 = D3 * D2;
  1837.     
  1838.     *lon = project_info.central_meridian + R2D * (D - (1.0 + 2.0 * T1 + C1) * (D3 * 0.16666666666666666667) 
  1839.         + (5.0 - 2.0 * C1 + 28.0 * T1 - 3.0 * C12 + 8.0 * project_info.t_e2 + 24.0 * T12)
  1840.         * (D5 * 0.00833333333333333333)) / cos (phi1);
  1841.     D3 *= D;    D5 *= D;
  1842.     *lat = phi1 - (N1 * tan (phi1) / R1) * (0.5 * D2 -
  1843.         (5.0 + 3.0 * T1 + 10.0 * C1 - 4.0 * C12 - 9.0 * project_info.t_e2) * (D3 * 0.04166666666666666667)
  1844.         + (61.0 + 90.0 * T1 + 298 * C1 + 45.0 * T12 - 252.0 * project_info.t_e2 - 3.0 * C12) * (D5 * 0.00138888888888888889));
  1845.     (*lat) *= R2D;
  1846. }
  1847.  
  1848. /*
  1849.  *    TRANSFORMATION ROUTINES FOR THE UNIVERSAL TRANSVERSE MERCATOR PROJECTION (UTM)
  1850.  */
  1851.  
  1852. int map_init_utm () {
  1853.     BOOLEAN search;
  1854.     double xmin, xmax, ymin, ymax, lon0;
  1855.     
  1856.     lon0 = 180.0 + 6.0 * project_info.pars[0] - 3.0;
  1857.     if (lon0 >= 360.0) lon0 -= 360.0;
  1858.     vtm (lon0);    /* Central meridian for this zone */
  1859.     if (project_info.units_pr_degree) project_info.pars[1] /= M_PR_DEG;
  1860.     project_info.x_scale = project_info.y_scale = project_info.pars[1];
  1861.     forward = (PFI)utm;        inverse = (PFI)iutm;
  1862.             
  1863.     if (fabs (project_info.w - project_info.e) > 360.0) {    /* -R in UTM meters */
  1864.         iutm (&project_info.w, &project_info.s, project_info.w, project_info.s);
  1865.         iutm (&project_info.e, &project_info.n, project_info.e, project_info.n);
  1866.         project_info.region = FALSE;
  1867.     }
  1868.     if (project_info.region) {
  1869.         xy_search (&xmin, &xmax, &ymin, &ymax);
  1870.         outside = (PFI) wesn_outside;
  1871.         crossing = (PFI) wesn_crossing;
  1872.         overlap = (PFI) wesn_overlap;
  1873.         map_clip = (PFI) wesn_clip;
  1874.         left_edge = (PFD) left_rect;
  1875.         right_edge = (PFD) right_rect;
  1876.         search = FALSE;
  1877.     }
  1878.     else {
  1879.         utm (project_info.w, project_info.s, &xmin, &ymin);
  1880.         utm (project_info.e, project_info.n, &xmax, &ymax);
  1881.         outside = (PFI) rect_outside;
  1882.         crossing = (PFI) rect_crossing;
  1883.         overlap = (PFI) rect_overlap;
  1884.         map_clip = (PFI) rect_clip;
  1885.         left_edge = (PFD) left_rect;
  1886.         right_edge = (PFD) right_rect;
  1887.         frame_info.check_side = TRUE;
  1888.         search = TRUE;
  1889.     }
  1890.  
  1891.     frame_info.horizontal = TRUE;
  1892.     map_setxy (xmin, xmax, ymin, ymax);
  1893.             
  1894.     gmtdefs.basemap_type = 1;
  1895.     
  1896.     return (search);
  1897. }
  1898.  
  1899. int utm (lon, lat, x, y)
  1900. double lon, lat, *x, *y; {
  1901.     /* Convert lon/lat to UTM x/y */
  1902.  
  1903.     if (lon < 0.0) lon += 360.0;
  1904.     tm (lon, lat, x, y);
  1905.     (*x) += 500000.0;
  1906.     if (!project_info.north_pole) (*y) += 10000000.0;    /* For S hemisphere, add 10^6 m */
  1907. }
  1908.  
  1909. int iutm (lon, lat, x, y)
  1910. double *lon, *lat, x, y; {
  1911.     /* Convert UTM x/y to lon/lat */
  1912.  
  1913.     x -= 500000.0;
  1914.     if (!project_info.north_pole) y -= 10000000.0;
  1915.     itm (lon, lat, x, y);
  1916. }
  1917.  
  1918. /*
  1919.  *    TRANSFORMATION ROUTINES FOR THE LAMBERT AZIMUTHAL EQUAL AREA PROJECTION
  1920.  */
  1921.  
  1922. int map_init_lambeq () {
  1923.     BOOLEAN search;
  1924.     double xmin, xmax, ymin, ymax, dummy, radius;
  1925.  
  1926.     gmt_set_spherical ();    /* PW: Force spherical for now */
  1927.  
  1928.     forward = (PFI)lambeq;        inverse = (PFI)ilambeq;
  1929.     if (project_info.units_pr_degree) {
  1930.         vlambeq (0.0, 90.0);
  1931.         lambeq (0.0, fabs(project_info.pars[3]), &dummy, &radius);
  1932.         project_info.x_scale = project_info.y_scale = fabs (project_info.pars[2] / radius);
  1933.     }
  1934.     else
  1935.         project_info.x_scale = project_info.y_scale = project_info.pars[2];
  1936.     vlambeq (project_info.pars[0], project_info.pars[1]);
  1937.  
  1938.     if (fabs (project_info.pars[1]) == 90.0) {
  1939.         project_info.polar = TRUE;
  1940.         project_info.north_pole    = (project_info.pars[1] == 90.0);
  1941.     }
  1942.     if (!project_info.region) {    /* Rectangular box given */
  1943.         (*forward) (project_info.w, project_info.s, &xmin, &ymin);
  1944.         (*forward) (project_info.e, project_info.n, &xmax, &ymax);
  1945.                 
  1946.         outside = (PFI) rect_outside2;
  1947.         crossing = (PFI) rect_crossing;
  1948.         overlap = (PFI) rect_overlap;
  1949.         map_clip = (PFI) rect_clip;
  1950.         left_edge = (PFD) left_rect;
  1951.         right_edge = (PFD) right_rect;
  1952.         frame_info.check_side = !gmtdefs.oblique_anotation;
  1953.         frame_info.horizontal = (fabs (project_info.pars[1]) < 30.0 && fabs (project_info.n - project_info.s) < 30.0);
  1954.         search = TRUE;
  1955.     }
  1956.     else {
  1957.         if (project_info.polar && (project_info.n - project_info.s) < 180.0) {    /* Polar aspect */
  1958.             if (!project_info.north_pole && project_info.s == -90.0) project_info.edge[0] = FALSE;
  1959.             if (project_info.north_pole && project_info.n == 90.0) project_info.edge[2] = FALSE;
  1960.             if ((fabs (project_info.w - project_info.e) == 360.0 || project_info.w == project_info.e)) project_info.edge[1] = project_info.edge[3] = FALSE;
  1961.             outside = (PFI) polar_outside;
  1962.             crossing = (PFI) wesn_crossing;
  1963.             overlap = (PFI) wesn_overlap;
  1964.             map_clip = (PFI) wesn_clip;
  1965.             frame_info.horizontal = TRUE;
  1966.             gmtdefs.n_lat_nodes = 2;
  1967.             xy_search (&xmin, &xmax, &ymin, &ymax);
  1968.         }
  1969.         else {    /* Global view only */
  1970.             frame_info.anot_int[0] = frame_info.anot_int[1] = 0.0;    /* No annotations for global mode */
  1971.             frame_info.frame_int[0] = frame_info.frame_int[1] = 0.0;    /* No tickmarks for global mode */
  1972.             project_info.w = 0.0;
  1973.             project_info.e = 360.0;
  1974.             project_info.s = -90.0;
  1975.             project_info.n = 90.0;
  1976.             xmin = ymin = -d_sqrt (2.0) * EQ_RAD;
  1977.             xmax = ymax = -xmin;
  1978.             outside = (PFI) radial_outside;
  1979.             crossing = (PFI) radial_crossing;
  1980.             overlap = (PFI) radial_overlap;
  1981.             map_clip = (PFI) radial_clip;
  1982.             gmtdefs.basemap_type = 1;
  1983.         }
  1984.         search = FALSE;
  1985.         left_edge = (PFD) left_circle;
  1986.         right_edge = (PFD) right_circle;
  1987.     }
  1988.                 
  1989.     map_setinfo (xmin, xmax, ymin, ymax, project_info.pars[2]);
  1990.     project_info.r = 0.5 * project_info.xmax;
  1991.         
  1992.     return (search);
  1993. }
  1994.  
  1995. int vlambeq (lon0, lat0)
  1996. double lon0, lat0; {
  1997.     /* Set up Lambert Azimuthal Equal-Area projection */
  1998.     
  1999.     project_info.central_meridian = lon0;
  2000.     project_info.pole = lat0;
  2001.     project_info.sinp = sin (lat0 * D2R);
  2002.     project_info.cosp = cos (lat0 * D2R);
  2003. }
  2004.  
  2005. int lambeq (lon, lat, x, y)
  2006. double lon, lat, *x, *y; {
  2007.     /* Convert lon/lat to Lambert Azimuthal Equal-Area x/y */
  2008.     double k, dlon, tmp;
  2009.     
  2010.     while ((lon - project_info.central_meridian) < -180.0) lon += 360.0;
  2011.     while ((lon - project_info.central_meridian) > 180.0) lon -= 360.0;
  2012.     dlon = (lon - project_info.central_meridian) * D2R;
  2013.     lat *= D2R;
  2014.     
  2015.     tmp = 1.0 + project_info.sinp * sin (lat) + project_info.cosp * cos (lat) * cos (dlon);
  2016.     if (tmp > 0.0) {
  2017.         k = d_sqrt (2.0 / tmp);
  2018.         *x = EQ_RAD * k * cos (lat) * sin (dlon);
  2019.         *y = EQ_RAD * k * (project_info.cosp * sin (lat) - project_info.sinp * cos (lat) * cos (dlon));
  2020.     }
  2021.     else
  2022.         *x = *y = -MAXDOUBLE;
  2023. }
  2024.  
  2025. int ilambeq (lon, lat, x, y)
  2026. double *lon, *lat, x, y; {
  2027.     /* Convert Lambert Azimuthal Equal-Area x/yto lon/lat */
  2028.     double rho, c;
  2029.     
  2030.     rho = hypot (x, y);
  2031.     c = 2.0 * d_asin (0.5 * rho / EQ_RAD);
  2032.     
  2033.     if (rho == 0.0) {
  2034.         *lat = project_info.pole;
  2035.         *lon = project_info.central_meridian;
  2036.     }
  2037.     else {
  2038.         *lat = d_asin (cos (c) * project_info.sinp + (y * sin (c) * project_info.cosp / rho)) * R2D;
  2039.         if (project_info.pole == 90.0)
  2040.             *lon = project_info.central_meridian + R2D * d_atan2 (x, -y);
  2041.         else if (project_info.pole == -90.0)
  2042.             *lon = project_info.central_meridian + R2D * d_atan2 (x, y);
  2043.         else
  2044.             *lon = project_info.central_meridian +
  2045.                 R2D * d_atan2 (x * sin (c), (rho * project_info.cosp * cos (c) - y * project_info.sinp * sin (c)));
  2046.     }
  2047. }
  2048.  
  2049. /*
  2050.  *    TRANSFORMATION ROUTINES FOR THE ORTHOGRAPHIC PROJECTION
  2051.  */
  2052.  
  2053. int map_init_ortho () {
  2054.     BOOLEAN search;
  2055.     double xmin, xmax, ymin, ymax, dummy, radius;
  2056.  
  2057.     gmt_set_spherical ();    /* PW: Force spherical for now */
  2058.  
  2059.     if (project_info.units_pr_degree) {
  2060.         vortho (0.0, 90.0);
  2061.         ortho (0.0, fabs(project_info.pars[3]), &dummy, &radius);
  2062.         project_info.x_scale = project_info.y_scale = fabs (project_info.pars[2] / radius);
  2063.     }
  2064.     else
  2065.         project_info.x_scale = project_info.y_scale = project_info.pars[2];
  2066.                 
  2067.     vortho (project_info.pars[0], project_info.pars[1]);
  2068.     forward = (PFI)ortho;        inverse = (PFI)iortho;
  2069.  
  2070.     if (fabs (project_info.pars[1]) == 90.0) {
  2071.         project_info.polar = TRUE;
  2072.         project_info.north_pole    = (project_info.pars[1] == 90.0);
  2073.     }
  2074.     
  2075.     if (!project_info.region) {    /* Rectangular box given */
  2076.         (*forward) (project_info.w, project_info.s, &xmin, &ymin);
  2077.         (*forward) (project_info.e, project_info.n, &xmax, &ymax);
  2078.                 
  2079.         outside = (PFI) rect_outside2;
  2080.         crossing = (PFI) rect_crossing;
  2081.         overlap = (PFI) rect_overlap;
  2082.         map_clip = (PFI) rect_clip;
  2083.         left_edge = (PFD) left_rect;
  2084.         right_edge = (PFD) right_rect;
  2085.         frame_info.check_side = !gmtdefs.oblique_anotation;
  2086.         frame_info.horizontal = (fabs (project_info.pars[1]) < 30.0 && fabs (project_info.n - project_info.s) < 30.0);
  2087.         search = TRUE;
  2088.     }
  2089.     else {
  2090.         if (project_info.polar) {    /* Polar aspect */
  2091.             if (!project_info.north_pole && project_info.s == -90.0) project_info.edge[0] = FALSE;
  2092.             if (project_info.north_pole && project_info.n == 90.0) project_info.edge[2] = FALSE;
  2093.             if ((fabs (project_info.w - project_info.e) == 360.0 || project_info.w == project_info.e)) project_info.edge[1] = project_info.edge[3] = FALSE;
  2094.             outside = (PFI) polar_outside;
  2095.             crossing = (PFI) wesn_crossing;
  2096.             overlap = (PFI) wesn_overlap;
  2097.             map_clip = (PFI) wesn_clip;
  2098.             frame_info.horizontal = TRUE;
  2099.             gmtdefs.n_lat_nodes = 2;
  2100.             xy_search (&xmin, &xmax, &ymin, &ymax);
  2101.         }
  2102.         else {    /* Global view only */
  2103.             frame_info.anot_int[0] = frame_info.anot_int[1] = 0.0;    /* No annotations for global mode */
  2104.             frame_info.frame_int[0] = frame_info.frame_int[1] = 0.0;    /* No tickmarks for global mode */
  2105.             project_info.w = 0.0;
  2106.             project_info.e = 360.0;
  2107.             project_info.s = -90.0;
  2108.             project_info.n = 90.0;
  2109.             xmin = ymin = -EQ_RAD;
  2110.             xmax = ymax = -xmin;
  2111.             outside = (PFI) radial_outside;
  2112.             crossing = (PFI) radial_crossing;
  2113.             overlap = (PFI) radial_overlap;
  2114.             map_clip = (PFI) radial_clip;
  2115.             gmtdefs.basemap_type = 1;
  2116.         }
  2117.         search = FALSE;
  2118.         left_edge = (PFD) left_circle;
  2119.         right_edge = (PFD) right_circle;
  2120.     }
  2121.                 
  2122.     map_setinfo (xmin, xmax, ymin, ymax, project_info.pars[2]);
  2123.     project_info.r = 0.5 * project_info.xmax;
  2124.         
  2125.     return (search);
  2126. }
  2127.  
  2128. int vortho (lon0, lat0)
  2129. double lon0, lat0; {
  2130.     /* Set up Orthographic projection */
  2131.     
  2132.     project_info.central_meridian = lon0;
  2133.     project_info.pole = lat0;
  2134.     project_info.sinp = sin (lat0 * D2R);
  2135.     project_info.cosp = cos (lat0 * D2R);
  2136. }
  2137.  
  2138. int ortho (lon, lat, x, y)
  2139. double lon, lat, *x, *y; {
  2140.     /* Convert lon/lat to Orthographic x/y */
  2141.     double dlon;
  2142.     
  2143.     while ((lon - project_info.central_meridian) < -180.0) lon += 360.0;
  2144.     while ((lon - project_info.central_meridian) > 180.0) lon -= 360.0;
  2145.     dlon = (lon - project_info.central_meridian) * D2R;
  2146.     lat *= D2R;
  2147.     
  2148.     *x = EQ_RAD * cos (lat) * sin (dlon);
  2149.     *y = EQ_RAD * (project_info.cosp * sin (lat) - project_info.sinp * cos (lat) * cos (dlon));
  2150. }
  2151.  
  2152. int iortho (lon, lat, x, y)
  2153. double *lon, *lat, x, y; {
  2154.     /* Convert Orthographic x/yto lon/lat */
  2155.     double rho, c;
  2156.     
  2157.     rho = hypot (x, y);
  2158.     c = d_asin (rho / EQ_RAD);
  2159.     
  2160.     if (rho == 0.0) {
  2161.         *lat = project_info.pole;
  2162.         *lon = project_info.central_meridian;
  2163.     }
  2164.     else {
  2165.         *lat = d_asin (cos (c) * project_info.sinp + (y * sin (c) * project_info.cosp / rho)) * R2D;
  2166.         if (project_info.pole == 90.0)
  2167.             *lon = project_info.central_meridian + R2D * d_atan2 (x, -y);
  2168.         else if (project_info.pole == -90.0)
  2169.             *lon = project_info.central_meridian + R2D * d_atan2 (x, y);
  2170.         else
  2171.             *lon = project_info.central_meridian +
  2172.                 R2D * d_atan2 (x * sin (c), (rho * project_info.cosp * cos (c) - y * project_info.sinp * sin (c)));
  2173.     }
  2174. }
  2175.  
  2176. /*
  2177.  *    TRANSFORMATION ROUTINES FOR THE AZIMUTHAL EQUIDISTANT PROJECTION
  2178.  */
  2179.  
  2180. int map_init_azeqdist () {
  2181.     BOOLEAN search;
  2182.     double xmin, xmax, ymin, ymax, dummy, radius;
  2183.  
  2184.     gmt_set_spherical ();    /* PW: Force spherical for now */
  2185.  
  2186.     if (project_info.units_pr_degree) {
  2187.         vazeqdist (0.0, 90.0);
  2188.         azeqdist (0.0, project_info.pars[3], &dummy, &radius);
  2189.         if (radius == 0.0) radius = M_PI * EQ_RAD;
  2190.         project_info.x_scale = project_info.y_scale = fabs (project_info.pars[2] / radius);
  2191.     }
  2192.     else
  2193.         project_info.x_scale = project_info.y_scale = project_info.pars[2];
  2194.                 
  2195.     vazeqdist (project_info.pars[0], project_info.pars[1]);
  2196.     forward = (PFI)azeqdist;        inverse = (PFI)iazeqdist;
  2197.  
  2198.     if (fabs (project_info.pars[1]) == 90.0) {
  2199.         project_info.polar = TRUE;
  2200.         project_info.north_pole    = (project_info.pars[1] == 90.0);
  2201.     }
  2202.     
  2203.     if (!project_info.region) {    /* Rectangular box given */
  2204.         (*forward) (project_info.w, project_info.s, &xmin, &ymin);
  2205.         (*forward) (project_info.e, project_info.n, &xmax, &ymax);
  2206.                 
  2207.         outside = (PFI) rect_outside;
  2208.         crossing = (PFI) rect_crossing;
  2209.         overlap = (PFI) rect_overlap;
  2210.         map_clip = (PFI) rect_clip;
  2211.         left_edge = (PFD) left_rect;
  2212.         right_edge = (PFD) right_rect;
  2213.         frame_info.check_side = !gmtdefs.oblique_anotation;
  2214.         frame_info.horizontal = (fabs (project_info.pars[1]) < 60.0 && fabs (project_info.n - project_info.s) < 30.0);
  2215.         search = TRUE;
  2216.     }
  2217.     else {
  2218.         if (project_info.polar && (project_info.n - project_info.s) < 180.0) {    /* Polar aspect */
  2219.             if (!project_info.north_pole && project_info.s == -90.0) project_info.edge[0] = FALSE;
  2220.             if (project_info.north_pole && project_info.n == 90.0) project_info.edge[2] = FALSE;
  2221.             if ((fabs (project_info.w - project_info.e) == 360.0 || project_info.w == project_info.e)) project_info.edge[1] = project_info.edge[3] = FALSE;
  2222.             outside = (PFI) polar_outside;
  2223.             crossing = (PFI) wesn_crossing;
  2224.             overlap = (PFI) wesn_overlap;
  2225.             map_clip = (PFI) wesn_clip;
  2226.             frame_info.horizontal = TRUE;
  2227.             gmtdefs.n_lat_nodes = 2;
  2228.             xy_search (&xmin, &xmax, &ymin, &ymax);
  2229.         }
  2230.         else {    /* Global view only, force wesn = 0/360/-90/90  */
  2231.             frame_info.anot_int[0] = frame_info.anot_int[1] = 0.0;        /* No annotations for global mode */
  2232.             frame_info.frame_int[0] = frame_info.frame_int[1] = 0.0;    /* No tickmarks for global mode */
  2233.             project_info.w = 0.0;
  2234.             project_info.e = 360.0;
  2235.             project_info.s = -90.0;
  2236.             project_info.n = 90.0;
  2237.             xmin = ymin = -M_PI * EQ_RAD;
  2238.             xmax = ymax = -xmin;
  2239.             outside = (PFI) eqdist_outside;
  2240.             crossing = (PFI) eqdist_crossing;
  2241.             overlap = (PFI) radial_overlap;
  2242.             map_clip = (PFI) radial_clip;
  2243.             gmtdefs.basemap_type = 1;
  2244.         }
  2245.         search = FALSE;
  2246.         left_edge = (PFD) left_circle;
  2247.         right_edge = (PFD) right_circle;
  2248.     }
  2249.                 
  2250.     map_setinfo (xmin, xmax, ymin, ymax, project_info.pars[2]);
  2251.     project_info.r = 0.5 * project_info.xmax;
  2252.         
  2253.     return (search);
  2254. }
  2255.  
  2256. int vazeqdist (lon0, lat0)
  2257. double lon0, lat0; {
  2258.     /* Set up azimuthal equidistant projection */
  2259.     
  2260.     project_info.central_meridian = lon0;
  2261.     project_info.pole = lat0;
  2262.     project_info.sinp = sin (lat0 * D2R);
  2263.     project_info.cosp = cos (lat0 * D2R);
  2264. }
  2265.  
  2266. int azeqdist (lon, lat, x, y)
  2267. double lon, lat, *x, *y; {
  2268.     /* Convert lon/lat to azimuthal equidistant x/y */
  2269.     double k, dlon, cc, c, clat, clon, slat;
  2270.     
  2271.     while ((lon - project_info.central_meridian) < -180.0) lon += 360.0;
  2272.     while ((lon - project_info.central_meridian) > 180.0) lon -= 360.0;
  2273.     dlon = (lon - project_info.central_meridian) * D2R;
  2274.     lat *= D2R;
  2275.     slat = sin (lat);    clat = cos (lat);    clon = cos (dlon);
  2276.     
  2277.     cc = project_info.sinp * slat + project_info.cosp * clat * clon;
  2278.     if (fabs (cc) >= 1.0)
  2279.         *x = *y = 0.0;
  2280.     else {
  2281.         c = d_acos (cc);
  2282.         k = EQ_RAD * c / sin (c);
  2283.         *x = k * clat * sin (dlon);
  2284.         *y = k * (project_info.cosp * slat - project_info.sinp * clat * clon);
  2285.     }
  2286. }
  2287.  
  2288. int iazeqdist (lon, lat, x, y)
  2289. double *lon, *lat, x, y; {
  2290.     /* Convert azimuthal equidistant x/yto lon/lat */
  2291.     double rho, c, sin_c, cos_c;
  2292.     
  2293.     rho = hypot (x, y);
  2294.     
  2295.     if (rho == 0.0) {
  2296.         *lat = project_info.pole;
  2297.         *lon = project_info.central_meridian;
  2298.     }
  2299.     else {
  2300.         c = rho / EQ_RAD;
  2301.         sin_c = sin (c);
  2302.         cos_c = cos (c);
  2303.         *lat = d_asin (cos_c * project_info.sinp + (y * sin_c * project_info.cosp / rho)) * R2D;
  2304.         if (project_info.pole == 90.0)
  2305.             *lon = project_info.central_meridian + R2D * d_atan2 (x, -y);
  2306.         else if (project_info.pole == -90.0)
  2307.             *lon = project_info.central_meridian + R2D * d_atan2 (x, y);
  2308.         else
  2309.             *lon = project_info.central_meridian +
  2310.                 R2D * d_atan2 (x * sin_c, (rho * project_info.cosp * cos_c - y * project_info.sinp * sin_c));
  2311.         if ((*lon) <= -180) (*lon) += 360.0;
  2312.     }
  2313. }
  2314.  
  2315. /*
  2316.  *    TRANSFORMATION ROUTINES FOR THE MOLLWEIDE EQUAL AREA PROJECTION
  2317.  */
  2318.  
  2319. int map_init_mollweide () {
  2320.     int search;
  2321.     double xmin, xmax, ymin, ymax, y, dummy;
  2322.  
  2323.     gmt_set_spherical ();    /* PW: Force spherical for now */
  2324.  
  2325.     if (project_info.pars[0] < 0.0) project_info.pars[0] += 360.0;
  2326.     gmt_world_map = (fabs (project_info.w - project_info.e) == 360.0);
  2327.     if (project_info.gave_map_width) project_info.pars[1] /= (M_PR_DEG * fabs (project_info.w - project_info.e));
  2328.     if (project_info.units_pr_degree) project_info.pars[1] /= M_PR_DEG;
  2329.     project_info.x_scale = project_info.y_scale = M_PI * project_info.pars[1] / sqrt (8.0);
  2330.     vmollweide (project_info.pars[0], project_info.pars[1]);
  2331.     if (project_info.s == -90.0) project_info.edge[0] = FALSE;
  2332.     if (project_info.n == 90.0) project_info.edge[2] = FALSE;
  2333.     
  2334.     if (project_info.region) {
  2335.         y = (project_info.s * project_info.n <= 0.0) ? 0.0 : MIN (fabs(project_info.s), fabs(project_info.n));
  2336.         mollweide (project_info.w, y, &xmin, &dummy);
  2337.         mollweide (project_info.e, y, &xmax, &dummy);
  2338.         mollweide (project_info.central_meridian, project_info.s, &dummy, &ymin);
  2339.         mollweide (project_info.central_meridian, project_info.n, &dummy, &ymax);
  2340.         outside = (PFI) wesn_outside;
  2341.         crossing = (PFI) wesn_crossing;
  2342.         overlap = (PFI) wesn_overlap;
  2343.         map_clip = (PFI) wesn_clip;
  2344.         left_edge = (PFD) left_ellipse;
  2345.         right_edge = (PFD) right_ellipse;
  2346.         frame_info.horizontal = 2;
  2347.         project_info.polar = TRUE;
  2348.         search = FALSE;
  2349.     }
  2350.     else {
  2351.         mollweide (project_info.w, project_info.s, &xmin, &ymin);
  2352.         mollweide (project_info.e, project_info.n, &xmax, &ymax);
  2353.         outside = (PFI) rect_outside;
  2354.         crossing = (PFI) rect_crossing;
  2355.         overlap = (PFI) rect_overlap;
  2356.         map_clip = (PFI) rect_clip;
  2357.         left_edge = (PFD) left_rect;
  2358.         right_edge = (PFD) right_rect;
  2359.         frame_info.check_side = TRUE;
  2360.         search = TRUE;
  2361.     }
  2362.     map_setxy (xmin, xmax, ymin, ymax);
  2363.     forward = (PFI)mollweide;        inverse = (PFI)imollweide;
  2364.     gmtdefs.basemap_type = 1;
  2365.     return (search);
  2366. }
  2367.  
  2368. int vmollweide (lon0, scale)
  2369. double lon0, scale; {
  2370.     /* Set up Mollweide Equal-Area projection */
  2371.     
  2372.     gmt_check_R_J (&lon0);
  2373.     project_info.central_meridian = lon0;
  2374.     project_info.w_x = EQ_RAD * d_sqrt (8.0) / M_PI;
  2375.     project_info.w_y = EQ_RAD * M_SQRT2;
  2376.     project_info.w_r = 0.25 * (scale * M_PR_DEG * 360.0);    /* = Half the minor axis */
  2377. }
  2378.  
  2379. int mollweide (lon, lat, x, y)
  2380. double lon, lat, *x, *y; {
  2381.     /* Convert lon/lat to Mollweide Equal-Area x/y */
  2382.     int i = 0;
  2383.     double phi, delta;
  2384.     
  2385.     if (fabs(lat) == 90.0) {    /* Special case */
  2386.         *x = 0.0;
  2387.         *y = copysign (project_info.w_y, lat);
  2388.         return;
  2389.     }
  2390.     
  2391.     while ((lon - project_info.central_meridian) < -180.0) lon += 360.0;
  2392.     while ((lon - project_info.central_meridian) > 180.0) lon -= 360.0;
  2393.     lat *= D2R;
  2394.     
  2395.     phi = lat;
  2396.     do {
  2397.         i++;
  2398.         delta = -(phi + sin (phi) - M_PI * sin (lat)) / (1.0 + cos (phi));
  2399.         phi += delta;
  2400.     }
  2401.     while (fabs (delta) > 1.0e-7 && i < 100);
  2402.     phi *= 0.5;
  2403.     *x = project_info.w_x * (lon - project_info.central_meridian) * D2R * cos (phi);
  2404.     *y = project_info.w_y * sin (phi);
  2405. }
  2406.  
  2407. int imollweide (lon, lat, x, y)
  2408. double *lon, *lat, x, y; {
  2409.     /* Convert Mollweide Equal-Area x/y to lon/lat */
  2410.     double phi, phi2;
  2411.     
  2412.     phi = d_asin (y / project_info.w_y);
  2413.     phi2 = 2.0 * phi;
  2414.     *lat = R2D * d_asin ((phi2 + sin (phi2)) / M_PI);
  2415.     *lon = project_info.central_meridian + R2D * (x / (project_info.w_x * cos (phi)));
  2416. }
  2417.  
  2418. /*
  2419.  *    TRANSFORMATION ROUTINES FOR THE HAMMER-AITOFF EQUAL AREA PROJECTION
  2420.  */
  2421.  
  2422. int map_init_hammer () {
  2423.     int search;
  2424.     double xmin, xmax, ymin, ymax, x, y, dummy;
  2425.  
  2426.     gmt_set_spherical ();    /* PW: Force spherical for now */
  2427.  
  2428.     if (project_info.pars[0] < 0.0) project_info.pars[0] += 360.0;
  2429.     gmt_world_map = (fabs (project_info.w - project_info.e) == 360.0);
  2430.     if (project_info.gave_map_width) project_info.pars[1] /= (M_PR_DEG * fabs (project_info.w - project_info.e));
  2431.     if (project_info.units_pr_degree) project_info.pars[1] /= M_PR_DEG;
  2432.     project_info.x_scale = project_info.y_scale = 0.5 * M_PI * project_info.pars[1] / M_SQRT2;
  2433.     vhammer (project_info.pars[0], project_info.pars[1]);
  2434.     if (project_info.s == -90.0) project_info.edge[0] = FALSE;
  2435.     if (project_info.n == 90.0) project_info.edge[2] = FALSE;
  2436.     
  2437.     if (project_info.region) {
  2438.         y = (project_info.s * project_info.n <= 0.0) ? 0.0 : MIN (fabs(project_info.s), fabs(project_info.n));
  2439.         x = (fabs (project_info.w - project_info.central_meridian) > fabs (project_info.e - project_info.central_meridian)) ? project_info.w : project_info.e;
  2440.         hammer (project_info.w, y, &xmin, &dummy);
  2441.         hammer (project_info.e, y, &xmax, &dummy);
  2442.         hammer (x, project_info.s, &dummy, &ymin);
  2443.         hammer (x, project_info.n, &dummy, &ymax);
  2444.         outside = (PFI) wesn_outside;
  2445.         crossing = (PFI) wesn_crossing;
  2446.         overlap = (PFI) wesn_overlap;
  2447.         map_clip = (PFI) wesn_clip;
  2448.         left_edge = (PFD) left_ellipse;
  2449.         right_edge = (PFD) right_ellipse;
  2450.         frame_info.horizontal = 2;
  2451.         project_info.polar = TRUE;
  2452.         search = FALSE;
  2453.     }
  2454.     else {
  2455.         hammer (project_info.w, project_info.s, &xmin, &ymin);
  2456.         hammer (project_info.e, project_info.n, &xmax, &ymax);
  2457.         outside = (PFI) rect_outside;
  2458.         crossing = (PFI) rect_crossing;
  2459.         overlap = (PFI) rect_overlap;
  2460.         map_clip = (PFI) rect_clip;
  2461.         left_edge = (PFD) left_rect;
  2462.         right_edge = (PFD) right_rect;
  2463.         frame_info.check_side = TRUE;
  2464.         search = TRUE;
  2465.     }
  2466.     map_setxy (xmin, xmax, ymin, ymax);
  2467.     forward = (PFI)hammer;        inverse = (PFI)ihammer;
  2468.     gmtdefs.basemap_type = 1;
  2469.     return (search);
  2470. }
  2471.  
  2472. int vhammer (lon0, scale)
  2473. double lon0, scale; {
  2474.     /* Set up Hammer-Aitoff Equal-Area projection */
  2475.     
  2476.     gmt_check_R_J (&lon0);
  2477.     project_info.central_meridian = lon0;
  2478.     project_info.w_r = 0.25 * (scale * M_PR_DEG * 360.0);    /* = Half the minor axis */
  2479. }
  2480.  
  2481. int hammer (lon, lat, x, y)
  2482. double lon, lat, *x, *y; {
  2483.     /* Convert lon/lat to Hammer-Aitoff Equal-Area x/y */
  2484.     double clat, D;
  2485.     
  2486.     if (fabs(lat) == 90.0) {    /* Save time */
  2487.         *x = 0.0;
  2488.         *y = M_SQRT2 * copysign (EQ_RAD, lat);
  2489.         return;
  2490.     }
  2491.     
  2492.     while ((lon - project_info.central_meridian) < -180.0) lon += 360.0;
  2493.     while ((lon - project_info.central_meridian) > 180.0) lon -= 360.0;
  2494.     lon -= project_info.central_meridian;
  2495.     lat *= D2R;
  2496.     clat = cos (lat);
  2497.     lon *= (0.5 * D2R);
  2498.     
  2499.     D = EQ_RAD * sqrt (2.0 / (1.0 + clat * cos (lon)));
  2500.     *x = 2.0 * D * clat * sin (lon);
  2501.     *y = D * sin (lat);
  2502. }
  2503.  
  2504. int ihammer (lon, lat, x, y)
  2505. double *lon, *lat, x, y; {
  2506.     /* Convert Hammer_Aitoff Equal-Area x/y to lon/lat */
  2507.     double rho, c, angle;
  2508.     
  2509.     x *= 0.5;
  2510.     rho = hypot (x, y);
  2511.     
  2512.     if (rho == 0.0) {
  2513.         *lat = 0.0;
  2514.         *lon = project_info.central_meridian;
  2515.     }
  2516.     else {
  2517.         c = 2.0 * d_asin (0.5 * rho / EQ_RAD);
  2518.         *lat = d_asin (y * sin (c) / rho) * R2D;
  2519.         if (fabs (c - M_PI_2) < SMALL)
  2520.             angle = (x == 0.0) ? 0.0 : copysign (180.0, x);
  2521.         else
  2522.             angle = 2.0 * R2D * atan (x * tan (c) / rho);
  2523.         *lon = project_info.central_meridian + angle;
  2524.     }
  2525. }
  2526.  
  2527. /*
  2528.  *    TRANSFORMATION ROUTINES FOR THE WINKEL-TRIPEL MODIFIED AZIMUTHAL PROJECTION
  2529.  */
  2530.  
  2531. int map_init_winkel () {
  2532.     int search;
  2533.     double xmin, xmax, ymin, ymax, x, y, dummy;
  2534.  
  2535.     gmt_set_spherical ();    /* PW: Force spherical for now */
  2536.  
  2537.     if (project_info.pars[0] < 0.0) project_info.pars[0] += 360.0;
  2538.     gmt_world_map = (fabs (project_info.w - project_info.e) == 360.0);
  2539.     if (project_info.gave_map_width) project_info.pars[1] /= (M_PR_DEG * fabs (project_info.w - project_info.e));
  2540.     if (project_info.units_pr_degree) project_info.pars[1] /= M_PR_DEG;
  2541.     vwinkel (project_info.pars[0], project_info.pars[1]);
  2542.     project_info.x_scale = project_info.y_scale = 2.0 * project_info.pars[1] / (1.0 + project_info.r_cosphi1);
  2543.     
  2544.     if (project_info.region) {
  2545.         y = (project_info.s * project_info.n <= 0.0) ? 0.0 : MIN (fabs(project_info.s), fabs(project_info.n));
  2546.         x = (fabs (project_info.w - project_info.central_meridian) > fabs (project_info.e - project_info.central_meridian)) ? project_info.w : project_info.e;
  2547.         winkel (project_info.w, y, &xmin, &dummy);
  2548.         winkel (project_info.e, y, &xmax, &dummy);
  2549.         winkel (x, project_info.s, &dummy, &ymin);
  2550.         winkel (x, project_info.n, &dummy, &ymax);
  2551.         outside = (PFI) wesn_outside;
  2552.         crossing = (PFI) wesn_crossing;
  2553.         overlap = (PFI) wesn_overlap;
  2554.         map_clip = (PFI) wesn_clip;
  2555.         left_edge = (PFD) left_winkel;
  2556.         right_edge = (PFD) right_winkel;
  2557.         frame_info.horizontal = 2;
  2558.         search = FALSE;
  2559.     }
  2560.     else {
  2561.         winkel (project_info.w, project_info.s, &xmin, &ymin);
  2562.         winkel (project_info.e, project_info.n, &xmax, &ymax);
  2563.         outside = (PFI) rect_outside;
  2564.         crossing = (PFI) rect_crossing;
  2565.         overlap = (PFI) rect_overlap;
  2566.         map_clip = (PFI) rect_clip;
  2567.         left_edge = (PFD) left_rect;
  2568.         right_edge = (PFD) right_rect;
  2569.         frame_info.check_side = TRUE;
  2570.         search = TRUE;
  2571.     }
  2572.     map_setxy (xmin, xmax, ymin, ymax);
  2573.     forward = (PFI)winkel;        inverse = (PFI)iwinkel;
  2574.     gmtdefs.basemap_type = 1;
  2575.     return (search);
  2576. }
  2577.  
  2578. int vwinkel (lon0, scale)
  2579. double lon0, scale; {
  2580.     /* Set up Winkel Tripel projection */
  2581.     
  2582.     gmt_check_R_J (&lon0);
  2583.     project_info.r_cosphi1 = cos (50.467 * D2R);
  2584.     project_info.central_meridian = lon0;
  2585.     project_info.w_r = 0.25 * (scale * M_PR_DEG * 360.0);    /* = Half the minor axis */
  2586. }
  2587.  
  2588. int winkel (lon, lat, x, y)
  2589. double lon, lat, *x, *y; {
  2590.     /* Convert lon/lat to Winkel Tripel x/y */
  2591.     double C, D, x1, x2, y1, y2;
  2592.     
  2593.     while ((lon - project_info.central_meridian) < -180.0) lon += 360.0;
  2594.     while ((lon - project_info.central_meridian) > 180.0) lon -= 360.0;
  2595.     lon -= project_info.central_meridian;
  2596.     lat *= D2R;
  2597.     lon *= (0.5 * D2R);
  2598.     
  2599.     /* Fist find Aitoff x/y */
  2600.     
  2601.     D = d_acos (cos (lat) * cos (lon));
  2602.     if (D == 0.0)
  2603.         x1 = y1 = 0.0;
  2604.     else {
  2605.         C = sin (lat) / sin (D);
  2606.         D *= EQ_RAD;
  2607.         x1 = copysign (2.0 * D * d_sqrt (1.0 - C * C), lon);
  2608.         y1 = D * C;
  2609.     }
  2610.     
  2611.     /* Then get equirectangular projection */
  2612.     
  2613.     x2 = 2.0 * EQ_RAD * lon * project_info.r_cosphi1;
  2614.     y2 = EQ_RAD * lat;
  2615.     
  2616.     /* Winkler is the average value */
  2617.     
  2618.     *x = 0.5 * (x1 + x2);
  2619.     *y = 0.5 * (y1 + y2);
  2620. }
  2621.  
  2622. int iwinkel (lon, lat, x, y)
  2623. double *lon, *lat, x, y; {
  2624.     /* Convert Winkel Tripel x/y to lon/lat */
  2625.     /* Only works if point is on perimeter */
  2626.     
  2627.     int n_iter = 0;
  2628.     double c, phi, phi0, delta;
  2629.     
  2630.     c = 2.0 * y / EQ_RAD;
  2631.     phi = y / EQ_RAD;
  2632.     do {
  2633.         phi0 = phi;
  2634.         phi = phi0 - (phi0 + M_PI_2 * sin (phi0) - c) / (1.0 + M_PI_2 * cos (phi0));
  2635.         delta = fabs (phi - phi0);
  2636.         n_iter++;
  2637.     }
  2638.     while (delta > SMALL && n_iter < 100);
  2639.     *lat = phi * R2D;
  2640.     *lon = project_info.central_meridian + copysign (180.0, x - gmt_half_map_size);
  2641. }
  2642.  
  2643. /*
  2644.  *    TRANSFORMATION ROUTINES FOR THE ECKERT VI PROJECTION
  2645.  */
  2646.  
  2647. int map_init_eckert () {
  2648.     int search;
  2649.     double xmin, xmax, ymin, ymax, y, dummy;
  2650.  
  2651.     gmt_set_spherical ();    /* PW: Force spherical for now */
  2652.  
  2653.     if (project_info.pars[0] < 0.0) project_info.pars[0] += 360.0;
  2654.     gmt_world_map = (fabs (project_info.w - project_info.e) == 360.0);
  2655.     if (project_info.gave_map_width) project_info.pars[1] /= (M_PR_DEG * fabs (project_info.w - project_info.e));
  2656.     if (project_info.units_pr_degree) project_info.pars[1] /= M_PR_DEG;
  2657.     veckert (project_info.pars[0]);
  2658.     project_info.x_scale = project_info.y_scale = 0.5 * project_info.pars[1] * sqrt (2.0 + M_PI);
  2659.     
  2660.     if (project_info.region) {
  2661.         y = (project_info.s * project_info.n <= 0.0) ? 0.0 : MIN (fabs(project_info.s), fabs(project_info.n));
  2662.         eckert (project_info.w, y, &xmin, &dummy);
  2663.         eckert (project_info.e, y, &xmax, &dummy);
  2664.         eckert (project_info.central_meridian, project_info.s, &dummy, &ymin);
  2665.         eckert (project_info.central_meridian, project_info.n, &dummy, &ymax);
  2666.         outside = (PFI) wesn_outside;
  2667.         crossing = (PFI) wesn_crossing;
  2668.         overlap = (PFI) wesn_overlap;
  2669.         map_clip = (PFI) wesn_clip;
  2670.         left_edge = (PFD) left_eckert;
  2671.         right_edge = (PFD) right_eckert;
  2672.         frame_info.horizontal = 2;
  2673.         search = FALSE;
  2674.     }
  2675.     else {
  2676.         eckert (project_info.w, project_info.s, &xmin, &ymin);
  2677.         eckert (project_info.e, project_info.n, &xmax, &ymax);
  2678.         outside = (PFI) rect_outside;
  2679.         crossing = (PFI) rect_crossing;
  2680.         overlap = (PFI) rect_overlap;
  2681.         map_clip = (PFI) rect_clip;
  2682.         left_edge = (PFD) left_rect;
  2683.         right_edge = (PFD) right_rect;
  2684.         frame_info.check_side = TRUE;
  2685.         search = TRUE;
  2686.     }
  2687.     map_setxy (xmin, xmax, ymin, ymax);
  2688.     forward = (PFI)eckert;        inverse = (PFI)ieckert;
  2689.     gmtdefs.basemap_type = 1;
  2690.     return (search);
  2691. }
  2692.  
  2693. int veckert (lon0)
  2694. double lon0; {
  2695.     /* Set up Eckert VI projection */
  2696.     
  2697.     gmt_check_R_J (&lon0);
  2698.     project_info.k_r = EQ_RAD / sqrt (2.0 + M_PI);
  2699.     project_info.k_ir = 1.0 / project_info.k_r;
  2700.     project_info.central_meridian = lon0;
  2701. }
  2702.  
  2703. int eckert (lon, lat, x, y)
  2704. double lon, lat, *x, *y; {
  2705.     int n_iter = 0;
  2706.     double phi, delta, s_lat;
  2707.     /* Convert lon/lat to Eckert VI x/y */
  2708.     
  2709.     while ((lon - project_info.central_meridian) < -180.0) lon += 360.0;
  2710.     while ((lon - project_info.central_meridian) > 180.0) lon -= 360.0;
  2711.     lon -= project_info.central_meridian;
  2712.     lat *= D2R;
  2713.     lon *= D2R;
  2714.     phi = lat;
  2715.     s_lat = sin (lat);
  2716.     do {
  2717.         delta = -(phi + sin (phi) - (1.0 + M_PI_2) * s_lat) / (1.0 + cos (phi));
  2718.         phi += delta;
  2719.     }
  2720.     while (delta > SMALL && n_iter < 100);
  2721.     
  2722.     *x = project_info.k_r * lon * (1.0 + cos (phi));
  2723.     *y = 2.0 * project_info.k_r * phi;
  2724. }
  2725.  
  2726. int ieckert (lon, lat, x, y)
  2727. double *lon, *lat, x, y; {
  2728.     /* Convert Eckert VI x/y to lon/lat */
  2729.     
  2730.     double phi;
  2731.     
  2732.     phi = 0.5 * y * project_info.k_ir;
  2733.     *lat = d_asin ((phi + sin (phi)) / (1.0 + M_PI_2)) * R2D;
  2734.     *lon = project_info.central_meridian + R2D * x * project_info.k_ir / (1.0 + cos (phi));
  2735. }
  2736. /*
  2737.  *    TRANSFORMATION ROUTINES FOR THE ROBINSON PSEUDOCYLIDRICAL PROJECTION
  2738.  */
  2739.  
  2740. int map_init_robinson () {
  2741.     int search;
  2742.     double xmin, xmax, ymin, ymax, y, dummy;
  2743.  
  2744.     gmt_set_spherical ();    /* PW: Force spherical for now */
  2745.  
  2746.     if (project_info.pars[0] < 0.0) project_info.pars[0] += 360.0;
  2747.     gmt_world_map = (fabs (project_info.w - project_info.e) == 360.0);
  2748.     if (project_info.gave_map_width) project_info.pars[1] /= (M_PR_DEG * fabs (project_info.w - project_info.e));
  2749.     if (project_info.units_pr_degree) project_info.pars[1] /= M_PR_DEG;
  2750.     vrobinson (project_info.pars[0]);
  2751.     project_info.x_scale = project_info.y_scale = project_info.pars[1] / 0.8487;
  2752.     
  2753.     if (project_info.region) {
  2754.         y = (project_info.s * project_info.n <= 0.0) ? 0.0 : MIN (fabs(project_info.s), fabs(project_info.n));
  2755.         robinson (project_info.w, y, &xmin, &dummy);
  2756.         robinson (project_info.e, y, &xmax, &dummy);
  2757.         robinson (project_info.central_meridian, project_info.s, &dummy, &ymin);
  2758.         robinson (project_info.central_meridian, project_info.n, &dummy, &ymax);
  2759.         outside = (PFI) wesn_outside;
  2760.         crossing = (PFI) wesn_crossing;
  2761.         overlap = (PFI) wesn_overlap;
  2762.         map_clip = (PFI) wesn_clip;
  2763.         left_edge = (PFD) left_robinson;
  2764.         right_edge = (PFD) right_robinson;
  2765.         frame_info.horizontal = 2;
  2766.         search = FALSE;
  2767.     }
  2768.     else {
  2769.         robinson (project_info.w, project_info.s, &xmin, &ymin);
  2770.         robinson (project_info.e, project_info.n, &xmax, &ymax);
  2771.         outside = (PFI) rect_outside;
  2772.         crossing = (PFI) rect_crossing;
  2773.         overlap = (PFI) rect_overlap;
  2774.         map_clip = (PFI) rect_clip;
  2775.         left_edge = (PFD) left_rect;
  2776.         right_edge = (PFD) right_rect;
  2777.         frame_info.check_side = TRUE;
  2778.         search = TRUE;
  2779.     }
  2780.     map_setxy (xmin, xmax, ymin, ymax);
  2781.     forward = (PFI)robinson;        inverse = (PFI)irobinson;
  2782.     gmtdefs.basemap_type = 1;
  2783.     return (search);
  2784. }
  2785.  
  2786. int vrobinson (lon0)
  2787. double lon0; {
  2788.     /* Set up Robinson projection */
  2789.     int i;
  2790.     FILE *fp;
  2791.     char file[512];
  2792.     
  2793.     gmt_check_R_J (&lon0);
  2794.     project_info.n_cx = 0.8487 * EQ_RAD * D2R;
  2795.     project_info.n_cy = 1.3523 * EQ_RAD;
  2796.     project_info.central_meridian = lon0;
  2797.     
  2798.     sprintf (file, "%s/robinson.table\0", LIBDIR);
  2799.     if ((fp = fopen (file, "r")) == NULL) {
  2800.         fprintf (stderr, "%s: GMT SYNTAX ERROR -Jn -JN OPTION: Could not open interpolation table %s\n", gmt_program, file);
  2801.         exit (-1);
  2802.     }
  2803.     for (i = 0; i < 19; i++) fscanf (fp, "%lf %lf %lf\n", &project_info.n_phi[i], &project_info.n_X[i], &project_info.n_Y[i]);
  2804.     fclose (fp);
  2805. }
  2806.  
  2807. int robinson (lon, lat, x, y)
  2808. double lon, lat, *x, *y; {
  2809.     /* Convert lon/lat to Robinson x/y */
  2810.     double tmp, X, Y;
  2811.     
  2812.     while ((lon - project_info.central_meridian) < -180.0) lon += 360.0;
  2813.     while ((lon - project_info.central_meridian) > 180.0) lon -= 360.0;
  2814.     lon -= project_info.central_meridian;
  2815.     tmp = fabs (lat);
  2816.     
  2817.     intpol (project_info.n_phi, project_info.n_X, 19, 1, &tmp, &X, gmtdefs.interpolant);
  2818.     intpol (project_info.n_phi, project_info.n_Y, 19, 1, &tmp, &Y, gmtdefs.interpolant);
  2819.     *x = project_info.n_cx * X * lon;    /* D2R is in n_cx already */
  2820.     *y = project_info.n_cy * copysign (Y, lat);
  2821. }
  2822.  
  2823. int irobinson (lon, lat, x, y)
  2824. double *lon, *lat, x, y; {
  2825.     /* Convert Robinson x/y to lon/lat */
  2826.     double X, Y;
  2827.     
  2828.     Y = fabs (y / project_info.n_cy);
  2829.     intpol (project_info.n_Y, project_info.n_phi, 19, 1, &Y, lat, gmtdefs.interpolant);
  2830.     intpol (project_info.n_phi, project_info.n_X, 19, 1, lat, &X, gmtdefs.interpolant);
  2831.     
  2832.     *lat = copysign (*lat, y);
  2833.     *lon = x / (project_info.n_cx * X) + project_info.central_meridian;
  2834. }
  2835.  
  2836. /*
  2837.  *    TRANSFORMATION ROUTINES FOR THE SINUSOIDAL EQUAL AREA PROJECTION
  2838.  */
  2839.  
  2840. int map_init_sinusoidal () {
  2841.     int search;
  2842.     double xmin, xmax, ymin, ymax, dummy, y;
  2843.  
  2844.     gmt_set_spherical ();    /* PW: Force spherical for now */
  2845.  
  2846.     if (project_info.pars[0] < 0.0) project_info.pars[0] += 360.0;
  2847.     gmt_world_map = (fabs (project_info.w - project_info.e) == 360.0);
  2848.     if (project_info.gave_map_width) project_info.pars[1] /= (M_PR_DEG * fabs (project_info.w - project_info.e));
  2849.     if (project_info.s == -90.0) project_info.edge[0] = FALSE;
  2850.     if (project_info.n == 90.0) project_info.edge[2] = FALSE;
  2851.     vsinusoidal (project_info.pars[0]);
  2852.     if (project_info.units_pr_degree) project_info.pars[1] /= M_PR_DEG;
  2853.     project_info.x_scale = project_info.y_scale = project_info.pars[1];
  2854.     forward = (PFI)sinusoidal;        inverse = (PFI)isinusoidal;
  2855.     gmtdefs.basemap_type = 1;
  2856.     
  2857.     if (project_info.region) {
  2858.         y = (project_info.s * project_info.n <= 0.0) ? 0.0 : MIN (fabs(project_info.s), fabs(project_info.n));
  2859.         sinusoidal (project_info.central_meridian, project_info.s, &dummy, &ymin);
  2860.         sinusoidal (project_info.central_meridian, project_info.n, &dummy, &ymax);
  2861.         sinusoidal (project_info.w, y, &xmin, &dummy);
  2862.         sinusoidal (project_info.e, y, &xmax, &dummy);
  2863.         outside = (PFI) wesn_outside;
  2864.         crossing = (PFI) wesn_crossing;
  2865.         overlap = (PFI) wesn_overlap;
  2866.         map_clip = (PFI) wesn_clip;
  2867.         left_edge = (PFD) left_sinusoidal;
  2868.         right_edge = (PFD) right_sinusoidal;
  2869.         frame_info.horizontal = 2;
  2870.         project_info.polar = TRUE;
  2871.         search = FALSE;
  2872.     }
  2873.     else {
  2874.         sinusoidal (project_info.w, project_info.s, &xmin, &ymin);
  2875.         sinusoidal (project_info.e, project_info.n, &xmax, &ymax);
  2876.         outside = (PFI) rect_outside;
  2877.         crossing = (PFI) rect_crossing;
  2878.         overlap = (PFI) rect_overlap;
  2879.         map_clip = (PFI) rect_clip;
  2880.         left_edge = (PFD) left_rect;
  2881.         right_edge = (PFD) right_rect;
  2882.         frame_info.check_side = TRUE;
  2883.         search = TRUE;
  2884.     }
  2885.  
  2886.     map_setxy (xmin, xmax, ymin, ymax);
  2887.  
  2888.     return (search);
  2889. }
  2890.  
  2891. int vsinusoidal (lon0)
  2892. double lon0; {
  2893.     /* Set up Sinusiodal projection */
  2894.     
  2895.     gmt_check_R_J (&lon0);
  2896.     project_info.central_meridian = lon0;
  2897. }
  2898.  
  2899. int sinusoidal (lon, lat, x, y)
  2900. double lon, lat, *x, *y; {
  2901.     /* Convert lon/lat to Sinusoidal Equal-Area x/y */
  2902.     
  2903.     lon -= project_info.central_meridian;
  2904.     while (lon < -180.0) lon += 360.0;
  2905.     while (lon > 180.0) lon -= 360.0;
  2906.     
  2907.     lon *= D2R;
  2908.     lat *= D2R;
  2909.     
  2910.     *x = EQ_RAD * lon * cos (lat);
  2911.     *y = EQ_RAD * lat;
  2912. }
  2913.  
  2914. int isinusoidal (lon, lat, x, y)
  2915. double *lon, *lat, x, y; {
  2916.     /* Convert Sinusoidal Equal-Area x/y to lon/lat (not implemented) */
  2917.     *lat = y / EQ_RAD;
  2918.     *lon = ((fabs (fabs (*lat) - M_PI) < SMALL) ? 0.0 : R2D * x / (EQ_RAD * cos (*lat))) + project_info.central_meridian;
  2919.     *lat *= R2D;
  2920. }
  2921.  
  2922. /*
  2923.  *    TRANSFORMATION ROUTINES FOR THE CASSINI PROJECTION
  2924.  */
  2925.  
  2926. int map_init_cassini () {
  2927.     BOOLEAN search;
  2928.     double xmin, xmax, ymin, ymax;
  2929.  
  2930.     vcassini (project_info.pars[0], project_info.pars[1]);
  2931.             
  2932.     forward = (PFI)cassini;        inverse = (PFI)icassini;
  2933.     if (project_info.units_pr_degree) project_info.pars[2] /= M_PR_DEG;
  2934.     project_info.x_scale = project_info.y_scale = project_info.pars[2];
  2935.     gmtdefs.basemap_type = 1;
  2936.  
  2937.     if (project_info.region) {
  2938.         xy_search (&xmin, &xmax, &ymin, &ymax);
  2939.         outside = (PFI) wesn_outside;
  2940.         crossing = (PFI) wesn_crossing;
  2941.         overlap = (PFI) wesn_overlap;
  2942.         map_clip = (PFI) wesn_clip;
  2943.         left_edge = (PFD) left_albers;
  2944.         right_edge = (PFD) right_albers;
  2945.         search = FALSE;
  2946.     }
  2947.     else {
  2948.         cassini (project_info.w, project_info.s, &xmin, &ymin);
  2949.         cassini (project_info.e, project_info.n, &xmax, &ymax);
  2950.         outside = (PFI) rect_outside;
  2951.         crossing = (PFI) rect_crossing;
  2952.         overlap = (PFI) rect_overlap;
  2953.         map_clip = (PFI) rect_clip;
  2954.         left_edge = (PFD) left_rect;
  2955.         right_edge = (PFD) right_rect;
  2956.         frame_info.check_side = TRUE;
  2957.         search = TRUE;
  2958.     }
  2959.                 
  2960.     frame_info.horizontal = TRUE;
  2961.     map_setinfo (xmin, xmax, ymin, ymax, project_info.pars[2]);
  2962.  
  2963.     return (search);
  2964. }
  2965.  
  2966. int vcassini (lon0, lat0)
  2967. double lon0, lat0; {
  2968.     /* Set up Cassini projection */
  2969.     
  2970.     project_info.central_meridian = lon0;
  2971.     project_info.pole = lat0;
  2972.     lat0 *= D2R;
  2973.     
  2974.     project_info.c_M0 = EQ_RAD  * ((1.0 - 0.25 * ECC2 - 0.046875 * ECC4 - 0.01953125 * ECC6) * lat0
  2975.         - (0.375 * ECC2 + 0.09375 * ECC4 + 0.0439453125 * ECC6) * sin (2.0 * lat0)
  2976.         + (0.05859375 * ECC4 + 0.0439453125 * ECC6) * sin (4.0 * lat0)
  2977.         - 0.0113932292 * ECC6 * sin (6.0 * lat0));
  2978. }
  2979.  
  2980. int cassini (lon, lat, x, y)
  2981. double lon, lat, *x, *y; {
  2982.     /* Convert lon/lat to Cassini x/y */
  2983.     
  2984.     double tany, cosy, N, T, A, C, M;
  2985.     
  2986.     while ((lon - project_info.central_meridian) < -180.0) lon += 360.0;
  2987.     while ((lon - project_info.central_meridian) > 180.0) lon -= 360.0;
  2988.     lon -= project_info.central_meridian;
  2989.     lon *= D2R;
  2990.     lat *= D2R;
  2991.     
  2992.     tany = tan (lat);
  2993.     cosy = cos (lat);
  2994.     N = EQ_RAD / sqrt (1.0 - ECC2 * pow (sin (lat), 2.0));
  2995.     T = tany * tany;
  2996.     A = lon * cosy;
  2997.     C = ECC2 * cosy * cosy / (1.0 - ECC2);
  2998.     M = EQ_RAD  * ((1.0 - 0.25 * ECC2 - 0.046875 * ECC4 - 0.01953125 * ECC6) * lat
  2999.         - (0.375 * ECC2 + 0.09375 * ECC4 + 0.0439453125 * ECC6) * sin (2.0 * lat)
  3000.         + (0.05859375 * ECC4 + 0.0439453125 * ECC6) * sin (4.0 * lat)
  3001.         - 0.0113932292 * ECC6 * sin (6.0 * lat));
  3002.     *x = N * (A - T * pow (A, 3.0) / 6.0 - (8.0 - T + 8 * C) * T * pow (A, 5.0) / 120.0);
  3003.     *y = M - project_info.c_M0 + N * tany * (0.5 * A * A + (5.0 - T + 6.0 * C) * pow (A, 4.0) / 24.0);
  3004. }
  3005.  
  3006. int icassini (lon, lat, x, y)
  3007. double *lon, *lat, x, y; {
  3008.     /* Convert Cassini x/y to lon/lat */
  3009.     
  3010.     double e1, M1, u1, phi1, tany, siny, T1, N1, R1, D;
  3011.     
  3012.     e1 = (1.0 - sqrt (1.0 - ECC2)) / (1.0 + sqrt (1.0 - ECC2));
  3013.     M1 = project_info.c_M0 + y;
  3014.     u1 = M1 / (EQ_RAD * (1.0 - 0.25 * ECC2 - 0.046875 * ECC4 - 0.01953125 * ECC6));
  3015.     phi1 = u1 + (1.5 * e1 - 0.84375 * pow (e1, 3.0)) * sin (2.0 * u1)
  3016.         + (1.3125 * e1 * e1 - 1.71875 * pow (e1, 4.0)) * sin (4.0 * u1)
  3017.         + 1.572916666666 * pow (e1, 3.0) * sin (6.0 * u1)
  3018.         + 2.142578125 * pow (e1, 4.0) * sin (8.0 * u1);
  3019.     if (fabs (fabs (phi1) - M_PI_2) < SMALL) {
  3020.         *lat = copysign (M_PI_2, phi1);
  3021.         *lon = project_info.central_meridian;
  3022.     }
  3023.     else {
  3024.         tany = tan (phi1);
  3025.         siny = sin (phi1);
  3026.         T1 = tany * tany;
  3027.         N1 = EQ_RAD / sqrt (1.0 - ECC2 * siny * siny);
  3028.         R1 = EQ_RAD * (1.0 - ECC2) / pow (1.0 - ECC2 * siny * siny, 1.5);
  3029.         D = x / N1;
  3030.     
  3031.         *lat = R2D * (phi1 - (N1 * tany / R1) * (0.5 * D * D - (1.0 + 3.0 * T1) * pow (D, 4.0) / 24.0));
  3032.         *lon = project_info.central_meridian + R2D * (D - T1 * pow (D, 3.0) / 3.0 + (1.0 + 3.0 * T1) * T1 * pow (D, 5.0)/ 15.0) / cos (phi1);
  3033.     }
  3034. }
  3035.  
  3036. /*
  3037.  *    TRANSFORMATION ROUTINES FOR THE ALBERS PROJECTION
  3038.  */
  3039.  
  3040. int map_init_albers () {
  3041.     BOOLEAN search;
  3042.     double xmin, xmax, ymin, ymax;
  3043.  
  3044.     valbers (project_info.pars[0], project_info.pars[1], project_info.pars[2], project_info.pars[3]);
  3045.     if (project_info.units_pr_degree) project_info.pars[4] /= M_PR_DEG;
  3046.     forward = (PFI)albers;        inverse = (PFI)ialbers;
  3047.     project_info.x_scale = project_info.y_scale = project_info.pars[4];
  3048.             
  3049.     if (project_info.region) {
  3050.         xy_search (&xmin, &xmax, &ymin, &ymax);
  3051.         outside = (PFI) wesn_outside;
  3052.         crossing = (PFI) wesn_crossing;
  3053.         overlap = (PFI) wesn_overlap;
  3054.         map_clip = (PFI) wesn_clip;
  3055.         left_edge = (PFD) left_albers;
  3056.         right_edge = (PFD) right_albers;
  3057.         search = FALSE;
  3058.     }
  3059.     else {
  3060.         albers (project_info.w, project_info.s, &xmin, &ymin);
  3061.         albers (project_info.e, project_info.n, &xmax, &ymax);
  3062.         outside = (PFI) rect_outside;
  3063.         crossing = (PFI) rect_crossing;
  3064.         overlap = (PFI) rect_overlap;
  3065.         map_clip = (PFI) rect_clip;
  3066.         left_edge = (PFD) left_rect;
  3067.         right_edge = (PFD) right_rect;
  3068.         frame_info.check_side = TRUE;
  3069.         search = TRUE;
  3070.     }
  3071.     frame_info.horizontal = TRUE;
  3072.     gmtdefs.n_lat_nodes = 2;
  3073.     map_setinfo (xmin, xmax, ymin, ymax, project_info.pars[4]);
  3074.  
  3075.     return (search);
  3076. }
  3077.  
  3078.  
  3079. int valbers (lon0, lat0, ph1, ph2)
  3080. double lon0, lat0, ph1, ph2; {
  3081.     /* Set up Albers projection */
  3082.     
  3083.     double s0, s1, s2, q0, q1, q2, m1, m2;
  3084.     
  3085.     project_info.central_meridian = lon0;
  3086.     project_info.north_pole = (lat0 > 0.0);
  3087.     project_info.pole = (project_info.north_pole) ? 90.0 : -90.0;
  3088.     lat0 *= D2R;
  3089.     ph1 *= D2R;    ph2 *= D2R;
  3090.     
  3091.     s0 = sin (lat0);    s1 = sin (ph1);        s2 = sin (ph2);
  3092.     m1 = cos (ph1) * cos (ph1) / (1.0 - ECC2 * s1 * s1);    /* Actually m1 and m2 squared */
  3093.     m2 = cos (ph2) * cos (ph2) / (1.0 - ECC2 * s2 * s2);
  3094.     q0 = (1.0 - ECC2) * (s0 / (1.0 - ECC2 * s0 * s0) - (0.5 / ECC) * log ((1.0 - ECC * s0) / (1.0 + ECC * s0)));
  3095.     q1 = (1.0 - ECC2) * (s1 / (1.0 - ECC2 * s1 * s1) - (0.5 / ECC) * log ((1.0 - ECC * s1) / (1.0 + ECC * s1)));
  3096.     q2 = (1.0 - ECC2) * (s2 / (1.0 - ECC2 * s2 * s2) - (0.5 / ECC) * log ((1.0 - ECC * s2) / (1.0 + ECC * s2)));
  3097.     
  3098.     project_info.a_n = (m1 - m2) / (q2 - q1);
  3099.     project_info.a_C = m1 + project_info.a_n * q1;
  3100.     project_info.a_rho0 = EQ_RAD * sqrt (project_info.a_C - project_info.a_n * q0) / project_info.a_n;
  3101. }
  3102.  
  3103. int albers (lon, lat, x, y)
  3104. double lon, lat, *x, *y; {
  3105.     /* Convert lon/lat to Albers x/y */
  3106.     
  3107.     double s, q, theta, rho;
  3108.     
  3109.     while ((lon - project_info.central_meridian) < -180.0) lon += 360.0;
  3110.     while ((lon - project_info.central_meridian) > 180.0) lon -= 360.0;
  3111.     lon -= project_info.central_meridian;
  3112.     lon *= D2R;
  3113.     lat *= D2R;
  3114.     
  3115.     s = sin (lat);
  3116.     q = (1.0 - ECC2) * (s / (1.0 - ECC2 * s * s) - (0.5 / ECC) * log ((1.0 - ECC * s) / (1.0 + ECC * s)));
  3117.     theta = project_info.a_n * lon;
  3118.     rho = EQ_RAD * sqrt (project_info.a_C - project_info.a_n * q) / project_info.a_n;
  3119.     
  3120.     *x = rho * sin (theta);
  3121.     *y = project_info.a_rho0 - rho * cos (theta);
  3122. }
  3123.  
  3124. int ialbers (lon, lat, x, y)
  3125. double *lon, *lat, x, y; {
  3126.     /* Convert ALbers x/y to lon/lat */
  3127.     
  3128.     int n_iter = 0;
  3129.     double theta, rho, q, phi, phi0, s, delta, test;
  3130.     
  3131.     theta = (project_info.a_n < 0.0) ? d_atan2 (-x, y - project_info.a_rho0) : d_atan2 (x, project_info.a_rho0 - y);
  3132.     rho = hypot (x, project_info.a_rho0 - y);
  3133.     q = (project_info.a_C - rho * rho * project_info.a_n * project_info.a_n / (EQ_RAD * EQ_RAD)) / project_info.a_n;
  3134.     
  3135.     test = 1.0 - (0.5 * (1.0 - ECC2) / ECC) * log ((1.0 - ECC) / (1.0 + ECC));
  3136.     if (fabs (fabs (q) - test) < SMALL)
  3137.         *lat = copysign (90.0, q);
  3138.     else {
  3139.         phi = d_asin (0.5 * q);
  3140.         do {
  3141.             phi0 = phi;
  3142.             s = sin (phi0);
  3143.             phi = phi0 + 0.5 * (1.0 - ECC2 * s * s) * ((q / (1.0 - ECC2)) - s / (1.0 - ECC2 * s * s)
  3144.                 + 0.5 * log ((1 - ECC * s) / (1.0 + ECC * s)) / ECC) / cos (phi);
  3145.             delta = fabs (phi - phi0);
  3146.             n_iter++;
  3147.         }
  3148.         while (delta > SMALL && n_iter < 100);
  3149.         *lat = R2D * phi;
  3150.     }
  3151.     *lon = project_info.central_meridian + R2D * theta / project_info.a_n;
  3152. }
  3153.  
  3154. /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  3155.  *
  3156.  *    S E C T I O N  1.1 :    S U P P O R T I N G   R O U T I N E S
  3157.  *
  3158.  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -*/
  3159.  
  3160. int wesn_search () {
  3161.     double dx, dy, w, e, s, n, x, y, lon, lat;
  3162.     int i, j;
  3163.     
  3164.     /* Search for extreme original coordinates lon/lat */
  3165.             
  3166.     dx = project_info.xmax / gmtdefs.n_lon_nodes;
  3167.     dy = project_info.ymax / gmtdefs.n_lat_nodes;
  3168.     w = s = MAXDOUBLE;    e = n = -MAXDOUBLE;
  3169.     for (i = 0; i <= gmtdefs.n_lon_nodes; i++) {
  3170.         x = i * dx;
  3171.         xy_to_geo (&lon, &lat, x, 0.0);
  3172.         if (lon < w) w = lon;
  3173.         if (lon > e) e = lon;
  3174.         if (lat < s) s = lat;
  3175.         if (lat > n) n = lat;
  3176.         xy_to_geo (&lon, &lat, x, project_info.ymax);
  3177.         if (lon < w) w = lon;
  3178.         if (lon > e) e = lon;
  3179.         if (lat < s) s = lat;
  3180.         if (lat > n) n = lat;
  3181.     }
  3182.     for (j = 0; j <= gmtdefs.n_lat_nodes; j++) {
  3183.         y = j * dy;
  3184.         xy_to_geo (&lon, &lat, 0.0, y);
  3185.         if (lon < w) w = lon;
  3186.         if (lon > e) e = lon;
  3187.         if (lat < s) s = lat;
  3188.         if (lat > n) n = lat;
  3189.         xy_to_geo (&lon, &lat, project_info.xmax, y);
  3190.         if (lon < w) w = lon;
  3191.         if (lon > e) e = lon;
  3192.         if (lat < s) s = lat;
  3193.         if (lat > n) n = lat;
  3194.     }
  3195.     
  3196.     /* Then check if one or both poles are inside map; then the above wont be correct */
  3197.     
  3198.     if (!map_outside (project_info.central_meridian, 90.0)) {
  3199.         n = 90.0;
  3200.         w = 0.0;
  3201.         e = 360.0;
  3202.     }
  3203.     /* if (project_info.projection != AZ_EQDIST && !map_outside (project_info.central_meridian, -90.0)) { why was it like this? */
  3204.     if (!map_outside (project_info.central_meridian, -90.0)) {
  3205.         s = -90.0;
  3206.         w = 0.0;
  3207.         e = 360.0;
  3208.     }
  3209.     
  3210.     s -= 0.1;    if (s < -90.0) s = -90.0;    /* Make sure point is not inside area, 0.1 is just a small number */
  3211.     n += 0.1;    if (n > 90.0) n = 90.0;
  3212.     w -= 0.1;    e += 0.1;
  3213.     
  3214.     if (fabs (w - e) > 360.0) {
  3215.         w = 0.0;
  3216.         e = 360.0;
  3217.     }
  3218.     project_info.w = w;
  3219.     project_info.e = e;
  3220.     project_info.s = s;
  3221.     project_info.n = n;
  3222. }
  3223.  
  3224. int xy_search (x0, x1, y0, y1)
  3225. double *x0, *x1, *y0, *y1; {
  3226.     int i, j;
  3227.     double xmin, xmax, ymin, ymax, w, s, x, y;
  3228.     
  3229.     /* Find min/max forward values */
  3230.     
  3231.     xmax = ymax = -MAXDOUBLE;
  3232.     xmin = ymin = MAXDOUBLE;
  3233.     gmtdefs.dlon = fabs (project_info.e - project_info.w) / 500;
  3234.     gmtdefs.dlat = fabs (project_info.n - project_info.s) / 500;
  3235.     
  3236.     for (i = 0; i <= 500; i++) {
  3237.         w = project_info.w + i * gmtdefs.dlon;
  3238.         (*forward) (w, project_info.s, &x, &y);
  3239.         if (x < xmin) xmin = x;
  3240.         if (y < ymin) ymin = y;
  3241.         if (x > xmax) xmax = x;
  3242.         if (y > ymax) ymax = y;
  3243.         (*forward) (w, project_info.n, &x, &y);
  3244.         if (x < xmin) xmin = x;
  3245.         if (y < ymin) ymin = y;
  3246.         if (x > xmax) xmax = x;
  3247.         if (y > ymax) ymax = y;
  3248.     }
  3249.     for (j = 0; j <= 500; j++) {
  3250.         s = project_info.s + j * gmtdefs.dlat;
  3251.         (*forward) (project_info.w, s, &x, &y);
  3252.         if (x < xmin) xmin = x;
  3253.         if (y < ymin) ymin = y;
  3254.         if (x > xmax) xmax = x;
  3255.         if (y > ymax) ymax = y;
  3256.         (*forward) (project_info.e, s, &x, &y);
  3257.         if (x < xmin) xmin = x;
  3258.         if (y < ymin) ymin = y;
  3259.         if (x > xmax) xmax = x;
  3260.         if (y > ymax) ymax = y;
  3261.     }
  3262.     
  3263.     *x0 = xmin;    *x1 = xmax;    *y0 = ymin;    *y1 = ymax;
  3264. }
  3265.  
  3266. int map_crossing (lon1, lat1, lon2, lat2, xlon, xlat, xx, yy, sides)
  3267. double lon1, lat1, lon2, lat2, *xlon, *xlat, *xx, *yy;
  3268. int *sides; {
  3269.     int nx;
  3270.     gmt_corner = -1;
  3271.     nx = (*crossing) (lon1, lat1, lon2, lat2, xlon, xlat, xx, yy, sides);
  3272.     
  3273.     /* nx may be -2, in which case we dont want to check the order */
  3274.     if (nx == 2) {    /* Must see if crossings are in correct order */
  3275.         double da, db;
  3276.  
  3277.         da = great_circle_dist (lon1, lat1, xlon[0], xlat[0]);
  3278.         db = great_circle_dist (lon1, lat1, xlon[1], xlat[1]);
  3279.         if (da > db) { /* Must swap */
  3280.             d_swap (xlon[0], xlon[1]);
  3281.             d_swap (xlat[0], xlat[1]);
  3282.             d_swap (xx[0], xx[1]);
  3283.             d_swap (yy[0], yy[1]);
  3284.             i_swap (sides[0], sides[1]);
  3285.         }
  3286.     }
  3287.     return (abs(nx));
  3288. }
  3289.  
  3290. int map_outside (lon, lat)
  3291. double lon, lat; {
  3292.     gmt_x_status_old = gmt_x_status_new;
  3293.     gmt_y_status_old = gmt_y_status_new;
  3294.     return ((*outside) (lon, lat));
  3295. }
  3296.  
  3297. int break_through (x0, y0, x1, y1)
  3298. double x0, y0, x1, y1; {
  3299.     
  3300.     if (gmt_x_status_old == gmt_x_status_new && gmt_y_status_old == gmt_y_status_new) return (FALSE);
  3301.     if ((gmt_x_status_old == 0 && gmt_y_status_old == 0) || (gmt_x_status_new == 0 && gmt_y_status_new == 0)) return (TRUE);
  3302.     
  3303.     /* Less clearcut case, check for overlap */
  3304.     
  3305.     return ( (*overlap) (x0, y0, x1, y1));
  3306. }
  3307.  
  3308. int rect_overlap (lon0, lat0, lon1, lat1)
  3309. double lon0, lat0, lon1, lat1; {
  3310.     double x0, y0, x1, y1;
  3311.     
  3312.     geo_to_xy (lon0, lat0, &x0, &y0);
  3313.     geo_to_xy (lon1, lat1, &x1, &y1);
  3314.     
  3315.     if (x0 > x1) d_swap (x0, x1);
  3316.     if (y0 > y1) d_swap (y0, y1);
  3317.     if (x1 < project_info.xmin || x0 > project_info.xmax) return (FALSE);
  3318.     if (y1 < project_info.ymin || y0 > project_info.ymax) return (FALSE);
  3319.     return (TRUE);
  3320. }
  3321.  
  3322. int wesn_overlap (lon0, lat0, lon1, lat1)
  3323. double lon0, lat0, lon1, lat1; {
  3324.     if (lon0 > lon1) d_swap (lon0, lon1);
  3325.     if (lat0 > lat1) d_swap (lat0, lat1);
  3326.     if (lon1 < project_info.w) {
  3327.         lon0 += 360.0;
  3328.         lon1 += 360.0;
  3329.     }
  3330.     else if (lon0 > project_info.e) {
  3331.         lon0 -= 360.0;
  3332.         lon1 -= 360.0;
  3333.     }
  3334.     if (lon1 < project_info.w || lon0 > project_info.e) return (FALSE);
  3335.     if (lat1 < project_info.s || lat0 > project_info.n) return (FALSE);
  3336.     return (TRUE);
  3337. }
  3338.  
  3339. int radial_overlap (lon0, lat0, lon1, lat1)
  3340. double lon0, lat0, lon1, lat1; {    /* Dummy routine */
  3341.     return (TRUE);
  3342. }
  3343.  
  3344. int wrap_around_check (angle, last_x, last_y, this_x, this_y, xx, yy, sides, nx)
  3345. double *angle, last_x, last_y, this_x, this_y, *xx, *yy;
  3346. int  *sides, *nx; {
  3347.     int i, wrap = FALSE, skip;
  3348.     double dx, width, jump, gmt_half_map_width();
  3349.     
  3350.     jump = this_x - last_x;
  3351.     width = gmt_half_map_width (this_y);
  3352.     
  3353.     skip = (fabs (jump) < width || (fabs(jump) <= SMALL || fabs(width) <= SMALL));
  3354.              
  3355.     for (i = 0; i < (*nx); i++) {    /* Must check if the crossover found should wrap around */
  3356.         if (skip) continue;
  3357.         
  3358.         if (jump < (-width)) {    /* Crossed right boundary */
  3359.             xx[0] = right_boundary (this_y);    xx[1] = left_boundary (this_y);
  3360.             dx = this_x + gmt_map_width - last_x;
  3361.             yy[0] = yy[1] = last_y + (gmt_map_width - last_x) * (this_y - last_y) / dx;
  3362.             sides[0] = 1;    sides[1] = 3;
  3363.             angle[0] = R2D * d_atan2 (this_y - last_y, dx);
  3364.         }
  3365.         else {    /* Crossed left boundary */
  3366.             xx[0] = left_boundary (this_y);    xx[1] = right_boundary (this_y);
  3367.             dx = last_x + gmt_map_width - this_x;
  3368.             yy[0] = yy[1] = last_y + last_x * (this_y - last_y) / dx;
  3369.             sides[0] = 3;    sides[1] = 1;
  3370.             angle[0] = R2D * d_atan2 (this_y - last_y, -dx);
  3371.         }
  3372.         angle[1] = angle[0] + 180.0;
  3373.         if (yy[0] >= 0.0 && yy[0] <= project_info.ymax) wrap = TRUE;
  3374.     }
  3375.     
  3376.     if (*nx == 0 && !skip) {    /* Must wrap around */
  3377.         if (jump < (-width)) {    /* Crossed right boundary */
  3378.             xx[0] = right_boundary (this_y);    xx[1] = left_boundary (this_y);
  3379.             dx = this_x + gmt_map_width - last_x;
  3380.             yy[0] = yy[1] = last_y + (gmt_map_width - last_x) * (this_y - last_y) / dx;
  3381.             sides[0] = 1;    sides[1] = 3;
  3382.             angle[0] = R2D * d_atan2 (this_y - last_y, dx);
  3383.         }
  3384.         else {    /* Crossed left boundary */
  3385.             xx[0] = left_boundary (this_y);    xx[1] = right_boundary (this_y);
  3386.             dx = last_x + gmt_map_width - this_x;
  3387.             yy[0] = yy[1] = last_y + last_x * (this_y - last_y) / dx;
  3388.             sides[0] = 3;    sides[1] = 1;
  3389.             angle[0] = R2D * d_atan2 (this_y - last_y, -dx);
  3390.         }
  3391.         if (yy[0] >= 0.0 && yy[0] <= project_info.ymax) wrap = TRUE;
  3392.         angle[1] = angle[0] + 180.0;
  3393.     }
  3394.     
  3395.     if (wrap) *nx = 2;
  3396.     return (wrap);
  3397. }
  3398.  
  3399. double left_ellipse (y)
  3400. double y; {
  3401.     y -= project_info.w_r;
  3402.     return (gmt_half_map_size - 2.0 * d_sqrt (project_info.w_r * project_info.w_r - y * y));
  3403. }
  3404.  
  3405. double left_winkel (y)
  3406. double y; {
  3407.     int n_iter = 0;
  3408.     double c, phi, phi0, delta, x, y0;
  3409.     
  3410.     y0 = 0.5 * project_info.ymax;
  3411.     y -= y0;
  3412.     y /= project_info.y_scale;
  3413.     c = 2.0 * y / EQ_RAD;
  3414.     phi = y / EQ_RAD;
  3415.     do {
  3416.         phi0 = phi;
  3417.         phi = phi0 - (phi0 + M_PI_2 * sin (phi0) - c) / (1.0 + M_PI_2 * cos (phi0));
  3418.         delta = fabs (phi - phi0);
  3419.         n_iter++;
  3420.     }
  3421.     while (delta > SMALL && n_iter < 100);
  3422.     geo_to_xy (project_info.central_meridian-180.0, phi * R2D, &x, &c);
  3423.     return (x);
  3424. }
  3425.  
  3426. double left_eckert (y)
  3427. double y; {
  3428.     double x, phi;
  3429.     
  3430.     y -= project_info.y0;
  3431.     y /= project_info.y_scale;
  3432.     phi = 0.5 * y * project_info.k_ir;
  3433.     x = project_info.k_r * D2R * (project_info.w - project_info.central_meridian) * (1.0 + cos (phi));
  3434.     return (x * project_info.x_scale + project_info.x0);
  3435. }
  3436.  
  3437. double left_robinson (y)
  3438. double y; {
  3439.     double x, X, Y;
  3440.     
  3441.     y -= project_info.y0;
  3442.     y /= project_info.y_scale;
  3443.     Y = fabs (y / project_info.n_cy);
  3444.     intpol (project_info.n_Y, project_info.n_X, 19, 1, &Y, &X, gmtdefs.interpolant);
  3445.     
  3446.     x = project_info.n_cx * X * (project_info.w - project_info.central_meridian);
  3447.     return (x * project_info.x_scale + project_info.x0);
  3448. }
  3449.  
  3450. double left_sinusoidal (y)
  3451. double y; {
  3452.     double x, lat;
  3453.     y -= project_info.y0;
  3454.     y /= project_info.y_scale;
  3455.     lat = y / EQ_RAD;
  3456.     x = EQ_RAD * (project_info.w - project_info.central_meridian) * D2R * cos (lat);
  3457.     return (x * project_info.x_scale + project_info.x0);
  3458. }
  3459.  
  3460. double left_circle (y)
  3461. double y; {
  3462.     y -= project_info.r;
  3463.     return (gmt_half_map_size - d_sqrt (project_info.r * project_info.r - y * y));
  3464. }
  3465.  
  3466. double left_lambert (y)
  3467. double y; {
  3468.     fprintf (stderr, "GMT Warning: left_lambert () called which should not occur.  Report to gmt@soest\n");
  3469.     return (0.0);    /* For completeness, but should never be called */
  3470. }
  3471.  
  3472. double left_albers (y)
  3473. double y; {
  3474.     fprintf (stderr, "GMT Warning: left_albers () called which should not occur.  Report to gmt@soest\n");
  3475.     return (0.0);    /* For completeness, but should never be called */
  3476. }
  3477.  
  3478. double left_rect (y)
  3479. double y; {
  3480.     return (0.0);
  3481. }
  3482.  
  3483. double left_boundary (y)
  3484. double y; {
  3485.     return ((*left_edge) (y));
  3486. }
  3487.  
  3488. double right_ellipse (y)
  3489. double y; {
  3490.     y -= project_info.w_r;
  3491.     return (gmt_half_map_size + 2.0 * d_sqrt (project_info.w_r * project_info.w_r - y * y));
  3492. }
  3493.  
  3494. double right_winkel (y)
  3495. double y; {
  3496.     int n_iter = 0;
  3497.     double c, phi, phi0, delta, x, y0;
  3498.     
  3499.     y0 = 0.5 * project_info.ymax;
  3500.     y -= y0;
  3501.     y /= project_info.y_scale;
  3502.     c = 2.0 * y / EQ_RAD;
  3503.     phi = y / EQ_RAD;
  3504.     do {
  3505.         phi0 = phi;
  3506.         phi = phi0 - (phi0 + M_PI_2 * sin (phi0) - c) / (1.0 + M_PI_2 * cos (phi0));
  3507.         delta = fabs (phi - phi0);
  3508.         n_iter++;
  3509.     }
  3510.     while (delta > SMALL && n_iter < 100);
  3511.     geo_to_xy (project_info.central_meridian+180.0, phi * R2D, &x, &c);
  3512.     return (x);
  3513. }
  3514.  
  3515. double right_eckert (y)
  3516. double y; {
  3517.     double x, phi;
  3518.     
  3519.     y -= project_info.y0;
  3520.     y /= project_info.y_scale;
  3521.     phi = 0.5 * y * project_info.k_ir;
  3522.     x = project_info.k_r * D2R * (project_info.e - project_info.central_meridian) * (1.0 + cos (phi));
  3523.     return (x * project_info.x_scale + project_info.x0);
  3524. }
  3525.  
  3526. double right_robinson (y)
  3527. double y; {
  3528.     double x, X, Y;
  3529.     
  3530.     y -= project_info.y0;
  3531.     y /= project_info.y_scale;
  3532.     Y = fabs (y / project_info.n_cy);
  3533.     intpol (project_info.n_Y, project_info.n_X, 19, 1, &Y, &X, gmtdefs.interpolant);
  3534.     
  3535.     x = project_info.n_cx * X * (project_info.e - project_info.central_meridian);
  3536.     return (x * project_info.x_scale + project_info.x0);
  3537. }
  3538.  
  3539. double right_sinusoidal (y)
  3540. double y; {
  3541.     double x, lat;
  3542.     y -= project_info.y0;
  3543.     y /= project_info.y_scale;
  3544.     lat = y / EQ_RAD;
  3545.     x = EQ_RAD * (project_info.e - project_info.central_meridian) * D2R * cos (lat);
  3546.     return (x * project_info.x_scale + project_info.x0);
  3547. }
  3548.  
  3549. double right_circle (y)
  3550. double y; {
  3551.     y -= project_info.r;
  3552.     return (gmt_half_map_size + d_sqrt (project_info.r * project_info.r - y * y));
  3553. }
  3554.  
  3555. double right_lambert (y)
  3556. double y; {
  3557.     fprintf (stderr, "GMT Warning: right_lambert () called which should not occur.  Report to gmt@soest\n");
  3558.     return (gmt_map_width);    /* For completeness, but should never be called */
  3559. }
  3560.  
  3561. double right_albers (y)
  3562. double y; {
  3563.     fprintf (stderr, "GMT Warning: right_albers () called which should not occur.  Report to gmt@soest\n");
  3564.     return (gmt_map_width);    /* For completeness, but should never be called */
  3565. }
  3566.  
  3567. double right_rect (y)
  3568. double y; {
  3569.     return (gmt_map_width);
  3570. }
  3571.  
  3572. double right_boundary (y)
  3573. double y; {
  3574.     return ((*right_edge) (y));
  3575. }
  3576.  
  3577. int map_jump (x0, y0, x1, y1)
  3578. double x0, y0, x1, y1; {
  3579.     /* TRUE if x-distance between points exceeds 1/2 map width at this y value */
  3580.     double dx, map_half_size;
  3581.     
  3582.     if (!MAPPING || fabs (project_info.w - project_info.e) < 90.0) return (FALSE);
  3583.     
  3584.     map_half_size = gmt_half_map_width (y0);
  3585.     if (fabs (map_half_size) < SMALL) return (0);
  3586.     
  3587.     dx = x1 - x0;
  3588.     if (dx > map_half_size)    /* Cross left/west boundary */
  3589.         return (-1);
  3590.     else if (dx < (-map_half_size)) /* Cross right/east boundary */
  3591.         return (1);
  3592.     else
  3593.         return (0);
  3594. }
  3595.     
  3596. int get_crossings (xc, yc, x0, y0, x1, y1)
  3597. double xc[], yc[];
  3598. double x0, y0, x1, y1; {    /* Finds crossings for wrap-arounds */
  3599.     double xa, xb, ya, yb, dxa, dxb, dyb, c;
  3600.     
  3601.     xa = x0;    xb = x1;
  3602.     ya = y0;    yb = y1;
  3603.     if (xa > xb) {
  3604.         d_swap (xa, xb);
  3605.         d_swap (ya, yb);
  3606.     }
  3607.     
  3608.     xb -= 2.0 * gmt_half_map_width (yb);
  3609.     
  3610.     dxa = xa - left_boundary (ya);
  3611.     dxb = left_boundary (yb) - xb;
  3612.     c = (dxb == 0.0) ? 0.0 : 1.0 + dxa/dxb;
  3613.     dyb = (c == 0.0) ? 0.0 : fabs (yb - ya) / c;
  3614.     yc[0] = yc[1] = (ya > yb) ? yb + dyb : yb - dyb;
  3615.     xc[0] = left_boundary (yc[0]);
  3616.     xc[1] = right_boundary (yc[0]);
  3617. }
  3618.  
  3619. double gmt_half_map_width (y)
  3620. double y;    {    /* Returns 1/2-width of map in inches given y value */
  3621.     double half_width;
  3622.     
  3623.     switch (project_info.projection) {
  3624.     
  3625.         case STEREO:    /* Must compute width of circular map based on y value */
  3626.         case LAMB_AZ_EQ:
  3627.         case ORTHO:
  3628.         case AZ_EQDIST:
  3629.             if (project_info.region && gmt_world_map) {
  3630.                 y -= project_info.r;
  3631.                 half_width = d_sqrt (project_info.r * project_info.r - y * y);
  3632.             }
  3633.             else
  3634.                 half_width = gmt_half_map_size;
  3635.             break;
  3636.  
  3637.         case MOLLWEIDE:        /* Must compute width of Mollweide map based on y value */
  3638.         case HAMMER:
  3639.             if (project_info.region && gmt_world_map) {
  3640.                 y -= project_info.w_r;
  3641.                 half_width = 2.0 * d_sqrt (project_info.w_r * project_info.w_r - y * y);
  3642.             }
  3643.             else
  3644.                 half_width = gmt_half_map_size;
  3645.             break;
  3646.         case WINKEL:
  3647.         case SINUSOIDAL:
  3648.         case ROBINSON:
  3649.         case ECKERT:
  3650.             if (project_info.region && gmt_world_map)
  3651.                 half_width = right_boundary (y) - gmt_half_map_size;
  3652.             else
  3653.                 half_width = gmt_half_map_size;
  3654.             break;
  3655.     
  3656.         default:    /* Rectangular maps are easy */
  3657.             half_width = gmt_half_map_size;
  3658.             break;
  3659.     }
  3660.     return (half_width);
  3661. }
  3662.  
  3663. int will_it_wrap (x, y, n, start)
  3664. double x[], y[];
  3665. int n, *start; {    /* Determines if a polygon will wrap at edges */
  3666.     int i;
  3667.     BOOLEAN wrap;
  3668.     double dx, w;
  3669.     
  3670.     if (!gmt_world_map) return (FALSE);
  3671.     
  3672.     for (i = 1, wrap = FALSE; !wrap && i < n; i++) {
  3673.         dx = fabs (x[i] - x[i-1]);
  3674.         if (dx > (w = gmt_half_map_width (y[i])) && w > 0.0)
  3675.             wrap = TRUE;
  3676.     }
  3677.     *start = i - 1;
  3678.     return (wrap);
  3679. }
  3680.  
  3681. int truncate_left (x, y, n, start)
  3682. double x[], y[];
  3683. int n, start; {    /* Truncates a wrapping polygon agains left edge */
  3684.     int i, i1, j, k;
  3685.     BOOLEAN on;
  3686.     double dx, xc[2], yc[2];
  3687.     
  3688.     /* Find first point that is left of map center */
  3689.     
  3690.     i = (x[start] < gmt_half_map_size) ? start : start - 1;
  3691.     
  3692.     if (!gmt_n_alloc) get_plot_array ();
  3693.     
  3694.     gmt_x_plot[0] = x[i];    gmt_y_plot[0] = y[i];
  3695.     for (k = j = 1, on = FALSE; k < n; k++, j++) {
  3696.         i1 = i;
  3697.         i = (i + 1)%n;    /* Next point */
  3698.         dx = fabs (x[i] - x[i1]);
  3699.         if (dx > gmt_half_map_width (y[i])) {
  3700.             on = !on;
  3701.             get_crossings (xc, yc, x[i1], y[i1], x[i], y[i]);
  3702.             gmt_x_plot[j] = xc[0];
  3703.             gmt_y_plot[j] = yc[0];
  3704.             j++;
  3705.             if (j >= gmt_n_alloc) get_plot_array ();
  3706.         }
  3707.         gmt_x_plot[j] = (on) ? left_boundary (y[i]) : x[i];
  3708.         gmt_y_plot[j] = y[i];
  3709.         if (j >= gmt_n_alloc) get_plot_array ();
  3710.     }
  3711.     return (j);
  3712. }
  3713.  
  3714. int truncate_right (x, y, n, start)
  3715. double x[], y[];
  3716. int n, start; {    /* Truncates a wrapping polygon agains right edge */
  3717.     int i, i1, j, k;
  3718.     BOOLEAN on;
  3719.     double dx, xc[2], yc[2];
  3720.     
  3721.     /* Find first point that is right of map center */
  3722.     
  3723.     i = (x[start] > gmt_half_map_size) ? start : start - 1;
  3724.     
  3725.     if (!gmt_n_alloc) get_plot_array ();
  3726.     gmt_x_plot[0] = x[i];    gmt_y_plot[0] = y[i];
  3727.     for (k = j = 1, on = FALSE; k < n; k++, j++) {
  3728.         i1 = i;
  3729.         i = (i + 1)%n;    /* Next point */
  3730.         dx = fabs (x[i] - x[i1]);
  3731.         if (dx > gmt_half_map_width (y[i])) {
  3732.             on = !on;
  3733.             get_crossings (xc, yc, x[i1], y[i1], x[i], y[i]);
  3734.             gmt_x_plot[j] = xc[1];
  3735.             gmt_y_plot[j] = yc[1];
  3736.             j++;
  3737.             if (j >= gmt_n_alloc) get_plot_array ();
  3738.         }
  3739.         gmt_x_plot[j] = (on) ? right_boundary (y[i]) : x[i];
  3740.         gmt_y_plot[j] = y[i];
  3741.         if (j >= gmt_n_alloc) get_plot_array ();
  3742.     }
  3743.     return (j);
  3744. }
  3745.  
  3746. double great_circle_dist( lon1, lat1, lon2, lat2 )  
  3747. double lon1, lat1, lon2, lat2;
  3748. {
  3749.     /* great circle distance on a sphere in degrees */
  3750.     double C, a, b, c;
  3751.     double cosC, cosa, cosb, cosc;
  3752.     double sina, sinb;
  3753.  
  3754.     if( (lat1==lat2) && (lon1==lon2) ) {
  3755.         return( (double)0.0 );
  3756.         }
  3757.  
  3758.     a=D2R*(90.0-lat2);
  3759.     b=D2R*(90.0-lat1);
  3760.  
  3761.     C = D2R*( lon2 - lon1 );
  3762.  
  3763.     cosa = cos(a);
  3764.     cosb = cos(b);
  3765.     sina = sin(a);
  3766.     sinb = sin(b);
  3767.     cosC = cos(C);
  3768.  
  3769.     cosc = cosa*cosb + sina*sinb*cosC;
  3770.     if (cosc<-1.0) c=M_PI; else if (cosc>1) c=0.0; else c=d_acos(cosc);
  3771.  
  3772.     return( c * R2D);
  3773. }
  3774.  
  3775. /* The *_outside rutines returns the status of the current point.  Status is
  3776.  * the sum of x_status and y_status. x_status may be
  3777.  *    0    w < lon < e
  3778.  *    -1    lon == w
  3779.  *    1    lon == e
  3780.  *    -2    lon < w
  3781.  *    2    lon > e
  3782.  *    y_status may be
  3783.  *    0    s < lat < n
  3784.  *    -1    lat == s
  3785.  *    1    lat == n
  3786.  *    -2    lat < s
  3787.  *    2    lat > n
  3788.  */
  3789.  
  3790. int wesn_outside (lon, lat)
  3791. double lon, lat; {
  3792.     
  3793.     if (gmt_world_map) {
  3794.         while (lon < project_info.w) lon += 360.0;
  3795.         while (lon > project_info.e) lon -= 360.0;
  3796.     }
  3797.     
  3798.     if (on_border_is_outside && fabs (lon - project_info.w) < SMALL )
  3799.         gmt_x_status_new = -1;
  3800.     else if (on_border_is_outside && fabs (lon - project_info.e) < SMALL)
  3801.         gmt_x_status_new = 1;
  3802.     else if (lon < project_info.w)
  3803.         gmt_x_status_new = -2;
  3804.     else if (lon > project_info.e)
  3805.         gmt_x_status_new = 2;
  3806.     else
  3807.         gmt_x_status_new = 0;
  3808.         
  3809.     if (on_border_is_outside && fabs (lat - project_info.s) < SMALL )
  3810.         gmt_y_status_new = -1;
  3811.     else if (on_border_is_outside && fabs (lat - project_info.n) < SMALL)
  3812.         gmt_y_status_new = 1;
  3813.     else if (lat < project_info.s )
  3814.         gmt_y_status_new = -2;
  3815.     else if (lat > project_info.n)
  3816.         gmt_y_status_new = 2;
  3817.     else
  3818.         gmt_y_status_new = 0;
  3819.         
  3820.     return ( !(gmt_x_status_new == 0 && gmt_y_status_new == 0));
  3821.     
  3822. }
  3823.  
  3824. int polar_outside (lon, lat)
  3825. double lon, lat; {
  3826.     
  3827.     if (on_border_is_outside && fabs (lon - project_info.w) < SMALL )
  3828.         gmt_x_status_new = -1;
  3829.     else if (on_border_is_outside && fabs (lon - project_info.e) < SMALL)
  3830.         gmt_x_status_new = 1;
  3831.     else if (lon < project_info.w)
  3832.         gmt_x_status_new = -2;
  3833.     else if (lon > project_info.e)
  3834.         gmt_x_status_new = 2;
  3835.     else
  3836.         gmt_x_status_new = 0;
  3837.     if (!project_info.edge[1]) gmt_x_status_new = 0;    /* 360 degrees, no edge */
  3838.         
  3839.     if (on_border_is_outside && fabs (lat - project_info.s) < SMALL )
  3840.         gmt_y_status_new = -1;
  3841.     else if (on_border_is_outside && fabs (lat - project_info.n) < SMALL)
  3842.         gmt_y_status_new = 1;
  3843.     else if (lat < project_info.s )
  3844.         gmt_y_status_new = -2;
  3845.     else if (lat > project_info.n)
  3846.         gmt_y_status_new = 2;
  3847.     else
  3848.         gmt_y_status_new = 0;
  3849.     if (gmt_y_status_new < 0 && !project_info.edge[0]) gmt_y_status_new = 0;    /* South pole enclosed */
  3850.     if (gmt_y_status_new > 0 && !project_info.edge[2]) gmt_y_status_new = 0;    /* North pole enclosed */
  3851.     
  3852.     return ( !(gmt_x_status_new == 0 && gmt_y_status_new == 0));
  3853.     
  3854. }
  3855.  
  3856. int eqdist_outside (lon, lat)
  3857. double lon, lat; {
  3858.     double dlon, cc;
  3859.     
  3860.     while ((lon - project_info.central_meridian) < -180.0) lon += 360.0;
  3861.     while ((lon - project_info.central_meridian) > 180.0) lon -= 360.0;
  3862.     dlon = (lon - project_info.central_meridian);
  3863.     cc = project_info.sinp * sind (lat) + project_info.cosp * cosd (lat) * cosd (dlon);
  3864.     /* if (cc <= -1.0) { */
  3865.     if (cc < -1.0) {
  3866.         gmt_y_status_new = -1;
  3867.         gmt_x_status_new = 0;
  3868.     }
  3869.     else
  3870.         gmt_x_status_new = gmt_y_status_new = 0;
  3871.     return ( !(gmt_y_status_new == 0));
  3872. }
  3873.  
  3874. int radial_outside (lon, lat)
  3875. double lon, lat; {
  3876.     double dist;
  3877.     
  3878.     /* Test if point is more than 90 spherical degrees from origin.  For global maps, let all borders by "south" */
  3879.  
  3880.     gmt_x_status_new = 0;
  3881.     dist = great_circle_dist (lon, lat, project_info.central_meridian, project_info.pole);
  3882.     if (on_border_is_outside && fabs (dist - 90.0) < SMALL)
  3883.         gmt_y_status_new = -1;
  3884.     else if (dist > 90.0)
  3885.         gmt_y_status_new = -2;
  3886.     else
  3887.         gmt_y_status_new = 0;
  3888.     return ( !(gmt_y_status_new == 0));
  3889. }
  3890.  
  3891. int rect_outside (lon, lat)
  3892. double lon, lat; {
  3893.     double x, y;
  3894.     
  3895.     geo_to_xy (lon, lat, &x, &y);
  3896.     
  3897.     if (on_border_is_outside && fabs (x - project_info.xmin) < SMALL )
  3898.         gmt_x_status_new = -1;
  3899.     else if (on_border_is_outside && fabs (x - project_info.xmax) < SMALL)
  3900.         gmt_x_status_new = 1;
  3901.     else if (x < project_info.xmin)
  3902.         gmt_x_status_new = -2;
  3903.     else if (x > project_info.xmax)
  3904.         gmt_x_status_new = 2;
  3905.     else
  3906.         gmt_x_status_new = 0;
  3907.         
  3908.     if (on_border_is_outside && fabs (y -project_info.ymin) < SMALL )
  3909.         gmt_y_status_new = -1;
  3910.     else if (on_border_is_outside && fabs (y - project_info.ymax) < SMALL)
  3911.         gmt_y_status_new = 1;
  3912.     else if (y < project_info.ymin)
  3913.         gmt_y_status_new = -2;
  3914.     else if (y > project_info.ymax)
  3915.         gmt_y_status_new = 2;
  3916.     else
  3917.         gmt_y_status_new = 0;
  3918.         
  3919.     return ( !(gmt_x_status_new == 0 && gmt_y_status_new == 0));
  3920.     
  3921. }
  3922.  
  3923. int rect_outside2 (lon, lat)
  3924. double lon, lat; {    /* For Azimuthal proj with rect borders since rect_outside may fail for antipodal points */
  3925.     if (radial_outside (lon, lat)) return (TRUE);    /* Point > 90 degrees away */
  3926.     return (rect_outside (lon, lat));    /* Must check if inside box */
  3927. }
  3928.  
  3929. int pen_status () {
  3930.     int pen = 3;
  3931.     
  3932.     if (gmt_x_status_old == 0 && gmt_y_status_old == 0)
  3933.         pen = 2;
  3934.     else if (gmt_x_status_new == 0 && gmt_y_status_new == 0)
  3935.         pen = 3;
  3936.     return (pen);
  3937. }
  3938.  
  3939. int wesn_crossing (lon0, lat0, lon1, lat1, clon, clat, xx, yy, sides)
  3940. double lon0, lat0, lon1, lat1, *clon, *clat, *xx, *yy;
  3941. int *sides; {
  3942.     /* Compute the crossover point(s) on the map boundary for rectangular projections */
  3943.     int n = 0, i;
  3944.     double dlat, dlon;
  3945.     
  3946.     /* Since it may not be obvious which side the line may cross, and since in some cases the two points may be
  3947.      * entirely outside the region but still cut through it, we first find all possible candidates and then decide
  3948.      * which ones are valid crossings.  We may find 0, 1, or 2 intersections */
  3949.     
  3950.     /* First align the longitudes to the region */
  3951.     
  3952.     if (gmt_world_map) {
  3953.         while (lon0 < project_info.w) lon0 += 360.0;
  3954.         while (lon0 > project_info.e) lon0 -= 360.0;
  3955.         while (lon1 < project_info.w) lon1 += 360.0;
  3956.         while (lon1 > project_info.e) lon1 -= 360.0;
  3957.     }
  3958.     
  3959.     /* Then set 'almost'-corners to corners */
  3960.     
  3961.     x_wesn_corner (&lon0);
  3962.     x_wesn_corner (&lon1);
  3963.     y_wesn_corner (&lat0);
  3964.     y_wesn_corner (&lat1);
  3965.     
  3966.     
  3967. /*    if ((lat0 > project_info.s && lat1 <= project_info.s) || (lat1 > project_info.s && lat0 <= project_info.s)) { */
  3968.     if ((lat0 >= project_info.s && lat1 <= project_info.s) || (lat1 >= project_info.s && lat0 <= project_info.s)) {
  3969.         sides[n] = 0;
  3970.         clat[n] = project_info.s;
  3971.         dlat = lat0 - lat1;
  3972.         clon[n] = (dlat == 0.0) ? lon1 : lon1 + (lon0 - lon1) * (clat[n] - lat1) / dlat;
  3973.         x_wesn_corner (&clon[n]);
  3974.         if (fabs(dlat) > 0.0 && lon_inside (clon[n], project_info.w, project_info.e)) n++;
  3975.     }
  3976. /*    if ((lon0 >= project_info.e && lon1 < project_info.e) || (lon1 >= project_info.e && lon0 < project_info.e)) { */
  3977.     if ((lon0 >= project_info.e && lon1 <= project_info.e) || (lon1 >= project_info.e && lon0 <= project_info.e)) {
  3978.         sides[n] = 1;
  3979.         clon[n] = project_info.e;
  3980.         dlon = lon0 - lon1;
  3981.         clat[n] = (dlon == 0.0) ? lat1 : lat1 + (lat0 - lat1) * (clon[n] - lon1) / dlon;
  3982.         y_wesn_corner (&clat[n]);
  3983.         if (fabs(dlon) > 0.0 && clat[n] >= project_info.s && clat[n] <= project_info.n) n++;
  3984.     }
  3985. /*    if ((lat0 >= project_info.n && lat1 < project_info.n) || (lat1 >= project_info.n && lat0 < project_info.n)) { */
  3986.     if ((lat0 >= project_info.n && lat1 <= project_info.n) || (lat1 >= project_info.n && lat0 <= project_info.n)) {
  3987.         sides[n] = 2;
  3988.         clat[n] = project_info.n;
  3989.         dlat = lat0 - lat1;
  3990.         clon[n] = (dlat == 0.0) ? lon1 : lon1 + (lon0 - lon1) * (clat[n] - lat1) / dlat;
  3991.         x_wesn_corner (&clon[n]);
  3992.         if (fabs(dlat) > 0.0 && lon_inside (clon[n], project_info.w, project_info.e)) n++;
  3993.     }
  3994. /*    if ((lon0 <= project_info.w && lon1 > project_info.w) || (lon1 <= project_info.w && lon0 > project_info.w)) { */
  3995.     if ((lon0 <= project_info.w && lon1 >= project_info.w) || (lon1 <= project_info.w && lon0 >= project_info.w)) {
  3996.         sides[n] = 3;
  3997.         clon[n] = project_info.w;
  3998.         dlon = lon0 - lon1;
  3999.         clat[n] = (dlon == 0.0) ? lat1 : lat1 + (lat0 - lat1) * (clon[n] - lon1) / dlon;
  4000.         y_wesn_corner (&clat[n]);
  4001.         if (fabs(dlon) > 0.0 && clat[n] >= project_info.s && clat[n] <= project_info.n) n++;
  4002.     }
  4003.     
  4004.     for (i = 0; i < n; i++) {
  4005.         geo_to_xy (clon[i], clat[i], &xx[i], &yy[i]);
  4006.         if (project_info.projection == POLAR && sides[i]%2) sides[i] = 4 - sides[i];    /*  toggle 1 <-> 3 */
  4007.     }
  4008.  
  4009.     /* Check for corner xover */
  4010.     
  4011.     if (n < 2) return (n);
  4012.     
  4013.     if (is_wesn_corner (clon[0], clat[0])) return (1); 
  4014.     
  4015.     if (is_wesn_corner (clon[1], clat[1])) {
  4016.         clon[0] = clon[1];
  4017.         clat[0] = clat[1];
  4018.         xx[0] = xx[1];
  4019.         yy[0] = yy[1];
  4020.         sides[0] = sides[1];
  4021.         return (1); 
  4022.     }
  4023.  
  4024.     return (n);
  4025. }
  4026.  
  4027. int rect_crossing (lon0, lat0, lon1, lat1, clon, clat, xx, yy, sides)
  4028. double lon0, lat0, lon1, lat1, *clon, *clat, *xx, *yy;
  4029. int *sides; {
  4030.  
  4031.     /* Compute the crossover point(s) on the map boundary for rectangular projections */
  4032.     int i, n = 0;
  4033.     double x0, x1, y0, y1, d;
  4034.     
  4035.     /* Since it may not be obvious which side the line may cross, and since in some cases the two points may be
  4036.      * entirely outside the region but still cut through it, we first find all possible candidates and then decide
  4037.      * which ones are valid crossings.  We may find 0, 1, or 2 intersections */
  4038.         
  4039.     geo_to_xy (lon0, lat0, &x0, &y0);
  4040.     geo_to_xy (lon1, lat1, &x1, &y1);
  4041.     
  4042.     /* First set 'almost'-corners to corners */
  4043.     
  4044.     x_rect_corner (&x0);
  4045.     x_rect_corner (&x1);
  4046.     y_rect_corner (&y0);
  4047.     y_rect_corner (&y1);
  4048.     
  4049. /*    if ((y0 > project_info.ymin && y1 <= project_info.ymin) || (y1 > project_info.ymin && y0 <= project_info.ymin)) { */
  4050.     if ((y0 >= project_info.ymin && y1 <= project_info.ymin) || (y1 >= project_info.ymin && y0 <= project_info.ymin)) {
  4051.         sides[n] = 0;
  4052.         yy[n] = project_info.ymin;
  4053.         d = y0 - y1;
  4054.         xx[n] = (d == 0.0) ? x0 : x1 + (x0 - x1) * (yy[n] - y1) / d;
  4055.         x_rect_corner (&xx[n]);
  4056.         if (xx[n] >= project_info.xmin && xx[n] <= project_info.xmax) n++;
  4057.     }
  4058. /*    if ((x0 < project_info.xmax && x1 >= project_info.xmax) || (x1 < project_info.xmax && x0 >= project_info.xmax)) { */
  4059.     if ((x0 <= project_info.xmax && x1 >= project_info.xmax) || (x1 <= project_info.xmax && x0 >= project_info.xmax)) {
  4060.         sides[n] = 1;
  4061.         xx[n] = project_info.xmax;
  4062.         d = x0 - x1;
  4063.         yy[n] = (d == 0.0) ? y0 : y1 + (y0 - y1) * (xx[n] - x1) / d;
  4064.         y_rect_corner (&yy[n]);
  4065.         if (yy[n] >= project_info.ymin && yy[n] <= project_info.ymax) n++;
  4066.     }
  4067. /*    if ((y0 < project_info.ymax && y1 >= project_info.ymax) || (y1 < project_info.ymax && y0 >= project_info.ymax)) { */
  4068.     if ((y0 <= project_info.ymax && y1 >= project_info.ymax) || (y1 <= project_info.ymax && y0 >= project_info.ymax)) {
  4069.         sides[n] = 2;
  4070.         yy[n] = project_info.ymax;
  4071.         d = y0 - y1;
  4072.         xx[n] = (d == 0.0) ? x0 : x1 + (x0 - x1) * (yy[n] - y1) / d;
  4073.         x_rect_corner (&xx[n]);
  4074.         if (xx[n] >= project_info.xmin && xx[n] <= project_info.xmax) n++;
  4075.     }
  4076. /*    if ((x0 > project_info.xmin && x1 <= project_info.xmin) || (x1 > project_info.xmin && x0 <= project_info.xmin)) { */
  4077.     if ((x0 >= project_info.xmin && x1 <= project_info.xmin) || (x1 >= project_info.xmin && x0 <= project_info.xmin)) {
  4078.         sides[n] = 3;
  4079.         xx[n] = project_info.xmin;
  4080.         d = x0 - x1;
  4081.         yy[n] = (d == 0.0) ? y0 : y1 + (y0 - y1) * (xx[n] - x1) / d;
  4082.         y_rect_corner (&yy[n]);
  4083.         if (yy[n] >= project_info.ymin && yy[n] <= project_info.ymax) n++;
  4084.     }
  4085.  
  4086.     for (i = 0; i < n; i++)    xy_to_geo (&clon[i], &clat[i], xx[i], yy[i]);
  4087.     
  4088.     /* Check for corner xover */
  4089.     
  4090.     if (n < 2) return (n);
  4091.     
  4092.     if (is_rect_corner (xx[0], yy[0])) return (1); 
  4093.     
  4094.     if (is_rect_corner (xx[1], yy[1])) {
  4095.         clon[0] = clon[1];
  4096.         clat[0] = clat[1];
  4097.         xx[0] = xx[1];
  4098.         yy[0] = yy[1];
  4099.         sides[0] = sides[1];
  4100.         return (1);
  4101.     }
  4102.  
  4103.     return (n);
  4104. }
  4105.  
  4106. int x_rect_corner (x)
  4107. double *x; {
  4108.     if (fabs (*x) <= SMALL)
  4109.         *x = 0.0;
  4110.     else if (fabs (*x - project_info.xmax) <= SMALL)
  4111.         *x = project_info.xmax;
  4112. }
  4113.  
  4114. int y_rect_corner (y)
  4115. double *y; {
  4116.     if (fabs (*y) <= SMALL)
  4117.         *y = 0.0;
  4118.     else if (fabs (*y - project_info.ymax) <= SMALL)
  4119.         *y = project_info.ymax;
  4120. }
  4121.  
  4122. int is_rect_corner (x, y)
  4123. double x, y; {    /* Checks if point is a corner */
  4124.     gmt_corner = -1;
  4125.     if (x == project_info.xmin) {
  4126.         if (y == project_info.ymin)
  4127.             gmt_corner = 1;
  4128.         else if (y == project_info.ymax)
  4129.             gmt_corner = 4;
  4130.     }
  4131.     else if (x == project_info.xmax) {
  4132.         if (y == project_info.ymin)
  4133.             gmt_corner = 2;
  4134.         else if (y == project_info.ymax)
  4135.             gmt_corner = 3;
  4136.     }
  4137.     return (gmt_corner > 0);
  4138. }
  4139.  
  4140. int x_wesn_corner (x)
  4141. double *x; {
  4142. /*    if (fabs (fmod (fabs (*x - project_info.w), 360.0)) <= SMALL)
  4143.         *x = project_info.w;
  4144.     else if (fabs (fmod (fabs (*x - project_info.e), 360.0)) <= SMALL)
  4145.         *x = project_info.e; */
  4146.         
  4147.     if (fabs (*x - project_info.w) <= SMALL)
  4148.         *x = project_info.w;
  4149.     else if (fabs (*x - project_info.e) <= SMALL)
  4150.         *x = project_info.e;
  4151.     
  4152. }
  4153.  
  4154. int y_wesn_corner (y)
  4155. double *y; {
  4156.     if (fabs (*y - project_info.s) <= SMALL)
  4157.         *y = project_info.s;
  4158.     else if (fabs (*y - project_info.n) <= SMALL)
  4159.         *y = project_info.n;
  4160. }
  4161.  
  4162. int is_wesn_corner (x, y)
  4163. double x, y; {    /* Checks if point is a corner */
  4164.     gmt_corner = 0;
  4165.     
  4166.     if (fmod (fabs (x - project_info.w), 360.0) == 0.0) {
  4167.         if (y == project_info.s)
  4168.             gmt_corner = 1;
  4169.         else if (y == project_info.n)
  4170.             gmt_corner = 4;
  4171.     }
  4172.     else if (fmod (fabs (x - project_info.e), 360.0) == 0.0) {
  4173.         if (y == project_info.s)
  4174.             gmt_corner = 2;
  4175.         else if (y == project_info.n)
  4176.             gmt_corner = 3;
  4177.     }
  4178.     return (gmt_corner > 0);
  4179. }
  4180.  
  4181. int radial_crossing (lon1, lat1, lon2, lat2, clon, clat, xx, yy, sides)
  4182. double lon1, lat1, lon2, lat2, *clon, *clat, *xx, *yy;
  4183. int *sides; {
  4184.     /* Computes the lon/lat of a point that is 90 spherical degrees from
  4185.      * the origin and lies on the great circle between points 1 and 2 */
  4186.     
  4187.     double dist1, dist2, delta, eps, dlon;
  4188.     
  4189.     dist1 = great_circle_dist (project_info.central_meridian, project_info.pole, lon1, lat1);
  4190.     dist2 = great_circle_dist (project_info.central_meridian, project_info.pole, lon2, lat2);
  4191.     delta = dist2 - dist1;
  4192.     eps = (delta == 0.0) ? 0.0 : (90.0 - dist1) / delta;
  4193.     dlon = lon2 - lon1;
  4194.     if (fabs (dlon) > 180.0) dlon = copysign (360.0 - fabs (dlon), -dlon);
  4195.     clon[0] = lon1 + dlon * eps;
  4196.     clat[0] = lat1 + (lat2 - lat1) * eps;
  4197.     
  4198.     geo_to_xy (clon[0], clat[0], &xx[0], &yy[0]);
  4199.     sides[0] = 1;
  4200.     
  4201.     return (1);
  4202. }
  4203.  
  4204. int ellipse_crossing (lon1, lat1, lon2, lat2, clon, clat, xx, yy, sides)
  4205. double lon1, lat1, lon2, lat2, *clon, *clat, *xx, *yy;
  4206. int *sides; {
  4207.     /* Compute the crossover point(s) on the map boundary for rectangular projections */
  4208.     int n = 0, i, jump;
  4209.     double x1, x2, y1, y2;
  4210.     
  4211.     /* Crossings here must be at the W or E borders. Lat points may only touch border */
  4212.     
  4213.     if (lat1 == -90.0) {
  4214.         sides[n] = 0;
  4215.         clon[n] = lon1;
  4216.         clat[n] = lat1;
  4217.         n = 1;
  4218.     }
  4219.     else if (lat2 == -90.0) {
  4220.         sides[n] = 0;
  4221.         clon[n] = lon2;
  4222.         clat[n] = lat2;
  4223.         n = 1;
  4224.     }
  4225.     else if (lat1 == 90.0) {
  4226.         sides[n] = 2;
  4227.         clon[n] = lon1;
  4228.         clat[n] = lat1;
  4229.         n = 1;
  4230.     }
  4231.     else if (lat2 == 90.0) {
  4232.         sides[n] = 2;
  4233.         clon[n] = lon2;
  4234.         clat[n] = lat2;
  4235.         n = 1;
  4236.     }
  4237.     else {    /* May cross somewhere else */
  4238.         geo_to_xy (lon1, lat1, &x1, &y1);
  4239.         geo_to_xy (lon2, lat2, &x2, &y2);
  4240.         if ((jump = map_jump (x2, y2, x1, y1))) {
  4241.             get_crossings (xx, yy, x2, y2, x1, y1);
  4242.             if (jump == 1) {    /* Add right border point first */
  4243.                 d_swap (xx[0], xx[1]);
  4244.                 d_swap (yy[0], yy[1]);
  4245.             }
  4246.             xy_to_geo (&clon[0], &clat[0], xx[0], yy[0]);
  4247.             xy_to_geo (&clon[1], &clat[1], xx[1], yy[1]);
  4248.         }
  4249.         n = -2;    /* To signal dont change order */
  4250.     }
  4251.     if (n == 1) for (i = 0; i < n; i++) geo_to_xy (clon[i], clat[i], &xx[i], &yy[i]);
  4252.     return (n);
  4253. }
  4254.  
  4255. int eqdist_crossing (lon1, lat1, lon2, lat2, clon, clat, xx, yy, sides)
  4256. double lon1, lat1, lon2, lat2, *clon, *clat, *xx, *yy;
  4257. int *sides; {
  4258.     double angle, x, y;
  4259.     
  4260.     /* Computes the x.y of the antipole point that lies on a radius from
  4261.      * the origin through the inside point */
  4262.     
  4263.     if (eqdist_outside (lon1, lat1)) {    /* Point 1 is on perimeter */
  4264.         geo_to_xy (lon2, lat2, &x, &y);
  4265.         angle = d_atan2 (y - project_info.y0, x - project_info.x0);
  4266.         xx[0] = project_info.r * cos (angle) + project_info.x0;
  4267.         yy[0] = project_info.r * sin (angle) + project_info.y0;
  4268.         clon[0] = lon1;
  4269.         clat[0] = lat1;
  4270.     }
  4271.     else {    /* Point 2 is on perimeter */
  4272.         geo_to_xy (lon1, lat1, &x, &y);
  4273.         angle = d_atan2 (y - project_info.y0, x - project_info.x0);
  4274.         xx[0] = project_info.r * cos (angle) + project_info.x0;
  4275.         yy[0] = project_info.r * sin (angle) + project_info.y0;
  4276.         clon[0] = lon2;
  4277.         clat[0] = lat2;
  4278.     }
  4279.     sides[0] = 1;
  4280.     
  4281.     return (1);
  4282. }
  4283.  
  4284. /*  Routines to add pieces of parallels or meridians */
  4285.  
  4286. int map_path (lon1, lat1, lon2, lat2, x, y)
  4287. double lon1, lat1, lon2, lat2;
  4288. double *x[], *y[]; {
  4289.     if (lat1 == lat2)
  4290.         return (latpath (lat1, lon1, lon2, x, y));
  4291.     else
  4292.         return (lonpath (lon1, lat1, lat2, x, y));
  4293. }
  4294.  
  4295. int lonpath (lon, lat1, lat2, x, y)
  4296. double lon, lat1, lat2;
  4297. double *x[], *y[]; {
  4298.     int ny, n = 0, n_try, keep_trying, jump, pos;
  4299.     double dlat, *tlon, *tlat, x0, x1, y0, y1, d;
  4300.     double min_gap;
  4301.  
  4302.     min_gap = 0.1 * gmtdefs.line_step;
  4303.     if ((ny = ceil (fabs (lat2 - lat1) / gmtdefs.dlat)) == 0) return (0);
  4304.  
  4305.     ny++;
  4306.     dlat = (lat2 - lat1) / ny;
  4307.     pos = (dlat > 0.0); 
  4308.     
  4309.     tlon = (double *) memory (CNULL, ny, sizeof (double), "lonpath");
  4310.     tlat = (double *) memory (CNULL, ny, sizeof (double), "lonpath");
  4311.     
  4312.     tlon[0] = lon;
  4313.     tlat[0] = lat1;
  4314.     geo_to_xy (tlon[0], tlat[0], &x0, &y0);
  4315.     while ((pos && tlat[n] < lat2) || (!pos & tlat[n] > lat2)) {
  4316.         n++;
  4317.         if (n == ny-1) {
  4318.             ny += GMT_SMALL_CHUNK;
  4319.             tlon = (double *) memory ((char *)tlon, ny, sizeof (double), "lonpath");
  4320.             tlat = (double *) memory ((char *)tlat, ny, sizeof (double), "lonpath");
  4321.         }
  4322.         n_try = 0;
  4323.         keep_trying = TRUE;
  4324.         do {
  4325.             n_try++;
  4326.             tlon[n] = lon;
  4327.             tlat[n] = tlat[n-1] + dlat;
  4328.             geo_to_xy (tlon[n], tlat[n], &x1, &y1);
  4329.             jump = map_jump (x0, y0, x1, y1) || (y0 < project_info.ymin || y0 > project_info.ymax);
  4330.             if (!jump && (d = hypot (x1 - x0, y1 - y0)) > gmtdefs.line_step)
  4331.                 dlat *= 0.5;
  4332.             else if (!jump && d < min_gap)
  4333.                 dlat *= 2.0;
  4334.             else
  4335.                 keep_trying = FALSE;
  4336.         } while (keep_trying && n_try < 10);
  4337.         x0 = x1;    y0 = y1;
  4338.     }
  4339.     tlon[n] = lon;
  4340.     tlat[n] = lat2;
  4341.     n++;
  4342.     
  4343.     if (n != ny) {
  4344.         tlon = (double *) memory ((char *)tlon, n, sizeof (double), "lonpath");
  4345.         tlat = (double *) memory ((char *)tlat, n, sizeof (double), "lonpath");
  4346.     }
  4347.     
  4348.     *x = tlon;    *y = tlat;
  4349.     return (n);
  4350. }
  4351.  
  4352. int latpath (lat, lon1, lon2, x, y)
  4353. double lat, lon1, lon2;
  4354. double *x[], *y[]; {
  4355.     int nx, n = 0, n_try, keep_trying, jump, pos;
  4356.     double dlon, *tlon, *tlat, x0, x1, y0, y1, d;
  4357.     double min_gap;
  4358.     
  4359.     min_gap = 0.1 * gmtdefs.line_step;
  4360.     if ((nx = ceil (fabs (lon2 - lon1) / gmtdefs.dlon)) == 0) return (0);
  4361.  
  4362.     nx++;
  4363.     dlon = (lon2 - lon1) / nx;
  4364.     pos = (dlon > 0.0); 
  4365.     
  4366.     tlon = (double *) memory (CNULL, nx, sizeof (double), "latpath");
  4367.     tlat = (double *) memory (CNULL, nx, sizeof (double), "latpath");
  4368.     
  4369.     tlon[0] = lon1;
  4370.     tlat[0] = lat;
  4371.     geo_to_xy (tlon[0], tlat[0], &x0, &y0);
  4372.     while ((pos && tlon[n] < lon2) || (!pos & tlon[n] > lon2)) {
  4373.         n++;
  4374.         if (n == nx-1) {
  4375.             nx += GMT_CHUNK;
  4376.             tlon = (double *) memory ((char *)tlon, nx, sizeof (double), "latpath");
  4377.             tlat = (double *) memory ((char *)tlat, nx, sizeof (double), "latpath");
  4378.         }
  4379.         n_try = 0;
  4380.         keep_trying = TRUE;
  4381.         do {
  4382.             n_try++;
  4383.             tlat[n] = lat;
  4384.             tlon[n] = tlon[n-1] + dlon;
  4385.             geo_to_xy (tlon[n], tlat[n], &x1, &y1);
  4386.             jump = map_jump (x0, y0, x1, y1) || (y0 < project_info.ymin || y0 > project_info.ymax);
  4387.             if (!jump && (d = hypot (x1 - x0, y1 - y0)) > gmtdefs.line_step)
  4388.                 dlon *= 0.5;
  4389.             else if (!jump && d < min_gap)
  4390.                 dlon *= 2.0;
  4391.             else
  4392.                 keep_trying = FALSE;
  4393.         } while (keep_trying && n_try < 10);
  4394.         x0 = x1;    y0 = y1;
  4395.     }
  4396.     tlon[n] = lon2;
  4397.     tlat[n] = lat;
  4398.     n++;
  4399.     
  4400.     if (n != nx) {
  4401.         tlon = (double *) memory ((char *)tlon, n, sizeof (double), "latpath");
  4402.         tlat = (double *) memory ((char *)tlat, n, sizeof (double), "latpath");
  4403.     }
  4404.     
  4405.     *x = tlon;    *y = tlat;
  4406.     return (n);
  4407. }
  4408.  
  4409. /*  Routines to do with clipping */
  4410.  
  4411. int clip_to_map (lon, lat, np, x, y)
  4412. double lon[], lat[];
  4413. int np;
  4414. double *x[], *y[]; {
  4415.     /* This routine makes sure that all points are either inside or on the map boundary
  4416.      * and returns the number of points to be used for plotting (in x,y units) */
  4417.      
  4418.     int i, n, out = 0;
  4419.     double *xx, *yy;
  4420.     
  4421.     /* First check for trivial cases:  All points outside or all points inside */
  4422.     
  4423.     for (i = 0; i < np; i++)  {
  4424.         map_outside (lon[i], lat[i]);
  4425.         out += (abs (gmt_x_status_new) == 2 || abs (gmt_y_status_new) == 2);
  4426.     }
  4427.     if (out == 0) {        /* All points are inside map boundary */
  4428.         xx = (double *) memory (CNULL, np, sizeof (double), "clip_to_map");
  4429.         yy = (double *) memory (CNULL, np, sizeof (double), "clip_to_map");
  4430.         for (i = 0; i < np; i++) geo_to_xy (lon[i], lat[i], &xx[i], &yy[i]);
  4431.         *x = xx;    *y = yy;
  4432.         n = np;
  4433.     }
  4434.     else if (out == np)    /* All points are outside map boundary */
  4435.         n = 0;
  4436.     else 
  4437.         n = (*map_clip) (lon, lat, np, x, y);
  4438.     return (n);
  4439. }
  4440.  
  4441. int rect_clip (lon, lat, n, x, y)
  4442. double lon[], lat[];
  4443. double *x[], *y[];
  4444. int n; {
  4445.     int i, j = 0, k, nx, sides[2], n_alloc = GMT_CHUNK;
  4446.     double xlon[2], xlat[2], xc[2], yc[2], *xx, *yy;
  4447.     
  4448.     if (n == 0) return (0);
  4449.     
  4450.     xx = (double *) memory (CNULL, n_alloc, sizeof (double), "rect_clip");
  4451.     yy = (double *) memory (CNULL, n_alloc, sizeof (double), "rect_clip");
  4452.     map_outside (lon[0], lat[0]);
  4453.     geo_to_xy (lon[0], lat[0], &xx[0], &yy[0]);
  4454.     j += move_to_rect (xx, yy, j);    /* May add 2 points, << n_alloc */
  4455.     
  4456.     /* for (i = j = 1; i < n; i++) { */
  4457.     for (i = 1; i < n; i++) {
  4458.         map_outside (lon[i], lat[i]);
  4459.         if (break_through (lon[i-1], lat[i-1], lon[i], lat[i])) {
  4460.             nx = map_crossing (lon[i-1], lat[i-1], lon[i], lat[i], xlon, xlat, xc, yc, sides);
  4461.             for (k = 0; k < nx; k++) {
  4462.                 xx[j] = xc[k];
  4463.                 yy[j++] = yc[k];
  4464.                 if (j == (n_alloc-2)) {
  4465.                     n_alloc += GMT_CHUNK;
  4466.                     xx = (double *) memory ((char *)xx, n_alloc, sizeof (double), "rect_clip");
  4467.                     yy = (double *) memory ((char *)yy, n_alloc, sizeof (double), "rect_clip");
  4468.                 }
  4469.             }
  4470.         }
  4471.         geo_to_xy (lon[i], lat[i], &xx[j], &yy[j]);
  4472.         if (j == (n_alloc-2)) {
  4473.             n_alloc += GMT_CHUNK;
  4474.             xx = (double *) memory ((char *)xx, n_alloc, sizeof (double), "rect_clip");
  4475.             yy = (double *) memory ((char *)yy, n_alloc, sizeof (double), "rect_clip");
  4476.         }
  4477.         j += move_to_rect (xx, yy, j);    /* May add 2 points, which explains the n_alloc-2 stuff */
  4478.     }
  4479.     
  4480.     xx = (double *) memory ((char *)xx, j, sizeof (double), "rect_clip");
  4481.     yy = (double *) memory ((char *)yy, j, sizeof (double), "rect_clip");
  4482.     *x = xx;
  4483.     *y = yy;
  4484.     
  4485.     return (j);
  4486. }        
  4487.         
  4488. int wesn_clip (lon, lat, n, x, y)
  4489. double lon[], lat[];
  4490. double *x[], *y[];
  4491. int n; {
  4492.     int i, j = 0, k, nx, sides[2], n_alloc = GMT_CHUNK;
  4493.     double xlon[2], xlat[2], xc[2], yc[2], *xx, *yy;
  4494.     
  4495.     if (n == 0) return (0);
  4496.     
  4497.     xx = (double *) memory (CNULL, n_alloc, sizeof (double), "wesn_clip");
  4498.     yy = (double *) memory (CNULL, n_alloc, sizeof (double), "wesn_clip");
  4499.  
  4500.     map_outside (lon[0], lat[0]);
  4501.     j = move_to_wesn (xx, yy, lon[0], lat[0], 0);    /* May add 2 points, << n_alloc */
  4502.     
  4503.     for (i = 1; i < n; i++) {
  4504.         map_outside (lon[i], lat[i]);
  4505.         if (break_through (lon[i-1], lat[i-1], lon[i], lat[i])) {
  4506.             nx = map_crossing (lon[i-1], lat[i-1], lon[i], lat[i], xlon, xlat, xc, yc, sides);
  4507.             for (k = 0; k < nx; k++) {
  4508.                 xx[j] = xc[k];
  4509.                 yy[j++] = yc[k];
  4510.                 if (j == n_alloc) {
  4511.                     n_alloc += GMT_CHUNK;
  4512.                     xx = (double *) memory ((char *)xx, n_alloc, sizeof (double), "wesn_clip");
  4513.                     yy = (double *) memory ((char *)yy, n_alloc, sizeof (double), "wesn_clip");
  4514.                 }
  4515.             }
  4516.         }
  4517.         if (j == (n_alloc-2)) {
  4518.             n_alloc += GMT_CHUNK;
  4519.             xx = (double *) memory ((char *)xx, n_alloc, sizeof (double), "wesn_clip");
  4520.             yy = (double *) memory ((char *)yy, n_alloc, sizeof (double), "wesn_clip");
  4521.         }
  4522.         j += move_to_wesn (xx, yy, lon[i], lat[i], j);    /* May add 2 points, which explains the n_alloc-2 stuff */
  4523.     }
  4524.  
  4525.     xx = (double *) memory ((char *)xx, j, sizeof (double), "wesn_clip");
  4526.     yy = (double *) memory ((char *)yy, j, sizeof (double), "wesn_clip");
  4527.     *x = xx;
  4528.     *y = yy;
  4529.  
  4530.     return (j);
  4531. }        
  4532.         
  4533. int move_to_rect (x_edge, y_edge, j)
  4534. double x_edge[], y_edge[];
  4535. int j; {
  4536.     int n = 0;
  4537.     double xtmp, ytmp;
  4538.     
  4539.     /* May add 0, 1, or 2 points to path */
  4540.     
  4541.     if (gmt_x_status_new == 0 && gmt_y_status_new == 0) return (1);    /* Inside */
  4542.     
  4543.     if (j > 0 && gmt_x_status_new != gmt_x_status_old && gmt_y_status_new != gmt_y_status_old) {    /* Must include corner */
  4544.         xtmp = x_edge[j];    ytmp = y_edge[j];
  4545.         x_edge[j] = (MIN (gmt_x_status_new, gmt_x_status_old) < 0) ? project_info.xmin : project_info.xmax;
  4546.         y_edge[j] = (MIN (gmt_y_status_new, gmt_y_status_old) < 0) ? project_info.ymin : project_info.ymax;
  4547.         j++;
  4548.         x_edge[j] = xtmp;    y_edge[j] = ytmp;
  4549.         n = 1;
  4550.     }
  4551.     if (gmt_x_status_new != 0) x_edge[j] = (gmt_x_status_new < 0) ? project_info.xmin : project_info.xmax;
  4552.     if (gmt_y_status_new != 0) y_edge[j] = (gmt_y_status_new < 0) ? project_info.ymin : project_info.ymax;
  4553.     return (n + 1);
  4554. }
  4555.  
  4556. int move_to_wesn (x_edge, y_edge, lon, lat, j)
  4557. double x_edge[], y_edge[], lon, lat;
  4558. int j; {
  4559.     int n = 0;
  4560.     double xtmp, ytmp, lon_p, lat_p;
  4561.     
  4562.     /* May add 0, 1, or 2 points to path */
  4563.     
  4564.     if (j > 0 && gmt_x_status_new != gmt_x_status_old && gmt_y_status_new != gmt_y_status_old) {    /* Need corner */
  4565.         xtmp = x_edge[j];    ytmp = y_edge[j];
  4566.         lon_p = (MIN (gmt_x_status_new, gmt_x_status_old) < 0) ? project_info.w : project_info.e;
  4567.         lat_p = (MIN (gmt_y_status_new, gmt_y_status_old) < 0) ? project_info.s : project_info.n;
  4568.         geo_to_xy (lon_p, lat_p, &x_edge[j], &y_edge[j]);
  4569.         j++;
  4570.         x_edge[j] = xtmp;    y_edge[j] = ytmp;
  4571.         n = 1;
  4572.     }
  4573.     if (gmt_x_status_new != 0) lon = (gmt_x_status_new < 0) ? project_info.w : project_info.e;
  4574.     if (gmt_y_status_new != 0) lat = (gmt_y_status_new < 0) ? project_info.s : project_info.n;
  4575.     geo_to_xy (lon, lat, &x_edge[j], &y_edge[j]);
  4576.     return (n + 1);
  4577. }
  4578.  
  4579. int radial_clip (lon, lat, np, x, y)
  4580. double lon[], lat[];
  4581. int np;
  4582. double *x[], *y[]; {
  4583.     int n = 0, this, i, sides[2], n_alloc = GMT_CHUNK;
  4584.     double xlon[2], xlat[2], xc[2], yc[2], xr, yr, r, scale, x0, y0, *xx, *yy;
  4585.     
  4586.     if (np == 0) return (0);
  4587.     
  4588.     xx = (double *) memory (CNULL, n_alloc, sizeof (double), "radial_clip");
  4589.     yy = (double *) memory (CNULL, n_alloc, sizeof (double), "radial_clip");
  4590.     
  4591.     if (!map_outside (lon[0], lat[0])) {
  4592.         geo_to_xy (lon[0], lat[0], &xx[0], &yy[0]);
  4593.         n++;
  4594.     }
  4595.     for (i = 1; i < np; i++) {
  4596.         this = map_outside (lon[i], lat[i]);
  4597.         if (break_through (lon[i-1], lat[i-1], lon[i], lat[i])) {    /* Crossed map_boundary */
  4598.             map_crossing (lon[i-1], lat[i-1], lon[i], lat[i], xlon, xlat, xc, yc, sides);
  4599.             xx[n] = xc[0];    yy[n] = yc[0];
  4600.             n++;
  4601.             if (n == n_alloc) {
  4602.                 n_alloc += GMT_CHUNK;
  4603.                 xx = (double *) memory ((char *)xx, n_alloc, sizeof (double), "radial_clip");
  4604.                 yy = (double *) memory ((char *)yy, n_alloc, sizeof (double), "radial_clip");
  4605.             }
  4606.         }
  4607.         geo_to_xy (lon[i], lat[i], &xr, &yr);
  4608.         if (this) {    /* Project point onto perimeter */
  4609.             geo_to_xy (project_info.central_meridian, project_info.pole, &x0, &y0);
  4610.             xr -= x0;    yr -= y0;
  4611.             r = hypot (xr, yr);
  4612.             scale = project_info.r / r;
  4613.             xr *= scale;
  4614.             yr *= scale;
  4615.             xr += x0;    yr += y0;
  4616.         }
  4617.         xx[n] = xr;    yy[n] = yr;
  4618.         n++;
  4619.         if (n == n_alloc) {
  4620.             n_alloc += GMT_CHUNK;
  4621.             xx = (double *) memory ((char *)xx, n_alloc, sizeof (double), "radial_clip");
  4622.             yy = (double *) memory ((char *)yy, n_alloc, sizeof (double), "radial_clip");
  4623.         }
  4624.     }
  4625.     
  4626.     xx = (double *) memory ((char *)xx, n, sizeof (double), "radial_clip");
  4627.     yy = (double *) memory ((char *)yy, n, sizeof (double), "radial_clip");
  4628.     *x = xx;
  4629.     *y = yy;
  4630.  
  4631.     return (n);
  4632. }
  4633.  
  4634. int lon_inside (lon, w, e)
  4635. double lon, w, e; {
  4636.     
  4637.     while (lon < project_info.w) lon += 360.0;
  4638.     while (lon > project_info.e) lon -= 360.0;
  4639.     
  4640.     if (lon < w) return (FALSE);
  4641.     if (lon > e) return (FALSE);
  4642.     return (TRUE);
  4643. }
  4644.  
  4645. int geo_to_xy_line (lon, lat, n)
  4646. double lon[], lat[];
  4647. int n; {
  4648.     /* Traces the lon/lat array and returns x,y plus appropriate pen moves */
  4649.     int j, np, this, nx, sides[2], wrap = FALSE, ok;
  4650.     double xlon[2], xlat[2], xx[2], yy[2];
  4651.     double this_x, this_y, last_x, last_y, dummy[2];
  4652.     
  4653.     if (n > gmt_n_alloc) get_plot_array ();
  4654.     
  4655.     np = 0;
  4656.     geo_to_xy (lon[0], lat[0], &last_x, &last_y);
  4657.     if (!map_outside (lon[0], lat[0])) {
  4658.         gmt_x_plot[0] = last_x;     gmt_y_plot[0] = last_y;
  4659.         gmt_pen[np++] = 3;
  4660.     }
  4661.     for (j = 1; j < n; j++) {
  4662.         geo_to_xy (lon[j], lat[j], &this_x, &this_y);
  4663.         this = map_outside (lon[j], lat[j]);
  4664.         nx = 0;
  4665.         if (break_through (lon[j-1], lat[j-1], lon[j], lat[j]))    { /* Crossed map boundary */
  4666.             nx = map_crossing (lon[j-1], lat[j-1], lon[j], lat[j], xlon, xlat, xx, yy, sides);
  4667.             ok = ok_xovers (nx, last_x, this_x, sides, n);
  4668.         }
  4669.         if (gmt_world_map) wrap = wrap_around_check (dummy, last_x, last_y, this_x, this_y, xx, yy, sides, &nx);
  4670.         if (nx == 1) {
  4671.             gmt_x_plot[np] = xx[0];    gmt_y_plot[np] = yy[0];
  4672.             gmt_pen[np++] = pen_status ();
  4673.             if (np == gmt_n_alloc) get_plot_array ();
  4674.         }
  4675.         else if (nx == 2 && ok) {
  4676.             gmt_x_plot[np] = xx[0];    gmt_y_plot[np] = yy[0];
  4677.             gmt_pen[np++] = (wrap) ? 2 : 3;
  4678.             if (np == gmt_n_alloc) get_plot_array ();
  4679.             gmt_x_plot[np] = xx[1];    gmt_y_plot[np] = yy[1];
  4680.             gmt_pen[np++] = (wrap) ? 3 : 2;
  4681.             if (np == gmt_n_alloc) get_plot_array ();
  4682.         }
  4683.         if (!this) {
  4684.             gmt_x_plot[np] = this_x;     gmt_y_plot[np] = this_y;
  4685.             gmt_pen[np++] = 2;
  4686.             if (np == gmt_n_alloc) get_plot_array ();
  4687.         }
  4688.         last_x = this_x;    last_y = this_y;
  4689.     }
  4690.     return (np);
  4691. }    
  4692.  
  4693. int ok_xovers (nx, x0, x1, sides, n)
  4694. int nx;
  4695. double x0, x1;
  4696. int sides[], n; {
  4697.     if (!MAPPING) return (TRUE);    /* Data is not periodic*/
  4698.     if (gmt_world_map || nx < 2) return (TRUE);
  4699.     if ((sides[0] + sides[1]) == 2) return (TRUE);    /* Crossing in the n-s direction */
  4700.     if (fabs (fabs (x0 - x1) - gmt_map_width) < SMALL) return (TRUE);
  4701.     if ((sides[0] + sides[1]) != 4) return (TRUE);    /* Not Crossing in the e-w direction */
  4702.     return (FALSE);
  4703. }    
  4704.  
  4705. int compact_line (x, y, n, pen_flag, pen)
  4706. double x[], y[];
  4707. int n, pen[];
  4708. BOOLEAN pen_flag; {    /* TRUE if pen movements is present */
  4709.     /* compact_line will remove unnecessary points in paths */
  4710.     int i, j;
  4711.     double old_slope, new_slope, dx;
  4712.     char *flag;
  4713.     
  4714.     if (n < 3) return (n);
  4715.     flag = memory (CNULL, n, sizeof (char), "compact_line");
  4716.     
  4717.     old_slope = ( (dx = (x[1] - x[0])) == 0.0) ? copysign (MAXDOUBLE, y[1] - y[0]) : (y[1] - y[0]) / dx;
  4718.     
  4719.     for (i = 1; i < n-1; i++) {
  4720.         new_slope = ( (dx = (x[i+1] - x[i])) == 0.0) ? copysign (MAXDOUBLE, y[i+1] - y[i]) : (y[i+1] - y[i]) / dx;
  4721.         if (new_slope == old_slope && !(pen_flag && (pen[i]+pen[i+1]) > 4))
  4722.             flag[i] = 1;
  4723.         else
  4724.             old_slope = new_slope;
  4725.     }
  4726.     
  4727.     for (i = j = 1; i < n; i++) {    /* i = 1 since first point must be included */
  4728.         if (flag[i] == 0) {
  4729.             x[j] = x[i];
  4730.             y[j] = y[i];
  4731.             if (pen_flag) pen[j] = pen[i];
  4732.             j++;
  4733.         }
  4734.     }
  4735.     free (flag);
  4736.     
  4737.     return (j);
  4738. }
  4739.  
  4740. /* Routines to transform grdfiles to/from map projections */
  4741.  
  4742. int grdproject_init (head, x_inc, y_inc, nx, ny, dpi, offset)
  4743. struct GRD_HEADER *head;
  4744. double x_inc, y_inc;
  4745. int nx, ny, dpi, offset; {
  4746.     int one;
  4747.     
  4748.     one = (offset) ? 0 : 1;
  4749.     
  4750.     if (x_inc > 0.0 && y_inc > 0.0) {
  4751.         head->nx = rint ((head->x_max - head->x_min) / x_inc) + one;
  4752.         head->ny = rint ((head->y_max - head->y_min) / y_inc) + one;
  4753.         head->x_inc = (head->x_max - head->x_min) / (head->nx - one);
  4754.         head->y_inc = (head->y_max - head->y_min) / (head->ny - one);
  4755.     }
  4756.     else if (nx > 0 && ny > 0) {
  4757.         head->nx = nx;    head->ny = ny;
  4758.         head->x_inc = (head->x_max - head->x_min) / (head->nx - one);
  4759.         head->y_inc = (head->y_max - head->y_min) / (head->ny - one);
  4760.     }
  4761.     else if (dpi > 0) {
  4762.         head->nx = rint ((head->x_max - head->x_min) * dpi) + one;
  4763.         head->ny = rint ((head->y_max - head->y_min) * dpi) + one;
  4764.         head->x_inc = (head->x_max - head->x_min) / (head->nx - one);
  4765.         head->y_inc = (head->y_max - head->y_min) / (head->ny- one);
  4766.     }
  4767.     else {
  4768.         fprintf (stderr, "grdproject_init: Necessary arguments not set\n");
  4769.         exit (-1);
  4770.     }
  4771.     head->node_offset = offset;
  4772.     
  4773.     if (gmtdefs.verbose) fprintf (stderr, "grdproject: New size (nx,ny) %d by %d\n", head->nx, head->ny);
  4774. }
  4775.  
  4776. int grd_forward (geo, g_head, rect, r_head, max_radius, center)
  4777. float geo[], rect[];
  4778. struct GRD_HEADER *g_head, *r_head;
  4779. double max_radius;
  4780. BOOLEAN center; {    /* Forward projection from geographical to rectangular grid */
  4781.     int i, j, k, ij, ii, jj, i_r, j_r, nm, di, dj, not_used = 0;
  4782.     float *weight_sum;
  4783.     double dx, dy, dr, x_0, y_0, x, y, lon, lat, delta, weight;
  4784.     double dx2, dy2, xinc2, yinc2, i_max_3r;
  4785.     
  4786.     if (project_info.projection == MERCATOR && g_head->nx == r_head->nx) {
  4787.         merc_forward (geo, g_head, rect, r_head, max_radius, center);
  4788.         return;
  4789.     }
  4790.     
  4791.     nm = r_head->nx * r_head->ny;
  4792.     weight_sum = (float *) memory (CNULL, nm, sizeof (float), "grdproject");
  4793.         
  4794.     if (max_radius == 0.0) {    /* Make sensible default for search radius */
  4795.         dx = 2.0 * (r_head->x_max - r_head->x_min) / (g_head->nx);
  4796.         dy = 2.0 * (r_head->y_max - r_head->y_min) / (g_head->ny);
  4797.         if (dx < r_head->x_inc) dx = r_head->x_inc;
  4798.         if (dy < r_head->y_inc) dy = r_head->y_inc;
  4799.         max_radius = MAX (dx, dy);
  4800.         if (gmtdefs.verbose) fprintf (stderr, "grd_forward: Use max-radius = %lg\n", max_radius);
  4801.     }
  4802.     di = ceil (max_radius / r_head->x_inc);
  4803.     dj = ceil (max_radius / r_head->y_inc);
  4804.     
  4805.     dx2 = 0.5 * g_head->x_inc;    dy2 = 0.5 * g_head->y_inc;
  4806.     xinc2 = 0.5 * r_head->x_inc;    yinc2 = 0.5 * r_head->y_inc;
  4807.     i_max_3r = 3.0 / max_radius;
  4808.     
  4809.     for (j = ij = 0; j < g_head->ny; j++) {
  4810.         lat = g_head->y_max - j * g_head->y_inc;
  4811.         if (g_head->node_offset) lat -= dy2;
  4812.         if (project_info.projection == MERCATOR && fabs (lat) == 90.0) lat = copysign (89.99, lat);
  4813.         for (i = 0; i < g_head->nx; i++, ij++) {
  4814.             if (bad_float ((double)geo[ij])) continue;
  4815.                 
  4816.             lon = g_head->x_min + i * g_head->x_inc;
  4817.             if (g_head->node_offset) lon += dx2;
  4818.             if (map_outside (lon, lat)) continue;
  4819.             geo_to_xy (lon, lat, &x_0, &y_0);
  4820.             if (center) {
  4821.                 x_0 -= project_info.x0;
  4822.                 y_0 -= project_info.y0;
  4823.             }
  4824.             if (r_head->node_offset) {
  4825.                 ii = (x_0 == r_head->x_max) ? r_head->nx - 1 : floor ( (x_0 - r_head->x_min) / r_head->x_inc);
  4826.                 jj = (y_0 == r_head->y_min) ? r_head->ny - 1 : floor ( (r_head->y_max - y_0) / r_head->y_inc);
  4827.             }
  4828.             else {
  4829.                 ii = rint ( (x_0 - r_head->x_min) / r_head->x_inc);
  4830.                 jj = rint ( (r_head->y_max - y_0) / r_head->y_inc);
  4831.             }
  4832.                 
  4833.             for (j_r = jj - dj; j_r <= (jj + dj); j_r++) {
  4834.                 if (j_r < 0 || j_r >= r_head->ny) continue;
  4835.                 for (i_r = ii - di; i_r <= (ii + di); i_r++) {
  4836.                     if (i_r < 0 || i_r >= r_head->nx) continue;
  4837.                     k = j_r * r_head->nx + i_r;
  4838.                     x = r_head->x_min + i_r * r_head->x_inc;
  4839.                     y = r_head->y_max - j_r * r_head->y_inc;
  4840.                     if (r_head->node_offset) {
  4841.                         x += xinc2;
  4842.                         y -= yinc2;
  4843.                     }
  4844.                     dr = hypot (x - x_0, y - y_0);
  4845.                     if (dr > max_radius) continue;
  4846.                     delta = dr * i_max_3r;
  4847.                     weight = 1.0 / (1.0 + delta * delta);
  4848.                     rect[k] += weight * geo[ij];
  4849.                     weight_sum[k] += weight;
  4850.                 }
  4851.             }
  4852.         }
  4853.     }
  4854.     r_head->z_min = MAXDOUBLE;    r_head->z_max = -MAXDOUBLE;
  4855.     for (k = 0; k < nm; k++) {
  4856.         if (weight_sum[k] > 0.0) {
  4857.             rect[k] /= weight_sum[k];
  4858.             r_head->z_min = MIN (r_head->z_min, rect[k]);
  4859.             r_head->z_max = MAX (r_head->z_max, rect[k]);
  4860.         }
  4861.         else {
  4862.             not_used++;
  4863.             rect[k] = gmt_NaN;
  4864.         }
  4865.     }
  4866.         
  4867.     free ((char *)weight_sum);
  4868.     
  4869.     if (not_used) fprintf (stderr, "grd_forward: some projected nodes not loaded (%d)\n", not_used);
  4870. }
  4871.  
  4872. int grd_inverse (geo, g_head, rect, r_head, max_radius, center)
  4873. float geo[], rect[];
  4874. struct GRD_HEADER *g_head, *r_head;
  4875. double max_radius;
  4876. BOOLEAN center; {    /* Transforming from rectangular projection to geographical */
  4877.     int i, j, k, ij, ii, jj, i_r, j_r, nm, di, dj, not_used = 0;
  4878.     float *weight_sum;
  4879.     double dx, dy, dr, lat_0, lon_0, x_0, y_0, lon, lat, x, y, delta, weight;
  4880.     double dx2, dy2, xinc2, yinc2, i_max_3r;
  4881.     
  4882.     if (project_info.projection == MERCATOR && g_head->nx == r_head->nx) {
  4883.         merc_inverse (geo, g_head, rect, r_head, max_radius, center);
  4884.         return;
  4885.     }
  4886.     
  4887.     nm = g_head->nx * g_head->ny;
  4888.         
  4889.     weight_sum = (float *) memory (CNULL, nm, sizeof (float), "grdproject");
  4890.     
  4891.     if (max_radius == 0.0) {    /* Make sensible default for search radius */
  4892.         dx = 2.0 * (r_head->x_max - r_head->x_min) / (g_head->nx);
  4893.         dy = 2.0 * (r_head->y_max - r_head->y_min) / (g_head->ny);
  4894.         if (dx < r_head->x_inc) dx = r_head->x_inc;
  4895.         if (dy < r_head->y_inc) dy = r_head->y_inc;
  4896.         max_radius = MAX (dx, dy);
  4897.         if (gmtdefs.verbose) fprintf (stderr, "grd_inverse: Use max-radius = %lg\n", max_radius);
  4898.     }
  4899.     di = ceil (max_radius / r_head->x_inc);
  4900.     dj = ceil (max_radius / r_head->y_inc);
  4901.         
  4902.     dx2 = 0.5 * g_head->x_inc;    dy2 = 0.5 * g_head->y_inc;
  4903.     xinc2 = 0.5 * r_head->x_inc;    yinc2 = 0.5 * r_head->y_inc;
  4904.     i_max_3r = 3.0 / max_radius;
  4905.     
  4906.     for (j = ij = 0; j < r_head->ny; j++) {
  4907.         y_0 = r_head->y_max - j * r_head->y_inc;
  4908.         if (r_head->node_offset) y_0 -= yinc2;
  4909.         if (center) y_0 += project_info.y0;
  4910.         for (i = 0; i < r_head->nx; i++, ij++) {
  4911.             if (bad_float ((double)rect[ij])) continue;
  4912.                 
  4913.             x_0 = r_head->x_min + i * r_head->x_inc;
  4914.             if (r_head->node_offset) x_0 += xinc2;
  4915.             if (center) x_0 += project_info.x0;
  4916.             xy_to_geo (&lon_0, &lat_0, x_0, y_0);
  4917.             if (g_head->node_offset) {
  4918.                 ii = (lon_0 == g_head->x_max) ? g_head->nx - 1 : floor ( (lon_0 - g_head->x_min) / g_head->x_inc);
  4919.                 jj = (lat_0 == g_head->y_min) ? g_head->ny - 1 : floor ( (g_head->y_max - lat_0) / g_head->y_inc);
  4920.             }
  4921.             else {
  4922.                 ii = rint ( (lon_0 - g_head->x_min) / g_head->x_inc);
  4923.                 jj = rint ( (g_head->y_max - lat_0) / g_head->y_inc);
  4924.             }
  4925.                 
  4926.             for (j_r = jj - dj; j_r <= (jj + dj); j_r++) {
  4927.                 if (j_r < 0 || j_r >= g_head->ny) continue;
  4928.                 for (i_r = ii - di; i_r <= (ii + di); i_r++) {
  4929.                     if (i_r < 0 || i_r >= g_head->nx) continue;
  4930.                     k = j_r * g_head->nx + i_r;
  4931.                     lon = g_head->x_min + i_r * g_head->x_inc;
  4932.                     lat = g_head->y_max - j_r * g_head->y_inc;
  4933.                     if (g_head->node_offset) {
  4934.                         lon += dx2;
  4935.                         lat -= dy2;
  4936.                     }
  4937.                     geo_to_xy (lon, lat, &x, &y);
  4938.                     dr = hypot (x - x_0, y - y_0);
  4939.                     if (dr > max_radius) continue;
  4940.                     delta = dr * i_max_3r;
  4941.                     weight = 1.0 / (1.0 + delta * delta);
  4942.                     geo[k] += weight * rect[ij];
  4943.                     weight_sum[k] += weight;
  4944.                 }
  4945.             }
  4946.         }
  4947.     }
  4948.     g_head->z_min = MAXDOUBLE;    g_head->z_max = -MAXDOUBLE;
  4949.     for (k = 0; k < nm; k++) {    /* Compute weighted average */
  4950.         if (weight_sum[k] > 0.0) {
  4951.             geo[k] /= weight_sum[k];
  4952.             g_head->z_min = MIN (g_head->z_min, geo[k]);
  4953.             g_head->z_max = MAX (g_head->z_max, geo[k]);
  4954.         }
  4955.         else {
  4956.             not_used++;
  4957.             geo[k] = gmt_NaN;
  4958.         }
  4959.     }
  4960.     
  4961.     free ((char *)weight_sum);
  4962.     
  4963.     if (not_used) fprintf (stderr, "grdproject: some geographical nodes not loaded (%d)\n", not_used);
  4964. }
  4965.  
  4966. int merc_forward (geo, g_head, rect, r_head, max_radius, center)
  4967. float geo[], rect[];
  4968. struct GRD_HEADER *g_head, *r_head;
  4969. double max_radius;    /* Here max_radius is not used */
  4970. BOOLEAN center; {    /* Forward projection from geographical to mercator grid */
  4971.     int i, j, g_off, r_off;
  4972.     double dy, y, dummy, *lat_in, *lat_out, *hold, *value;
  4973.     
  4974.  
  4975.     lat_in = (double *) memory (CNULL, g_head->ny, sizeof (double), "merc_forward");
  4976.     lat_out = (double *) memory (CNULL, r_head->ny, sizeof (double), "merc_forward");
  4977.     value = (double *) memory (CNULL, r_head->ny, sizeof (double), "merc_forward");
  4978.     hold = (double *) memory (CNULL, g_head->ny, sizeof (double), "merc_forward");
  4979.     
  4980.     dy = (g_head->node_offset) ? 0.5 * g_head->y_inc : 0.0;
  4981.     for (j = 0; j < g_head->ny; j++) lat_in[j] = g_head->y_min + j * g_head->y_inc + dy;
  4982.     
  4983.     dy = (r_head->node_offset) ? 0.5 * r_head->y_inc : 0.0;
  4984.  
  4985.     for (j = 0; j < r_head->ny; j++) { /* Construct merc y-grid */
  4986.         y = r_head->y_min + j * r_head->y_inc + dy;
  4987.         if (center) y -= project_info.y0;
  4988.         xy_to_geo (&dummy, &lat_out[j], 0.0, y);
  4989.     }
  4990.     
  4991.     /* Make sure new nodes outside border are set to be on border (pixel grid only) */
  4992.     
  4993.     j = 0;
  4994.     while (j < r_head->ny && (lat_out[j] - lat_in[0]) < 0.0) lat_out[j++] = lat_in[0];
  4995.     j = r_head->ny-1;
  4996.     while (j >= 0 && (lat_out[j] - lat_in[g_head->ny-1]) > 0.0) lat_out[j--] = lat_in[g_head->ny-1];
  4997.     g_off = g_head->ny - 1;
  4998.     r_off = r_head->ny - 1;
  4999.     for (i = 0; i < r_head->nx; i++) {    /* r_head->nx must == g_head->nx */
  5000.         for (j = 0; j < g_head->ny; j++) hold[g_off-j] = geo[j*g_head->nx+i];    /* Copy and reverse a column */
  5001.         intpol (lat_in, hold, g_head->ny, r_head->ny, lat_out, value, gmtdefs.interpolant);
  5002.         for (j = 0; j < r_head->ny; j++) rect[j*r_head->nx+i] = value[r_off-j];    /* Reverse and load new column */
  5003.     }
  5004.     free ((char *)lat_in);
  5005.     free ((char *)lat_out);
  5006.     free ((char *)value);
  5007.     free ((char *)hold);
  5008. }
  5009.  
  5010. int merc_inverse (geo, g_head, rect, r_head, max_radius, center)
  5011. float geo[], rect[];
  5012. struct GRD_HEADER *g_head, *r_head;
  5013. double max_radius;    /* Here max_radius is not used */
  5014. BOOLEAN center; {    /* Inverse projection from mercator to geographical grid */
  5015.     int i, j, g_off, r_off;
  5016.     double dy, y, dummy, *lat_in, *lat_out, *tmp, *val;
  5017.     
  5018.     lat_in = (double *) memory (CNULL, g_head->ny, sizeof (double), "merc_forward");
  5019.     lat_out = (double *) memory (CNULL, r_head->ny, sizeof (double), "merc_forward");
  5020.     tmp = (double *) memory (CNULL, g_head->ny, sizeof (double), "merc_forward");
  5021.     val = (double *) memory (CNULL, r_head->ny, sizeof (double), "merc_forward");
  5022.     
  5023.     dy = (g_head->node_offset) ? 0.5 * g_head->y_inc : 0.0;
  5024.     for (j = 0; j < g_head->ny; j++) lat_in[j] = g_head->y_min + j * g_head->y_inc + dy;
  5025.     
  5026.     dy = (r_head->node_offset) ? 0.5 * r_head->y_inc : 0.0;
  5027.     for (j = 0; j < r_head->ny; j++) { /* Construct merc y-grid */
  5028.         y = r_head->y_min + j * r_head->y_inc + dy;
  5029.         if (center) y -= project_info.y0;
  5030.         xy_to_geo (&dummy, &lat_out[j], 0.0, y);
  5031.     }
  5032.     
  5033.     /* Make sure new nodes outside border are set to be on border (pixel grid only) */
  5034.     
  5035.     j = 0;
  5036.     while (j < r_head->ny && (lat_in[j] - lat_out[0]) < 0.0) lat_in[j++] = lat_out[0];
  5037.     j = r_head->ny-1;
  5038.     while (j >= 0 && (lat_in[j] - lat_out[g_head->ny-1]) > 0.0) lat_in[j--] = lat_out[g_head->ny-1];
  5039.     
  5040.     g_off = g_head->ny - 1;
  5041.     r_off = r_head->ny - 1;
  5042.     for (i = 0; i < g_head->nx; i++) {    /* r_head->nx must == g_head->nx */
  5043.         for (j = 0; j < r_head->ny; j++) val[r_off-j] = rect[j*r_head->nx+i];    /* Copy and reverse a column */
  5044.         intpol (lat_out, val, r_head->ny, g_head->ny, lat_in, tmp, gmtdefs.interpolant);
  5045.         for (j = 0; j < g_head->ny; j++) geo[j*g_head->nx+i] = tmp[g_off-j];    /* Copy and reverse a column */
  5046.     }
  5047.     free ((char *)lat_in);
  5048.     free ((char *)lat_out);
  5049.     free ((char *)val);
  5050.     free ((char *)tmp);
  5051. }
  5052.  
  5053. int two_d_to_three_d (x, y, n)
  5054. double x[], y[];
  5055. int n; {
  5056.     int i;
  5057.     
  5058.     /* Convert from two-D to three-D coordinates */
  5059.     
  5060.     for (i = 0; i < n; i++) xy_do_z_to_xy (x[i], y[i], project_info.z_level, &x[i], &y[i]);
  5061. }
  5062.  
  5063. int azim_2_angle (lon, lat, c, azim, angle)
  5064. double lon, lat, c, azim;    /* All variables in degrees */
  5065. double *angle; {
  5066.     double lon1, lat1, x0, x1, y0, y1, sinc, cosc, sinaz, cosaz, sinl, cosl;
  5067.     
  5068.     if (project_info.projection < MERCATOR) {    /* Trivial case */
  5069.         *angle = 90.0 - azim;
  5070.         return;
  5071.     }
  5072.  
  5073.     /* Find second point c spherical degrees away in the azim direction */
  5074.     
  5075.     geo_to_xy (lon, lat, &x0, &y0);
  5076.  
  5077.     azim  *= D2R;
  5078.     sinaz = sin (azim);
  5079.     cosaz = cos (azim);
  5080.     c   *= D2R;
  5081.     lat *= D2R;
  5082.     sinc = sin (c);
  5083.     cosc = cos (c);
  5084.     sinl = sin (lat);
  5085.     cosl = cos (lat);
  5086.     
  5087.     lon1 = lon + R2D * atan (sinc * sinaz / (cosl * cosc - sinl * sinc * cosaz));
  5088.     lat1 = R2D * d_asin (sinl * cosc + cosl * sinc * cosaz);
  5089.  
  5090.     /* Convert to x,y and get angle */
  5091.     
  5092.     geo_to_xy (lon1, lat1, &x1, &y1);
  5093.     
  5094.     *angle = d_atan2 (y1 - y0, x1 - x0) * R2D;
  5095. }
  5096.  
  5097. int gmt_check_R_J (clon)    /* Make sure -R and -J agree for global plots; J given priority */
  5098. double *clon; {
  5099.     double lon0;
  5100.     
  5101.     lon0 = 0.5 * (project_info.w + project_info.e);
  5102.     if (gmt_world_map && lon0 != *clon) {
  5103.         project_info.w = *clon - 180.0;
  5104.         project_info.e = *clon + 180.0;
  5105.         fprintf (stderr, "%s: GMT Warning: Central meridian set with -J (%lg) implies -R%lg/%lg/%lg/%lg\n",
  5106.             gmt_program, *clon, project_info.w, project_info.e, project_info.s, project_info.n);
  5107.     }
  5108.     else if (!gmt_world_map && !(project_info.w <= *clon && *clon <= project_info.e)) {    /* Must reset meridian */
  5109.         *clon = lon0;
  5110.         fprintf (stderr, "%s: GMT Warning: Central meridian outside region, reset to %lg\n", gmt_program, lon0);
  5111.     }    
  5112. }
  5113.  
  5114. int gmt_set_spherical () {    /* Force spherical solution */
  5115.     gmtdefs.ellipsoid = N_ELLIPSOIDS - 1;    /* Use equatorial radius */
  5116.     EQ_RAD = gmtdefs.ellipse[gmtdefs.ellipsoid].eq_radius;
  5117.     M_PR_DEG = PI_2 * EQ_RAD / 360.0;
  5118.     ECC = ECC2 = ECC4 = ECC6 = 0.0;
  5119.     if (gmtdefs.verbose) fprintf (stderr, "%s: GMT Warning: Spherical approximation used!\n", gmt_program);
  5120. }
  5121.  
  5122. int map_setinfo (xmin, xmax, ymin, ymax, scl)
  5123. double xmin, xmax, ymin, ymax, scl; {    /* Set [and rescale] parameters */
  5124.     double factor;
  5125.      
  5126.     if (project_info.gave_map_width) {    /* Must rescale */
  5127.         factor = scl / ((xmax - xmin) * project_info.x_scale);
  5128.         project_info.x_scale *= factor;
  5129.         project_info.y_scale *= factor;
  5130.     }
  5131.     map_setxy (xmin, xmax, ymin, ymax);
  5132. }
  5133.  
  5134. int map_setxy (xmin, xmax, ymin, ymax)
  5135. double xmin, xmax, ymin, ymax; {    /* Set x/y parameters */
  5136.      
  5137.     project_info.xmax = (xmax - xmin) * project_info.x_scale;
  5138.     project_info.ymax = (ymax - ymin) * project_info.y_scale;
  5139.     project_info.x0 = -xmin * project_info.x_scale;
  5140.     project_info.y0 = -ymin * project_info.y_scale;
  5141. }
  5142.  
  5143. int map_clip_path (x, y, donut)
  5144. double *x[], *y[];
  5145. BOOLEAN *donut; {
  5146.     /* This function returns a clip path corresponding to the
  5147.      * extent of the map.
  5148.      */
  5149.      
  5150.     double *work_x, *work_y, angle, da, r0;
  5151.     int i, j, np;
  5152.     
  5153.     *donut = FALSE;
  5154.     
  5155.     if (!project_info.region)    /* Rectangular map boundary */
  5156.         np = 4;
  5157.     else {
  5158.         switch (project_info.projection) {
  5159.             case LINEAR:
  5160.             case MERCATOR:
  5161.             case CYL_EQ:
  5162.             case CYL_EQDIST:
  5163.             case OBLIQUE_MERC:
  5164.                 np = 4;
  5165.                 break;
  5166.             case POLAR:
  5167.                 *donut = (project_info.s > 0.0 && fabs (project_info.w - project_info.e) == 360.0);
  5168.                 np = gmtdefs.n_lon_nodes + 1;
  5169.                 if (project_info.s > 0.0) np *= 2; 
  5170.                 break;
  5171.             case STEREO:
  5172.             case LAMBERT:
  5173.             case LAMB_AZ_EQ:
  5174.             case ORTHO:
  5175.             case AZ_EQDIST:
  5176.             case ALBERS:
  5177.                 np = 2 * gmtdefs.n_lon_nodes + 2;
  5178.                 break;
  5179.             case MOLLWEIDE:
  5180.             case SINUSOIDAL:
  5181.             case ROBINSON:
  5182.                 np = 2 * gmtdefs.n_lat_nodes + 2;
  5183.                 break;
  5184.             case WINKEL:
  5185.             case HAMMER:
  5186.             case ECKERT:
  5187.                 np = 2 * gmtdefs.n_lat_nodes + 2;
  5188.                 if (project_info.s != -90.0) np += gmtdefs.n_lon_nodes - 1;
  5189.                 if (project_info.n != 90.0) np += gmtdefs.n_lon_nodes - 1;
  5190.                 break;
  5191.             case TM:
  5192.             case UTM:
  5193.             case CASSINI:
  5194.                 np = 2 * (gmtdefs.n_lon_nodes + gmtdefs.n_lat_nodes);
  5195.                 break;
  5196.         }
  5197.     }
  5198.     
  5199.     work_x = (double *)memory (CNULL, np, sizeof (double), "map_clip_on");
  5200.     work_y = (double *)memory (CNULL, np, sizeof (double), "map_clip_on");
  5201.     
  5202.     if (!project_info.region) {
  5203.         work_x[0] = work_x[3] = project_info.xmin;    work_y[0] = work_y[1] = project_info.ymin;
  5204.         work_x[1] = work_x[2] = project_info.xmax;    work_y[2] = work_y[3] = project_info.ymax;
  5205.     
  5206.     }
  5207.     else {
  5208.         switch (project_info.projection) {    /* Fill in clip path */
  5209.             case LINEAR:
  5210.             case MERCATOR:
  5211.             case CYL_EQ:
  5212.             case CYL_EQDIST:
  5213.             case OBLIQUE_MERC:
  5214.                 work_x[0] = work_x[3] = project_info.xmin;    work_y[0] = work_y[1] = project_info.ymin;
  5215.                 work_x[1] = work_x[2] = project_info.xmax;    work_y[2] = work_y[3] = project_info.ymax;
  5216.                 break;
  5217.             case LAMBERT:
  5218.             case ALBERS:
  5219.                 for (i = j = 0; i <= gmtdefs.n_lon_nodes; i++, j++)
  5220.                     geo_to_xy (project_info.w + i * gmtdefs.dlon, project_info.s, &work_x[j], &work_y[j]);
  5221.                 for (i = 0; i <= gmtdefs.n_lon_nodes; i++, j++)
  5222.                     geo_to_xy (project_info.e - i * gmtdefs.dlon, project_info.n, &work_x[j], &work_y[j]);
  5223.                 break;
  5224.             case TM:
  5225.             case UTM:
  5226.             case CASSINI:
  5227.                 for (i = j = 0; i < gmtdefs.n_lon_nodes; i++, j++)    /* South */
  5228.                     geo_to_xy (project_info.w + i * gmtdefs.dlon, project_info.s, &work_x[j], &work_y[j]);
  5229.                 for (i = 0; i < gmtdefs.n_lat_nodes; j++, i++)    /* East */
  5230.                     geo_to_xy (project_info.e, project_info.s + i * gmtdefs.dlat, &work_x[j], &work_y[j]);
  5231.                 for (i = 0; i < gmtdefs.n_lon_nodes; i++, j++)    /* North */
  5232.                     geo_to_xy (project_info.e - i * gmtdefs.dlon, project_info.n, &work_x[j], &work_y[j]);
  5233.                 for (i = 0; i < gmtdefs.n_lat_nodes; j++, i++)    /* West */
  5234.                     geo_to_xy (project_info.w, project_info.n - i * gmtdefs.dlat, &work_x[j], &work_y[j]);
  5235.                 break;
  5236.             case POLAR:
  5237.                 r0 = project_info.r * project_info.s / project_info.n;
  5238.                 if (*donut) {
  5239.                     np /= 2;
  5240.                     da = 2 * M_PI / np;
  5241.                     for (i = 0, j = 2*np-1; i < np; i++, j--) {    /* Draw outer clippath */
  5242.                         angle = i * da;
  5243.                         work_x[i] = project_info.r * (1.0 + cos (angle));
  5244.                         work_y[i] = project_info.r * (1.0 + sin (angle));
  5245.                         /* Do inner clippath and put it at end of array */
  5246.                         work_x[j] = project_info.r + r0 * cos (angle);
  5247.                         work_y[j] = project_info.r + r0 * sin (angle);
  5248.                     }
  5249.                 }
  5250.                 else {
  5251.                     da = fabs (project_info.e - project_info.w) / (gmtdefs.n_lon_nodes - 1);
  5252.                     for (i = j = 0; i <= gmtdefs.n_lon_nodes; i++, j++)    /* Draw outer clippath */
  5253.                         geo_to_xy (project_info.w + i * da, project_info.n, &work_x[j], &work_y[j]);
  5254.                     for (i = gmtdefs.n_lon_nodes; project_info.s > 0.0 && i >= 0; i--, j++)    /* Draw inner clippath */
  5255.                         geo_to_xy (project_info.w + i * da, project_info.s, &work_x[j], &work_y[j]);
  5256.                 }
  5257.                 break;
  5258.             case LAMB_AZ_EQ:
  5259.             case ORTHO:
  5260.             case AZ_EQDIST:
  5261.                 da = 2.0 * M_PI / np;
  5262.                 for (i = 0; i < np; i++) {
  5263.                     angle = i * da;
  5264.                     work_x[i] = project_info.r * (1.0 + cos (angle));
  5265.                     work_y[i] = project_info.r * (1.0 + sin (angle));
  5266.                 }
  5267.                 break;
  5268.             case STEREO:
  5269.                 if (project_info.polar) {
  5270.                     for (i = j = 0; i <= gmtdefs.n_lon_nodes; i++, j++)
  5271.                         geo_to_xy (project_info.w + i * gmtdefs.dlon, project_info.s, &work_x[j], &work_y[j]);
  5272.                     for (i = 0; i <= gmtdefs.n_lon_nodes; i++, j++)
  5273.                         geo_to_xy (project_info.e - i * gmtdefs.dlon, project_info.n, &work_x[j], &work_y[j]);
  5274.                 }
  5275.                 else {
  5276.                     da = 2.0 * M_PI / np;
  5277.                     for (i = 0; i < np; i++) {
  5278.                         angle = i * da;
  5279.                         work_x[i] = project_info.r * (1.0 + cos (angle));
  5280.                         work_y[i] = project_info.r * (1.0 + sin (angle));
  5281.                     }
  5282.                 }
  5283.                 break;
  5284.             case MOLLWEIDE:
  5285.             case SINUSOIDAL:
  5286.             case ROBINSON:
  5287.                 for (i = j = 0; i <= gmtdefs.n_lat_nodes; i++, j++)    /* Right */
  5288.                     geo_to_xy (project_info.e, project_info.s + i * gmtdefs.dlat, &work_x[j], &work_y[j]);
  5289.                 for (i = gmtdefs.n_lat_nodes; i >= 0; j++, i--)    /* Left */
  5290.                     geo_to_xy (project_info.w, project_info.s + i * gmtdefs.dlat, &work_x[j], &work_y[j]);
  5291.                 break;
  5292.             case HAMMER:
  5293.             case WINKEL:
  5294.             case ECKERT:
  5295.                 for (i = j = 0; i <= gmtdefs.n_lat_nodes; i++, j++)    /* Right */
  5296.                     geo_to_xy (project_info.e, project_info.s + i * gmtdefs.dlat, &work_x[j], &work_y[j]);
  5297.                 for (i = 1; project_info.n != 90.0 && i < gmtdefs.n_lon_nodes; i++, j++)
  5298.                     geo_to_xy (project_info.e - i * gmtdefs.dlon, project_info.n, &work_x[j], &work_y[j]);
  5299.                 for (i = gmtdefs.n_lat_nodes; i >= 0; j++, i--)    /* Left */
  5300.                     geo_to_xy (project_info.w, project_info.s + i * gmtdefs.dlat, &work_x[j], &work_y[j]);
  5301.                 for (i = 1; project_info.s != -90.0 && i < gmtdefs.n_lon_nodes; i++, j++)
  5302.                     geo_to_xy (project_info.w + i * gmtdefs.dlon, project_info.s, &work_x[j], &work_y[j]);
  5303.                 break;
  5304.         }
  5305.     }
  5306.     
  5307.     if (!(*donut)) np = compact_line (work_x, work_y, np, FALSE, 0);
  5308.     if (project_info.three_D) two_d_to_three_d (work_x, work_y, np);
  5309.     
  5310.     *x = work_x;
  5311.     *y = work_y;
  5312.     
  5313.     return (np);
  5314. }
  5315.  
  5316.