Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!utgpu!water!watmath!clyde!rutgers!super.upenn.edu!eecae!nancy!umix!delrio!boomer!hyc
From: hyc@boomer.UUCP
Newsgroups: comp.sources.bugs
Subject: Patches to cursive (from comp.sources.games)
Message-ID: <38e160ad.c6e5@delrio.cc.umich.edu>
Date: Sat, 5-Dec-87 04:37:06 EST
Article-I.D.: delrio.38e160ad.c6e5
Posted: Sat Dec  5 04:37:06 1987
Date-Received: Thu, 10-Dec-87 03:17:30 EST
Sender: usenet@delrio.cc.umich.edu
Reply-To: hyc@umix.cc.umich.edu (Howard Chu)
Organization: University of Michigan Computing Center, Ann Arbor
Lines: 536
UUCP-Path: {uunet,rutgers}!umix!hyc

I just unpacked this little gem tonight, and started messing around...
Some of the characters looked a little odd, and I changed them to what
I consider a smoother appearance... See what you think...

Oh yeah, I also ported this to the C compiler running on our big IBM
mainframe. Pretty cool, once you get past the eccentricities of MTS...
	     _    ,                           __
	    ' )  /                     /     /  ) /
	     /--/ ____, , , __. __  __/     /    /_  . .
	    /  (_(_) (_(_/_(_(_/ (_(_(_    (__/ / /_(_/_

	University of Michigan Computing Center, Unix Project

#### feed me to patch! ####
*** cursive.c.old	Sat Dec  5 09:22:00 1987
--- cursive.c	Sat Dec  5 09:21:14 1987
***************
*** 59,64 ****
--- 59,73 ----
   *				<_/
   */
  
+ /*
+  * $Log:	cursive.c,v $
+  * Revision 1.2  87/12/05  09:18:09  hyc
+  * Added #ifdef's for MTS CBell, or Bell Labs C in MTS.
+  * (The Michigan Terminal System, our homegrown IBM 370 OS. Funstuff.
+  *  But hey, it was the first 370 OS with a real filesystem...  }-)
+  * 
+  */
+ 
  #include <stdio.h>
  #include "cursive.h"
  
***************
*** 215,220 ****
--- 224,235 ----
  char *ch;
  short lcode;
  
+ #ifdef mts
+ 
+ int mode=&0x040, lnum=0;
+ 
+ 	etoa(s,strlen(s));
+ #endif
  	lasttail = -1;
  	firstletter = 1;
  	space = 0;
***************
*** 257,264 ****
--- 272,284 ----
  	/* print the line and release the memory */
  	for (i=0;i<6;i++)
  	{
+ #ifdef mts
+ 		lcode=(short)c[i];
+ 		mtswrite(buffer[i],&lcode,&mod,&lnum,"SPRINT  ");
+ #else mts
  		buffer[i][c[i]++] = '\n';
  		write(1,buffer[i],c[i]);
+ #endif mts
  		free(buffer[i]);
  	}
  }
*** font.c.old	Sat Dec  5 09:22:18 1987
--- font.c	Sat Dec  5 09:21:55 1987
***************
*** 17,22 ****
--- 17,30 ----
   * with the line coming in on line 3.
   */
  
+ /*
+  * $Log:	font.c,v $
+  * Revision 1.2  87/12/05  09:19:30  hyc
+  * Cleaned up some of the characters, made them nicer looking.
+  * To me, anyway.
+  * 
+  */
+ 
  #include "cursive.h"
  
  struct letter list[] = {
***************
*** 26,32 ****
  	"",
  	"",
  	 "__.",
! 	"(_/|",
  	"",
  	""
  	},
--- 34,40 ----
  	"",
  	"",
  	 "__.",
! 	"(_(",
  	"",
  	""
  	},
***************
*** 65,71 ****
  	"",
  	    "/",
  	 "__/",
! 	"(_/",
  	"",
  	""
  	},
--- 73,79 ----
  	"",
  	    "/",
  	 "__/",
! 	"(_(",
  	"",
  	""
  	},
***************
*** 78,84 ****
  	"",
  	"",
  	 "_",
! 	"</",
  	"",
  	""
  	},
--- 86,92 ----
  	"",
  	"",
  	 "_",
! 	"(<",
  	"",
  	""
  	},
***************
*** 130,136 ****
  	"",
  	"",
  	 "o",
! 	"<",
  	"",
  	""
  	},
--- 138,144 ----
  	"",
  	"",
  	 "o",
! 	"(",
  	"",
  	""
  	},
***************
*** 166,179 ****
  
  #define LL 11		/* l type 1 */
  	{ {
! 	   "_",
! 	  "//",
  	 "//",
! 	"</",
  	"",
  	""
  	},
! 	{3,2,1,0,0,0},
  	3,3
  	},
  
--- 174,187 ----
  
  #define LL 11		/* l type 1 */
  	{ {
! 	"",
! 	  "/)",
  	 "//",
! 	"(/",
  	"",
  	""
  	},
! 	{0,2,1,0,0,0},
  	3,3
  	},
  
***************
*** 181,188 ****
  	{ {
  	"",
  	"",
! 	 "______",
! 	"/ / / <",
  	"",
  	""
  	},
--- 189,196 ----
  	{ {
  	"",
  	"",
! 	 "____",
! 	"/) ) )",
  	"",
  	""
  	},
***************
*** 194,201 ****
  	{ {
  	"",
  	"",
! 	 "____",
! 	"/ / <",
  	"",
  	""
  	},
--- 202,209 ----
  	{ {
  	"",
  	"",
! 	 "__",
! 	"/) )",
  	"",
  	""
  	},
***************
*** 273,279 ****
  	"",
  	 "_/_",
  	 "/",
! 	"<_",
  	"",
  	""
  	},
--- 281,287 ----
  	"",
  	 "_/_",
  	 "/",
! 	"(_",
  	"",
  	""
  	},
***************
*** 337,348 ****
  	{ {
  	"",
  	"",
! 	 "__  ,",
! 	"/ (_/",
! 	   "/",
! 	  "'"
  	 },
! 	{0,0,1,0,3,2},
  	3,3
  	},
  
--- 345,356 ----
  	{ {
  	"",
  	"",
! 	 ", ,",
! 	"(_/",
! 	 "/",
! 	"'"
  	 },
! 	{0,0,1,0,1,0},
  	3,3
  	},
  
***************
*** 364,370 ****
  	"",
  	"",
  	 "__.",
! 	"(_/|",
  	"",
  	""
  	},
--- 372,378 ----
  	"",
  	"",
  	 "__.",
! 	"(_(",
  	"",
  	""
  	},
***************
*** 403,409 ****
  	"",
  	    "/",
  	"___/",
! 	"(_/",
  	"",
  	""
  	},
--- 411,417 ----
  	"",
  	    "/",
  	"___/",
! 	"(_(",
  	"",
  	""
  	},
***************
*** 415,422 ****
  	{ {
  	"",
  	"",
! 	 "/>",
! 	"(_",
  	"",
  	""
  	},
--- 423,430 ----
  	{ {
  	"",
  	"",
! 	 "_",
! 	"(<",
  	"",
  	""
  	},
***************
*** 468,474 ****
  	"",
  	"",
  	 "o",
! 	"<_",
  	"",
  	""
  	},
--- 476,482 ----
  	"",
  	"",
  	 "o",
! 	"(_",
  	"",
  	""
  	},
***************
*** 519,526 ****
  	{ {
  	"",
  	"",
! 	"_______",
! 	"/ / / <",
  	"",
  	""
  	},
--- 527,534 ----
  	{ {
  	"",
  	"",
! 	"_____",
! 	"/) ) )",
  	"",
  	""
  	},
***************
*** 532,539 ****
  	{ {
  	"",
  	"",
! 	"_____",
! 	"/ / <",
  	"",
  	""
  	},
--- 540,547 ----
  	{ {
  	"",
  	"",
! 	"___",
! 	"/) )",
  	"",
  	""
  	},
***************
*** 803,826 ****
  
  #define UI 60		/* I */
  	{ {
! 	     "_",
! 	    "| )",
! 	",---|/",
! 	 "\\_/ \\",
  	"",
  	""
  	},
! 	{5,4,0,1,0,0},
! 	-1,3
  	},
  
  #define UJ 61		/* J */
  	{ {
  	  "___",
! 	 "(   >",
  	  "__/",
  	 "/ /",
! 	"<_/",
  	""
  	},
  	{2,1,2,1,0,0},
--- 811,834 ----
  
  #define UI 60		/* I */
  	{ {
! 	  "__",
! 	 "(  )",
! 	   "/",
! 	"\\_/",
  	"",
  	""
  	},
! 	{2,1,3,0,0,0},
! 	-1,-1
  	},
  
  #define UJ 61		/* J */
  	{ {
  	  "___",
! 	 "(   )",
  	  "__/",
  	 "/ /",
! 	"(_/",
  	""
  	},
  	{2,1,2,1,0,0},
***************
*** 1053,1063 ****
  	"o o",
  	"' '",
  	"",
  	"",
- 	"",
  	""
  	},
! 	{0,0,0,0,0,0},
  	-1,-1
  	},
  
--- 1061,1071 ----
  	"o o",
  	"' '",
  	"",
+ 	 " ",
  	"",
  	""
  	},
! 	{0,0,0,1,0,0},
  	-1,-1
  	},
  
***************
*** 1089,1102 ****
  
  #define PF 82		/* ' */
  	{ {
! 	"o",
! 	"'",
  	"",
  	"",
- 	"",
  	""
  	},
! 	{0,0,0,0,0,0},
  	-1,-1
  	},
  
--- 1097,1110 ----
  
  #define PF 82		/* ' */
  	{ {
! 	 "o",
! 	 "'",
  	"",
+ 	" ",
  	"",
  	""
  	},
! 	{1,1,0,0,0,0},
  	-1,-1
  	},
  
***************
*** 1118,1128 ****
  	"",
  	"",
  	"---",
  	"",
- 	"",
  	""
  	},
! 	{0,0,0,0,0,0},
  	-1,-1
  	},
  
--- 1126,1136 ----
  	"",
  	"",
  	"---",
+ 	 " ",
  	"",
  	""
  	},
! 	{0,0,0,1,0,0},
  	-1,-1
  	},
  
***************
*** 1180,1193 ****
  
  #define PB 89		/* ` */
  	{ {
! 	"o",
! 	"`",
  	"",
  	"",
- 	"",
  	""
  	},
! 	{0,0,0,0,0,0},
  	-1,-1
  	}
  	};
--- 1188,1201 ----
  
  #define PB 89		/* ` */
  	{ {
! 	  "o",
! 	  "`",
  	"",
+ 	" ",
  	"",
  	""
  	},
! 	{2,2,0,0,0,0},
  	-1,-1
  	}
  	};