Google
 

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