Merge from vendor branch BSDTAR:
[dragonfly.git] / games / phantasia / map.c
CommitLineData
984263bc
MD
1#define minusminus plusplus
2#define minusplus plusminus
3
4main()
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
128plusplus(s, x, y) /* draw strings in plus plus quadrant */
129char *s;
130int x, y;
131{
132char 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
145plusminus(s, x, y) /* draw strings in plus minus quadrant */
146char *s;
147int x, y;
148{
149char 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}