#--P-A-T------------------------------------------------------------------- # # globular.cmd - globular projections in two hemispheres # #-------------------------------------------------------------------------- device gif 640 480 globular image lmask30 graticule 30 win new bacon-left <<0.020, 0.25, 0.57, 0.89>>, border 0 add background lmask30 proj bacon origin 0, -110 select whole, zoom .99 window copy bacon-right <<0.251, 0.48, 0.57, 0.89>> origin 0, 70 select whole, zoom .99 window new apian-left <<0.520, 0.75, 0.57, 0.89>>, border 0 proj ortel origin 0, -110 range 90 add background lmask30 select whole, zoom .99 window copy apian-right <<0.751, 0.98, 0.57, 0.89>> origin 0, 70 select whole, zoom .99 window new fournier1-left <<0.020, 0.25, 0.10, 0.44>>, border 0 proj fournier origin 0, -110 add background lmask30 select whole, zoom .99 window copy fournier1-right <<0.251, 0.48, 0.10, 0.44>> origin 0, 70 select whole, zoom .99 window new nicolosi-left <<0.520, 0.75, 0.10, 0.44>>, border 0 proj nicolosi origin 0, -110 add background lmask30 select whole, zoom .99 window copy nicolosi-right <<0.751, 0.98, 0.10, 0.44>> origin 0, 70 select whole, zoom .99 # ----- ROOT ----------------------------------------------------------------- window root delete all color fill-background navyblue color fill-foreground white cmap title lightblue, 6, black add label <0.5, 0.95>, Globular Projections in Two Hemispheres, \ anchor centered, font cour24b, cmap title, spacing .05 add label <0.25, 0.54>, Bacon, anchor centered, font cour20b, cmap title add label <0.25, 0.51>, "Peter Bacon, England, ~~1265", \ anchor centered, font cour14, spacing 0.15, color gray70 add label <0.74, 0.54>, Apian I, anchor centered, font cour20b, cmap title add label <0.74, 0.51>, "Peter Apian, Saxony, 1524", \ anchor centered, font cour14, spacing 0.15, color gray70 add label <0.25, 0.08>, Fournier I, \ anchor centered, font cour20b, cmap title add label <0.25, 0.045>, "Georges Fournier, France, 1643", \ anchor centered, font cour14, spacing 0.15, color gray70 add label <0.74, 0.08>, Nicolosi, anchor centered, font cour20b, cmap title add label <0.74, 0.045>, "Giambattista Nicolosi, Rome, 1660", \ anchor centered, font cour14, spacing 0.15, color gray70 echo ~yComparative globular hemispheres are ready to draw. # $Id: globular.cmd,v 1.20 2011/04/14 02:26:48 ian Exp $