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