(FILECREATED "30-Oct-85 11:11:56" ("compiled on " {ERIS}<IRIS>KOTO>SFFONT.;6) "17-Oct-85 18:58:44" recompiled changes: SFDRAW in "INTERLISP-D 17-Oct-85 ..." dated "17-Oct-85 19:19:58")(FILECREATED "30-Oct-85 11:10:33" {ERIS}<IRIS>KOTO>SFFONT.;6 23115 changes to: (RECORDS SF.CHARDESC) (FNS SFDRAW) previous date: "22-Oct-85 17:24:48" {ERIS}<IRIS>KOTO>SFFONT.;4)READ.SPLINE.FONTA0001 D1(NAME ERRORSET L (0 NIL) P 3 C F 4 CHAR F 5 FAM F 6 FONTARRAY F 7 F F 10Q RESETVARSLST F 11Q INPUTSTREAM F 12Q CHARSET F 13Q FAMILY F 14Q RESETY)  ‰	 g  WhhhWc¿Wg  
  c	  c¿Wµg  T	  c
W
  c®UWn 	  c  ¿U@Vg  T[T*¿K	  [`  
  ¿KºIµJhY¸W	  cg  ð²ÓHciJ&¹°é (163Q READ 143Q PRIN1 134Q CHARACTER 107Q \SETSPLINEFONT 102Q ARRAY 66Q \LOOKUPSPLINEFONT 57Q U-CASE 36Q READ 31Q OPENSTREAM)(170Q STOP 140Q PROMPTWINDOW 120Q CHARACTER 50Q FAMILY 26Q INPUT 2 CLOSEF?)()READ.SPLINE.FONT D1(P 12Q RESETZ P 11Q RESETY P 10Q LISPXHIST P 4 F P 3 CHAR P 2 I P 1 FAM P 0 FONTARRAY I 2 CHARSET I 1 FAMILY I 0 FILES F 13Q LISPXHIST F 14Q RESETVARSLST)  N P0@d³>h°:d¼W!
Wo   g  
  ‘h‚g  _
  ¿O“  O½NµMh_M&¾µÇO (64Q ERROR! 55Q RESETRESTORE 42Q READ.SPLINE.FONTA0001)(50Q ERROR 37Q INTERNAL)( 34Q (READ.SPLINE.FONTA0001))SF.DERIVS.TO.BEZIER D1(P 1 I I 4 DERIVATIVES I 3 SCALE I 2 YOFFSET I 1 XOFFSET I 0 KNOT F 5 \FACT.IRIS)  ã AC@ÖÔBC@ÖÔjhhdjhhdjhhdjhhD	  k2IHó³'CDI
  UIkØlÛ(×Ö¼KµLh[ºIkÔY°ÞL&»°÷JJJKl×ÔJJKl×ÔJJKKÔl×ÔJJKKÔl×ÔJJKKKÔÔÔJJKKKÔÔÔJ (75Q NTH 56Q LENGTH)NIL()SF.PRINT D1(P 2 I P 0 FONTARRAY I 3 STREAM I 2 SCALE I 1 FONTFAMILY I 0 STRING F 3 CHAR F 4 \SPLINEFONTSINCORE F 5 FONT F 6 CHARDESC)  n Aµg  T Hµ>o   i
  ¿ki
  ¿Ui
  ¿ki
  ¿o   i
  ¿h	  ¿@	  kZIó›C	  @X°é@J)c¿HS(cµJkÔ°àhddBC  ¿°ñ (151Q SFDRAW 107Q FLUSHOUTPUT 72Q NCHARS 65Q \LISPERROR 60Q PRIN1 47Q SPACES 41Q PRIN1 33Q SPACES 25Q PRIN1)(5 GACHA)( 54Q "not in core.  Load it with READ.SPLINE.FONT" 21Q "Spline font")SFDRAW D1(P 5 CCURVE P 4 XWIDTH P 3 SCALE P 2 Y P 1 X P 0 PRECISION I 5 STREAM I 4 SCALE I 3 YOFFSET I 2 XOFFSET I 1 PRECISION I 0 CHARDESC)  V  Aµl
Bd£E
  Cd£E
  Dµo   g  @dMHIJKE  µîIKg  @Ö\ØJKg  @ÖØE  L (122Q MOVETO 61Q SFDRAW.CLOSED.CURVE 22Q DSPYPOSITION 13Q DSPXPOSITION)(107Q WIDTH 73Q WIDTH 37Q SPLINES)( 31Q 1.0)SFDRAW.CLOSED.CURVE D1(P 13Q DERIVS P 12Q KNOT P 11Q BEZIER P 10Q I P 4 SPLINE P 2 SPPOUTSTREAM P 1 SCALE P 0 STREAM I 5 STREAM I 4 SCALE I 3 YOFFSET I 2 XOFFSET I 1 PRECISION I 0 CCURVE F 14Q \IRIS.VERSION F 15Q \BEZIERBASIS.IRIS) & E	  g  ð–E	  É €EDµo   2@± d\dŸd3—3®L‡dd¿µ÷H  É(	  dg  ð¢± €¿H  É(  ÉºLLLkÙCk_¿Nµ‡_¿Mµ± •_¿OOó³óOBCIO  _¿Wdg  ð˜¿OJ
  °g  ð™AWOJ  ‚  ¿OkÔ_¿N¾M½°¥g  ð³BIo   i
  ¿h	  ¿0L°d[BÔKCÔ½NµMh_M&¾µæOhddH  ¿µ‚±þÿh (431Q DRAWCURVE 351Q \LISPERROR 344Q PRIN1 304Q ERROR 300Q IRIS.CURVE 260Q IRIS.CRV 236Q SF.DERIVS.TO.BEZIER 116Q TYPENAME 14Q \INSUREWINDOW 3 TYPENAME)(327Q \DISPLAYDATA 265Q R1C 247Q GL2 141Q IRISDATA 134Q STREAM 122Q IRISDATA 111Q STREAM 6 WINDOW)( 340Q "SCALE specified for device which does not support it" 27Q 1.0)TEST D1(I 2 SCALE I 1 COLOR I 0 STRING F 0 BLACK F 1 BLUE F 2 STR)  !  P	    AµQ	  @µo   hBR    h (35Q iris\gflush 32Q SF.PRINT 15Q iris\color 6 iris\clear 3 iris\color)NIL( 24Q "Greg")VIEW.FONT.FILES D1(P 13Q C P 4 F P 3 CHAR P 2 I P 1 FAMILY P 0 FONTARRAY I 0 FILES)  {  P0@d³kh°gd\g  
  Z	  »I@g  K	  _i
  ¿ki
  ¿O_¿Oµ)Oh__¿J	  [g  ð²ÎJ	  ¿O½NµMh_‰O&_¿°ÜM&¾µšO (130Q CLOSEF 115Q READ 66Q SPACES 60Q PRIN1 52Q CHARACTER 33Q READ 27Q OPENSTREAM)(121Q STOP 43Q CHARACTER 24Q INPUT)()\LOOKUPSPLINEFONT D1(I 1 CHARSET I 0 FAMILY F 0 \SPLINEFONTSINCORE)    @AhP
  d (10Q SASSOC)NIL()\SETSPLINEFONT D1(I 2 ARRAY I 1 CHARSET I 0 FAMILY F 0 \SPLINEFONTSINCORE)    @AhBP   (11Q PUTASSOC)NIL()ginit D1(F 0 RED)  ,   o   h  ‘i‚`    ´        jklÿ  P	   (51Q iris\color 45Q iris\setcursor 36Q makecolormap 33Q iris\clear 30Q iris\cursoff 25Q iris\ginit 20Q MOUSECONFIRM 7 HASTTYWINDOWP)(15Q PROMPTWINDOW)( 3 "do you really want to ginit. You destroy font definitions which must be reloaded?")(PRETTYCOMPRINT SFFONTCOMS)(RPAQQ SFFONTCOMS ((RECORDS SF.CHARACTER SF.CHARDESC SF.DERIVATIVE SF.FACE SF.FAMILY SF.FIDUCIAL SF.MADE-FROM SF.SPLINE SF.SPLINES SF.VERSION SF.WIDTH) (FNS READ.SPLINE.FONT SF.DERIVS.TO.BEZIER SF.PRINT SFDRAW SFDRAW.CLOSED.CURVE TEST VIEW.FONT.FILES \LOOKUPSPLINEFONT \SETSPLINEFONT ginit) (VARS TIMESROMANDFILES TRA TRB TRC TRFILES) (INITVARS (\SPLINEFONTSINCORE (LIST NIL))) (CONSTANTS (\CHARSEGMENTS.IRIS 10))))(RECORD SF.CHARACTER (CHARCODE))(ASSOCRECORD SF.CHARDESC (FAMILY CHARACTER FACE WIDTH FIDUCIAL VERSION SPLINES) (ACCESSFNS (SF.WIDTH (FETCH WIDTH OF DATUM))))(RECORD SF.DERIVATIVE (XPRIME YPRIME XDPRIME YDPRIME XTPRIME YTPRIME))(RECORD SF.FACE (WEIGHT SLOPE EXPANSION))(RECORD SF.FAMILY (SFFAMILY))(RECORD SF.FIDUCIAL (XFIDUCIAL YFIDUCIAL))(RECORD SF.MADE-FROM (FILENAME XCHAR.ORIGIN YCHAR.ORIGIN XFIDUCIAL.ORIGIN YFIDUCIAL.ORIGIN))(RECORD SF.SPLINE (#OFKNOTS KNOTLIST WEIGHTLIST DERIVATIVELIST . OPTIONALSOLNMETHOD))(RECORD SF.SPLINES (CLOSEDCURVELIST))(RECORD SF.VERSION (VERSION DATE TIME))(RECORD SF.WIDTH (XWIDTH YWIDTH))(RPAQQ TIMESROMANDFILES (TIMESROMAND.LC1-SF;1 TIMESROMAND.LC2-SF;1 TIMESROMAND.NUM-SF;1 TIMESROMAND.S1-SF;1 TIMESROMAND.S3-SF;1 TIMESROMAND.UC1-SF;1 TIMESROMAND.UC2-SF;1))(RPAQQ TRA ((FAMILY TIMESROMAND) (CHARACTER 97) (FACE M R R) (WIDTH 237 0) (FIDUCIAL 385 385) (VERSION 0 29-SEP-77 16:35:46) (MADE-FROM NIL 121 130 62 40) (SPLINES ((2 ((200 . 153) (200 . 45)) NIL ((0 -108.0 0 0 0 0)) NATURAL) (4 ((200 . 45) (202 . 28) (214 . 23) (223 . 27)) NIL ((-.866666 -19.6 0 0 17.2 15.6) (7.733334 -11.8 17.2 15.6 -26.0 -6.000002) (11.93333 .8000005 -8.8 9.599998 8.8 -9.599998)) NATURAL) (2 ((223 . 27) (227 . 20)) NIL ((4.0 -7.0 0 0 0 0)) NATURAL) (7 ((227 . 20) (216 . 9) (197 . -1) (170 . -6) (144 . -2) (126 . 7) (117 . 23)) NIL ((-9.420512 -11.06538 0 0 -9.476924 .3923078) (-14.15898 -10.86923 -9.476924 .3923078 -.6153832 4.038461) (-23.94359 -8.457692 -10.09231 4.430769 11.93846 7.453844) (-28.06666 -.2999992 1.846154 11.88461 6.861538 -9.853844) (-22.78974 6.657692 8.707692 2.030769 2.615385 7.961536) (-12.77436 12.66923 11.32308 9.992306 -11.32308 -9.992306)) NATURAL) (10 ((117 . 23) (89 . 4) (62 . -3) (37 . 3) (18 . 25) (18 . 52) (32 . 77) (60 . 98) (92 . 113) (118 . 125)) NIL ((-28.15654 -21.56226 0 0 .9392528 15.37358) (-27.68691 -13.87547 .9392528 15.37358 1.303736 -4.867924) (-26.0958 -.9358488 2.242989 10.50566 -.1541991 10.09811) (-23.9299 14.61887 2.08879 20.60377 23.31306 -17.52453) (-10.18458 26.46038 25.40185 3.079245 -15.09804 -6.0) (7.668246 26.53962 10.30381 -2.920755 7.079094 -.4754715) (21.51161 23.38113 17.3829 -3.396226 -13.21835 -4.098113) (32.28533 17.93585 4.164558 -7.494339 -14.20569 4.867924) (29.34705 12.87547 -10.04114 -2.626415 10.04114 2.626415)) NATURAL) (2 ((118 . 125) (118 . 166)) NIL ((0 41.0 0 0 0 0)) NATURAL) (17 ((118 . 166) (110 . 187) (91 . 189) (88 . 171) (98 . 152) (85 . 130) (59 . 124) (32 . 132) (21 . 154) (31 . 182) (55 . 198) (86 . 205) (118 . 208) (148 . 205) (175 . 196) (195 . 177) (200 . 153)) NIL ((-4.255993 24.64079 0 0 -22.46404 -21.84477) (-15.48801 13.71841 -22.46404 -21.84477 46.32022 -4.776135) (-14.79195 -10.51443 23.85617 -26.62091 -.8168106 34.94932) (8.655816 -19.66068 23.03936 8.328413 -61.05298 -21.02116) (1.168687 -21.84285 -38.01361 -12.69275 29.0287 37.13531) (-22.33057 -15.96793 -8.984904 24.44257 4.938131 -13.52012) (-28.8464 1.714581 -4.046773 10.92245 23.21877 4.945154) (-21.2838 15.10961 19.172 15.86761 4.186775 -6.260496) (-.01840973 27.84697 23.35877 9.607112 -9.965858 -27.90316) (18.35743 23.5025 13.39291 -18.29605 -6.323341 9.873148) (28.58868 10.14302 7.069574 -8.422904 -6.740779 6.410579) (32.28786 4.925408 .3287937 -2.012324 -2.713542 -5.515475) (31.25988 .1553465 -2.384749 -7.527798 -.4050512 3.651317) (28.67261 -5.546795 -2.7898 -3.876482 -1.666252 -9.089788) (25.04968 -13.96817 -4.456052 -12.96627 -16.92993 8.707838) (12.12866 -22.58052 -21.38599 -4.258433 21.38599 4.258433)) NATURAL)) ((2 ((118 . 108) (118 . 58)) NIL ((0 -50.0 0 0 0 0)) NATURAL) (9 ((118 . 58) (118 . 49) (111 . 38) (97 . 39) (90 . 49) (88 . 66) (93 . 83) (104 . 99) (118 . 108)) NIL ((1.256443 -7.739323 0 0 -7.53866 -7.564064) (-2.512887 -11.52136 -7.53866 -7.564064 -4.3067 25.82032) (-12.2049 -6.175257 -11.84536 18.25626 24.76546 -11.71723) (-11.66752 6.222386 12.9201 6.539029 -10.75515 3.048599) (-4.124999 14.28571 2.164949 9.587628 6.255152 -12.47717) (1.167526 17.63475 8.420102 -2.889543 -2.265462 4.860088) (8.454898 17.17526 6.154639 1.970545 -3.193299 -12.96318) (13.01289 12.66421 2.96134 -10.99263 -2.96134 10.99263)) NATURAL)))))(RPAQQ TRB ((FAMILY TIMESROMAND) (CHARACTER 99) (FACE M R R) (WIDTH 211 0) (FIDUCIAL 385 385) (VERSION 0 29-SEP-77 16:50:06) (MADE-FROM NIL 118 130 57 78) (SPLINES ((2 ((181 . 46) (189 . 37)) NIL ((8.0 -9.0 0 0 0 0)) NATURAL) (32 ((189 . 37) (166 . 14) (135 . -1) (92 . -4) (59 . 7) (33 . 30) (16 . 66) (12 . 101) (17 . 136) (30 . 166) (51 . 189) (86 . 204) (125 . 206) (154 . 202) (180 . 189) (196 . 168) (196 . 143) (178 . 127) (155 . 124) (138 . 134) (130 . 155) (130 . 176) (124 . 189) (111 . 184) (96 . 160) (91 . 129) (93 . 95) (102 . 63) (117 . 42) (144 . 33) (167 . 39) (181 . 46)) NIL ((-21.8826 -24.50792 0 0 -6.704422 9.047542) (-25.23481 -19.98415 -6.704422 9.047542 -14.47789 2.762293) (-39.17817 -9.555464 -21.18231 11.80983 40.61599 3.903284) (-40.05249 4.206011 19.43367 15.71312 -15.98606 -6.375422) (-28.61185 16.73142 3.447612 9.337696 5.328262 9.5984) (-22.50011 30.86831 8.775874 18.9361 6.673012 -26.01818) (-10.38772 36.79532 15.44889 -7.082087 -8.020304 10.47433) (1.051008 34.95039 7.428581 3.392247 1.408212 -9.879148) (9.183696 33.40307 8.836792 -6.486902 -3.612545 -.9577408) (16.21421 26.4373 5.224247 -7.444641 13.04197 1.710107) (27.95945 19.84771 18.26621 -5.734535 -12.55532 -11.88268) (39.948 8.171835 5.710896 -17.61722 -22.82069 15.82064) (34.24855 -1.535063 -17.1098 -1.796579 19.83808 -9.399882) (27.05779 -8.031584 2.728286 -11.19646 -14.53163 3.778893) (22.52026 -17.3386 -11.80335 -7.417568 -3.711554 .2843065) (8.861142 -24.61401 -15.5149 -7.133261 -6.622156 19.08388) (-9.964836 -22.20533 -22.13706 11.95062 18.20018 1.380173) (-23.0018 -9.564632 -3.936874 13.33079 11.82142 -.6045686) (-21.02796 3.463873 7.884551 12.72622 .5141201 1.038099) (-12.88635 16.70915 8.39867 13.76432 4.122093 -15.54783) (-2.426633 22.69955 12.52076 -1.783509 -23.00249 -4.846774) (-1.407115 18.49265 -10.48173 -6.630284 3.887866 -13.06508) (-9.944906 5.329831 -6.59386 -19.69536 1.451023 -2.892914) (-15.81326 -15.81199 -5.142837 -22.58827 20.30804 18.63673) (-10.80207 -29.08189 15.16521 -3.951541 -10.6832 .3459764) (-.978461 -32.86044 4.482012 -3.605564 4.424731 3.979362) (5.715916 -34.47633 8.906742 .373798 -7.015726 13.73657) (11.1148 -27.23424 1.891017 14.11037 17.63817 -4.92565) (21.8249 -15.5867 19.52919 9.184722 -27.53697 11.96602) (27.5856 -.4189663 -8.007784 21.15074 -3.490269 -24.93843) (17.83268 8.262562 -11.49805 -3.787686 11.49805 3.787686)) NATURAL)))))(RPAQQ TRC ((FAMILY TIMESROMAND) (CHARACTER 100) (FACE M R R) (WIDTH 250 0) (FIDUCIAL 385 385) (VERSION 0 29-SEP-77 16:56:16) (MADE-FROM NIL 103 130 57 78) (SPLINES ((2 ((136 . 269) (136 . 189)) NIL ((0 -80.0 0 0 0 0)) NATURAL) (15 ((136 . 189) (114 . 204) (86 . 211) (57 . 203) (40 . 190) (25 . 168) (16 . 140) (12 . 110) (13 . 82) (20 . 51) (32 . 28) (52 . 8) (82 . -2) (111 . 7) (136 . 25)) NIL ((-20.69145 16.12365 0 0 -7.851328 -6.741922) (-24.61711 12.75269 -7.851328 -6.741922 3.256639 -14.29039) (-30.84012 -1.134427 -4.594689 -21.03232 24.82477 21.9035) (-23.02242 -11.21499 20.23008 .8711902 -24.55573 -13.32363) (-15.0702 -17.00562 -4.325648 -12.45244 13.39815 7.391023) (-12.69677 -25.76255 9.072504 -5.061419 -5.036883 1.759538) (-6.142708 -29.9442 4.035622 -3.30188 .749383 9.57082) (-1.732394 -28.46066 4.785005 6.268941 2.039351 -16.04282) (4.072286 -30.21314 6.824355 -9.773884 -2.906779 24.60048) (9.443252 -27.68678 3.917576 14.82659 3.587763 -16.35907) (15.15471 -21.03973 7.505339 -1.532484 6.555731 10.83583) (25.93791 -17.1543 14.06107 9.303344 -17.81069 15.01576) (31.09364 -.3430727 -3.749619 24.31911 -1.312975 -16.89888) (26.68753 15.52659 -5.062595 7.420223 5.062595 -7.420223)) NATURAL) (2 ((136 . 25) (136 . -3)) NIL ((0 -28.0 0 0 0 0)) NATURAL) (2 ((136 . -3) (241 . 10)) NIL ((105.0 13.0 0 0 0 0)) NATURAL) (2 ((241 . 10) (241 . 15)) NIL ((0 5.0 0 0 0 0)) NATURAL) (5 ((241 . 15) (231 . 19) (222 . 26) (217 . 37) (217 . 50)) NIL ((-10.07143 3.446428 0 0 .4285715 3.321429) (-9.857142 5.107143 .4285715 3.321429 3.857143 1.392856) (-7.5 9.125 4.285714 4.714285 2.142858 -2.892857) (-2.142857 12.39286 6.428572 1.821428 -6.428572 -1.821428)) NATURAL) (2 ((217 . 50) (217 . 300)) NIL ((0 250.0 0 0 0 0)) NATURAL) (2 ((217 . 300) (117 . 300)) NIL ((-100.0 0 0 0 0 0)) NATURAL) (2 ((117 . 300) (117 . 295)) NIL ((0 -5.0 0 0 0 0)) NATURAL) (4 ((117 . 295) (128 . 291) (134 . 283) (136 . 269)) NIL ((12.06667 -3.333333 0 0 -6.4 -4.0) (8.866666 -5.333333 -6.4 -4.0 2.0 -4.0) (3.466666 -11.33333 -4.4 -8.0 4.4 8.0)) NATURAL)) ((2 ((136 . 159) (136 . 79)) NIL ((0 -80.0 0 0 0 0)) NATURAL) (12 ((136 . 79) (133 . 52) (122 . 34) (108 . 40) (100 . 62) (96 . 88) (95 . 116) (97 . 143) (104 . 168) (117 . 179) (130 . 174) (136 . 159)) NIL ((-1.169987 -27.97882 0 0 -10.98008 5.872907) (-6.660026 -25.04236 -10.98008 5.872907 6.900384 24.63546) (-14.18991 -6.851724 -4.079692 30.50837 13.37854 -14.41478) (-11.58033 16.44926 9.298848 16.0936 -6.414546 -14.97637) (-5.488757 25.05467 2.884301 1.117225 .279644 2.320276) (-2.464635 27.33204 3.163945 3.437501 -.7040282 -6.304729) (.3472968 27.61717 2.459917 -2.867228 2.536468 4.898638) (4.075448 27.19927 4.996385 2.03141 2.558155 -19.28982) (10.35091 19.58576 7.55454 -17.25841 -6.769083 .2606583) (14.52091 2.457678 .785456 -16.99775 -11.48182 6.247193) (9.565454 -11.41648 -10.69636 -10.75056 10.69636 10.75056)) NATURAL)))))(RPAQQ TRFILES ({INDIGO}<PRESSFONTS>OLDSF>TIMESROMAND.LC1-SF;1 {INDIGO}<PRESSFONTS>OLDSF>TIMESROMAND.LC2-SF;1 {INDIGO}<PRESSFONTS>OLDSF>TIMESROMAND.NUM-SF;1 {INDIGO}<PRESSFONTS>OLDSF>TIMESROMAND.S1-SF;1 {INDIGO}<PRESSFONTS>OLDSF>TIMESROMAND.S3-SF;1 {INDIGO}<PRESSFONTS>OLDSF>TIMESROMAND.UC1-SF;1 {INDIGO}<PRESSFONTS>OLDSF>TIMESROMAND.UC2-SF;1))(RPAQ? \SPLINEFONTSINCORE (LIST NIL))(RPAQQ \CHARSEGMENTS.IRIS 10)(CONSTANTS (\CHARSEGMENTS.IRIS 10))NIL