phantasia/map.c

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