>BBoxCalc " Copyright 1996 Steven Singer = Permission is granted to distribute this program freely ) on the condition it is not changed.  !"Getting bbox from DrawFile" (f%= "DrawFile" 2len%= #f% < #f% F file% len% P!("LOAD DrawFile "+~(file%)) Z d. !file%<>&77617244 "Not a Draw file": n2 file%!4<>201 "Unknown version ";file%!4: x<"Major version: ";file%!4;" Minor version: ";file%!8 *"Produced by: ";stringn(file%+12,12) llx%=(file%!24/640) lly%=(file%!28/640) urx%=((file%!32+639)/640) ury%=((file%!36+639)/640) :"File overall bbox: ";llx%;" ";lly%;" ";urx%;" ";ury% llx%=&7FFFFFFF lly%=&7FFFFFFF urx%=&80000000 ury%=&80000000 p%=file%+40 ȕ p%urx% urx%=x2% h y2%>ury% ury%=y2% r  | x1%=(p%!8/640)  y1%=(p%!12/640)  x2%=((p%!16+639)/640)  y2%=((p%!20+639)/640)   p%+=p%!4  @"Calculated overall bbox: ";llx%;" ";lly%;" ";urx%;" ";ury%  f%=-1  g%=-1  error  f%= "PostScript" / f%<128 "No postscript file to parse": "Parsing PostScript file" g%= "eps"  bbox%= paperlimits%=  ȕ #f%  line$=#f%  print%=  Ȏ / partialmatch(line$,"%%BoundingBox: ")  bbox%  print%=   bbox%= X line$="%%BoundingBox: "+(llx%-1)+" "+(lly%-1)+" "+(urx%+1)+" "+(ury%+1)   line$="(\004)cvn{}def"   print%= * line$=(4) 4 print%= 5/ paperlimits% line$="255 G CP fill" 6 paperlimits%= 7 line$="255 G" 8 line$="S" line$="R" 9 print%= > H print% #g%,line$ R \ #f% f #g% p("SetType eps PoScript") z "Done"   ݤstringn(p%,l%)  a$  a$="" ȕ l%>0 ?p%>31  a$+=(?p%)  l%-=1  p%+=1  =a$   error . 8 f%>127 #f% B g%>127 #g% L$;" at line "; V ` jݤpartialmatch(a$,b$) t=a$,(b$))=b$