hyc@boomer.UUCP (12/05/87)
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
}
};