% acfit.jam

(FitACContour) {
 MoveHomeToLowerLeft
 5 .dynnodes
 e ms
 55 .squaretangents mn
 MoveHomeToACorner
 .filterbetweencorners
 .filterbetweencorners
 55 .squaretangents e ms mn
 9 1 2 2 .dynspline
 e dc mc
 }.cvx .def

(FitACChar) {
 .countcon
 {.countsa 0 .eq .not {FitACContour}/if .nextcon}.cvx .rept
 e dcs mcs
 .collectgarbage
 }.cvx .def

(FitTheoContour)
{50 50 .transa 20 .interpolatesa e ms 5 .dynnodes 55 .quicktangents MoveHomeToACorner 55 .quicktangents e ms mn 9 1 2 2 .dynspline e dc mc}.cvx .def

(FitTheo) {
 .countcon
 {FitTheoContour .nextcon}.cvx .rept
 e dcs mcs
 }.cvx .def

(GetAISTempContours) {AISisopen {.freeais}/if (AISTemp.ais) getAIS 0.02 .tvalue e .outline .makecontours 0 .setslen (AISisopen) .true .store}.cvx .def

(logc) (types the instructions to draw the curve in Curve.Log) {
 newcontour
 {8 6 .roll initmoveto 6 4 .roll logpoint 4 2 .roll logpoint logpoint (.curveto) .noter}.cvx .foralllinks
 }/xdef

(logcs) (types all the contours to Curve.Log or the open log file) {
 (.flushpath) .notes
 .countcon {logc .nextcon}.cvx .rept
 }/xdef

(logpoint) {.exch cvtempstring .notes cvtempstring .notes}.cvx .def

(cvtempstring) (converts to a string, using a temporary string area)
{( ) .cvis}/xdef

(FitFont) {PressFont.Open PressFont.AllocateBitmap (Bitmap size = ).print PressFont.BitmapSize .exch cvtempstring .print ( by ).print =}.cvx .def

(GetACChar) {(curChar) .exch .store .initdc 100 0 .setcp
 PressFont.UseBitmap .initdc e BitmapOrigin 1 .add .setcp PressFont.DrawRasterChars PressFont.UseScreen PressFont.DrawBitmap
 PressFont.WriteAISTemp GetAISTempContours e .setcontours 3 scale}.cvx .def

(GetACAsciiChar) {.dup .cviac .exch .cvias (curChar) .exch .store .initdc 100 0 .setcp
 PressFont.UseBitmap .initdc e PressFont.BitmapOrigin 1 .add .setcp PressFont.DrawRasterChars PressFont.UseScreen PressFont.DrawBitmap
 PressFont.WriteAISTemp GetAISTempContours e .setcontours 3 scale}.cvx .def

(AISisopen) .false .def

(GetAISTempContours) {AISisopen {.freeais}/if (AISTemp.ais) getAIS 0 .tvalue e .outlineBlackEdge .makecontours 0 .setslen (AISisopen) .true .store}.cvx .def

(FitContour) {(curContour) .exch .store
 .setsa 3 0 .scalesa .afsa 0 250 .translate ms 2 .subdividespline mc 0 -250 .translate}.cvx .def

(LogChar) {.true .setlog
 (").note curChar .cvaci .cvias .note (" ).note
 [ curChar .cvaci PressFont.CharDimensions ]
 {cvtempstring .note ( ).note}.cvx .arrayforall
 "{setUpTransform" .noter
 logcs
 "}.cvx" .noter
 "WriteSDChar" .noter
 .false .setlog}.cvx .def

(FitACRange) (i n -> . Fits n chars, starting at char i.)
{{.dup GetACAsciiChar FitACChar 1 .add}.cvx .rept .pop}/xdef