gitweb.dragonflybsd.org Git - dragonfly.git/blame_incremental

... / ...

Commit	Line	Data
	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	}