1: /*      $NetBSD: map.c,v 1.2 1995/03/24 03:58:58 cgd Exp $   */
    2: 
    3: #define minusminus      plusplus
    4: #define minusplus       plusminus
    5: 
    6: main()
    7: {
    8:     /* Set up */
    9: 
   10:     openpl();
   11:     space(-1400, -1000, 1200, 1200);
   12: 
   13:     /* Big box */
   14: 
   15:     move(-1400, -1000);
   16:     cont(-1400, 1000);
   17:     cont(600, 1000);
   18:     cont(600, -1000);
   19:     cont(-1400, -1000);
   20: 
   21:     /* Grid -- horizontal lines every 200 */
   22: 
   23:     linemod("dotted");
   24:     line(600, -800, -1400, -800);
   25:     line(-1400, -600, 600, -600);
   26:     line(600, -400, -1400, -400);
   27:     line(-1400, -200, 600, -200);
   28:     linemod("solid");
   29:     line(600, 0, -1400, 0);
   30:     linemod("dotted");
   31:     line(-1400, 200, 600, 200);
   32:     line(600, 400, -1400, 400);
   33:     line(-1400, 600, 600, 600);
   34:     line(600, 800, -1400, 800);
   35: 
   36:     /* Grid -- vertical lines every 200 */
   37: 
   38:     line(-1200, 1000, -1200, -1000);
   39:     line(-1000, 1000, -1000, -1000);
   40:     line(-800, 1000, -800, -1000);
   41:     line(-600, 1000, -600, -1000);
   42:     linemod("solid");
   43:     line(-400, 1000, -400, -1000);
   44:     linemod("dotted");
   45:     line(-200, 1000, -200, -1000);
   46:     line(0, 1000, 0, -1000);
   47:     line(200, 1000, 200, -1000);
   48:     line(400, 1000, 400, -1000);
   49: 
   50:     /* Circles radius +250 on "center" */
   51: 
   52:     linemod("solid");
   53:     circle(-400, 0, 250);
   54:     circle(-400, 0, 500);
   55:     circle(-400, 0, 750);
   56:     circle(-400, 0, 1000);
   57: 
   58:     /* A few labels */
   59: 
   60:     move(-670, 1075);
   61:     label("- THE PHANTASIA UNIVERSE -");
   62:     line(-630, 1045, -115, 1045);
   63:     move(-360, 80);
   64:     label("Lorien");
   65:     move(-385, -100);
   66:     label("Ithilien");
   67:     move(-560, 80);
   68:     label("Rohan");
   69:     move(-580, -100);
   70:     label("Anorien");
   71:     plusplus("Rovanion", -250, 320);
   72:     plusplus("The Iron Hills", -100, 560);
   73:     plusplus("Rhun", 250, 570);
   74:     minusplus("Dunland", -700, 160);
   75:     minusplus("Eriador", -920, 300);
   76:     minusplus("The Northern Waste", -1240, 320);
   77:     minusminus("Gondor", -720, -180);
   78:     minusminus("South Gondor", -940, -270);
   79:     minusminus("Far Harad", -1100, -500);
   80:     plusminus("Mordor", -180, -300);
   81:     plusminus("Khand", 0, -500);
   82:     plusminus("Near Harad", 40, -780);
   83:     move(340, 900);
   84:     label("The Moors");
   85:     move(300, 840);
   86:     label("Adventurous");
   87:     move(340, -840);
   88:     label("The Moors");
   89:     move(300, -900);
   90:     label("Adventurous");
   91:     move(-1340, 900);
   92:     label("The Moors");
   93:     move(-1340, 840);
   94:     label("Adventurous");
   95:     move(-1340, -840);
   96:     label("The Moors");
   97:     move(-1340, -900);
   98:     label("Adventurous");
   99:     move(700, 1000);
  100:     label("OUTER CIRCLES:");
  101:     line(690, 970, 1000, 970);
  102:     move(700, 900);
  103:     label("> 9:  The Outer Waste");
  104:     move(700, 800);
  105:     label("> 20: The Dead Marshes");
  106:     move(700, 700);
  107:     label("> 35: Kennaquhair");
  108:     move(700, 600);
  109:     label("> 55: Morannon");
  110:     move(700, 300);
  111:     label("(0,0): The Lord's Chamber");
  112: 
  113:     move(700, -400);
  114:     label("Grid squares are 100 x 100");
  115:     move(700, -800);
  116:     label("Created by Ted Estes");
  117:     move(700, -860);
  118:     label("Plotted by Chris Robertson");
  119:     move(700, -920);
  120:     label(" c  1985");
  121:     circle(723, -923, 20);
  122: 
  123:     /* Close down */
  124: 
  125:     move(-1380, 1180);
  126:     closepl();
  127:     exit(0);
  128: }
  129: 
  130: plusplus(s, x, y)       /* draw strings in plus plus quadrant */
  131: char    *s;
  132: int     x, y;
  133: {
  134: char    s1[2];
  135: 
  136:     while (*s)
  137:         {
  138:         move(x, y);
  139:         s1[0] = *s++;
  140:         s1[1] = '\0';
  141:         label(s1);
  142:         x += 25;
  143:         y -= 30;
  144:         }
  145: }
  146: 
  147: plusminus(s, x, y)      /* draw strings in plus minus quadrant */
  148: char    *s;
  149: int     x, y;
  150: {
  151: char    s1[2];
  152: 
  153:     while (*s)
  154:         {
  155:         move(x, y);
  156:         s1[0] = *s++;
  157:         s1[1] = '\0';
  158:         label(s1);
  159:         x += 25;
  160:         y += 30;
  161:         }
  162: }