Trailing-Edge
-
PDP-10 Archives
-
decuslib20-02
-
decus/20-0049/font9.for
There is 1 other file named font9.for in the archive. Click here to see a list.
BLOCK DATA
C
C FONT9 06/01/69
C FONT9 CONTAINS COORDINATE ARRAY FOR HIGH QUALITY DRAFTING LETTERS.
C FONT9 IS THE FONT RECOMMENDED FOR USE WITH THE GENPLT-II PACKAGE.
C
C CONTENTS OF KRD(1) THROUGH KRD(379) ARE SAME FOR FONTS 7, 8 AND 9.
C LETTERING IS TERMINATED IF $3 OR $4 IS FOUND IN ALPHAMERIC STRING.
C
C DONALD BARTH, C/O K.B. WIBERG, DEPT. OF CHEMISTRY, YALE UNIVERSITY
C
COMMON/FONT/LOCATN(128),KRD(950),ICHECK(2)
DATA ICHECK/4HFONT,4H MIS/
DATA (LOCATN(I), I= 1, 32) / 2700270, 802790279, 802810281,
1 2880288, 2980298, 3000300, 3070307, 3170317, 3200320,
2 3340334, 10001, 903780378, 3650365, 10001, 10001,
3 10001, 103710371, 20119, 50126, 130133, 200139,
4 260146, 290154, 320158, 400168, 430174, 10001,
5 703600360,1103490349, 10001, 10001, 10001/
DATA (LOCATN(I), I= 33, 64) / 203730373, 450180, 500189,
1 540193, 560195, 590203, 610209, 700217, 750225,
2 850233, 10001, 500010001, 303740374, 10001, 10001,
3 10001, 10001, 403770377, 910238, 1000246, 1020250,
4 1070256, 1090258, 1120261, 1140264, 1170268, 10001,
5 603540354,1003440344, 10001, 10001, 10001/
DATA ( KRD(I), I= 1, 50) /1003487232, 488320,1038195494,
11003487232, 16301774, 819834761, 946705154, 739803136, 29946555,
2 799859542, 895274737, 721993661, 945622721, 570884385, 171021352,
3 12599348, 124970299, 499708635, 899571645, 29116, 599419640,
4 862834576, 953001766, 776604193, 436208573, 939524124, 902789136,
5 621736960, 29596,1038107216,1003487232, 616443781, 876283424,
6 470058147, 105947148, 16830583, 194309596, 600534873, 964621312,
7 29662, 17712094, 969802685, 973566400,1003487232, 11543590,
8 137627008, 537528067, 913188764,1003487232, 29662/
DATA ( KRD(I), I= 51, 100) / 9815900,1038468992,1003487232,
1 29361024,1003487232, 995098652, 479097728,1003487232, 29568,
2 969864192, 403178113, 775722856, 953041780, 863757979, 566653211,
3 194108468, 16789544, 106073345, 403633152, 29244, 767323000,
4 963530609, 821770797, 14611456, 403178113, 775722856, 953041780,
5 863757979, 566653211, 194108468, 16789544, 106073345, 403667527,
61073552317, 29244, 767323000, 963530609, 821770797, 14645805,
7 940504064, 4327649, 436765377, 841847686, 948808523, 786053456,
8 252857460, 90266745, 230027772, 733801405, 30307294/
DATA ( KRD(I), I= 101, 150) / 499581885, 29369382, 137627008,
1 537528067, 913188764,1003487232, 29819804,1003487232, 997224672,
2 499811228,1003487232, 881630, 97387453, 470234140,1038563228,
31003487232, 97415168, 940504064, 985534209, 637960449, 137402377,
4 11581585, 288805492, 826165214, 961414077, 984616065, 302482049,
5 809343881, 951958289, 691523892, 154159070, 29361085, 985534209,
6 637960449, 137402377, 11581585, 288805492, 826165181, 985534209,
7 637960449, 137402377, 11581585, 288805492, 826165214, 969802685,
8 985502466, 706216320, 236031014, 9448494, 118738324/
DATA ( KRD(I), I= 151, 200) / 558550833, 921578507,1003487232,
1 984634196,1039037148, 599255513, 460751805, 985534209, 637960449,
2 137402377, 11581585, 288805492, 826165214, 961544068, 908920480,
3 537199810,1003487232, 984641536,1038103599, 118738324, 558550833,
4 922630016,1003487232, 978704950, 830333818, 834204028, 162588728,
5 158718942, 486998973, 985291542, 931029914, 935096988, 599288344,
6 595221470, 756022980, 707397088, 335676418,1003487232, 984641536,
71038097236,1038530432,1003487232, 973566400,1003487232, 995119104,
81038103601, 120803604, 389465549, 470776269, 521719444/
DATA ( KRD(I), I= 201, 250) / 760008561, 954074045, 984612884,
11038103599, 118738324, 558550833, 922630016,1003487232, 985027092,
2 725403502, 951986022, 842696192, 402883683, 39855115, 48350451,
3 424604672, 984616065, 302482049, 809343881, 951958289, 691523892,
4 154159070, 22019072,1003487232, 985534209, 637960449, 137402377,
5 11581585, 288805492, 826165214, 961544064,1003487232, 984612884,
61038101549, 116606323, 592106291, 925779901, 984615041, 403276545,
7 875434886, 881567338, 380874925, 116506770, 221630996, 859763712,
8 984634196,1038545317, 473401889, 739115965, 984633351/
DATA ( KRD(I), I= 251, 300) / 38898913, 403178145, 842897287,
11039029120,1003487232, 984633792, 961475584, 995119328, 491422612,
21003487232, 984613716,1038177152,1003487232, 984633792,1039028672,
31073024225, 100664253, 984699796, 918461, 403178113, 775722856,
4 953041780, 863757979, 566653211, 194108468, 16789544, 106073345,
5 403633152, 261482939, 499581885, 26306747, 365392539, 799859542,
6 895274737, 721727723, 143693827, 918461, 93481211, 432566939,
7 799859542, 895274737, 688406190, 819834761, 946705154, 706216320,
8 202475524,1003487232, 806121479, 947844096, 3310912/
DATA ( KRD(I), I= 301, 350) / 503973667, 912139146, 920436369,
1 522537137, 84046652,1003487232, 39887947, 181680559, 553302797,
2 918431622, 910953121, 537297153, 169938982, 9450544, 120805753,
3 599520189, 30307064, 659046827, 375718845, 553272049, 859658070,
4 864807579, 566653211, 195158102, 89246897, 285621775, 720123755,
5 949885796, 808093184, 402883714, 37754889, 45233390, 419361792,
6 168134179, 745318252, 956190582, 898362011, 533098747, 161538070,
7 19973263, 249968109, 686538577, 926800829, 331573400, 89181200,
8 12624967, 138610976,1003487232, 667642648, 895340432/
DATA ( KRD(I), I= 351, 400) / 953001799, 810224224,1003487232,
11073294890, 513189226, 347420014, 452443694, 618212904, 510006205,
2 442997285, 608766497, 503742817, 337973605, 443479040, 629726710,
3 459660632, 363195836, 533261914, 629724659, 421458944, 494344158,
4 15612861, 15612861, 15612894, 727948254, 258644925, 968885181,
5 20860894, 10364861, 0, 0, 0, 0,
6 0, 0, 0, 0, 0, 0,
7 0, 0, 0, 0, 0, 0,
8 0, 0, 0, 0, 0/
END