Letting your application rather than the LaserWriter driver convert QuickDraw commands into PostScript is simple in most cases, yet when you use direct PostScript to print documents, subtle interactions between the QuickDraw and PostScript imaging models can cause problems. This article will help you in two important areas: using a font from PostScript while selecting it using QuickDraw and preserving your PostScript state while using QuickDraw to select fonts.
When selecting a PostScript font from QuickDraw, an application first calls GetFNum (see Inside Macintosh, volume I, page 223 [IM I-223]) to get the Font Family ID for a particular font. It then calls TextFont (IM I-171) to actually select it. The name passed to GetFNum is the name of the font as seen in the Font menu (for example, Helvetica).
In PostScript, fonts are selected by name using the findfont (see PostScript Language Reference Manual, page 156 [PLRM 156]) and setfont (PLRM 215) operators. If the application attempts to select a font named Helvetica®, however, it will find that this font doesn't exist. This is because the LaserWriter performs a special operation on the font called encoding. Font encoding is the process of mapping missing characters into another font.
For example, a character like ø may not exist in the standard Helvetica font. In order to provide that character, the LaserWriter driver will modify the Helvetica font, inserting a reference to the ø character in the Symbol font. Once this is done, the font is no longer standard Helvetica, so it is renamed. The actual name is something like |_____Helvetica, but this naming convention is not standard and could change in the future.
So if you don't know the font's name, how can you select it? Simple, let QuickDraw do it. When you select a font via TextFont and then use it via one of the QuickDraw text drawing routines (such as DrawChar or DrawString [IM I- 172]), the LaserWriter driver handles the complex task of selecting an appropriate font on the PostScript device. This includes downloading and encoding the font if necessary. Using QuickDraw to select the font not only saves you a lot of work, but also improves compatibility. The process of font downloading and character encoding could change in the future, and if your application does it internally, it will have to be revised. If you use QuickDraw to download the font, your application will be immune to changes in the font downloading mechanism.
PROCEDURE SetFont;(fontName: Str255; fontSize: INTEGER;
fontStyle: Style);
VAR
theFontID: INTEGER;
thePenLoc: Point;
BEGIN
GetFNum(fontName, theFontID); (* Get the font ID. *)
TextFont(theFontID); (* Set it *)
TextSize(fontSize); (* Set the size *)
TextFace(fontStyle); (* ...and the style. *)
GetPen(thePenLoc); (* Save the current pen position. *)
DrawChar(' '); (* Draw a space so the font gets downloaded.*)
MoveTo(thePenLoc.h, thePenLoc.v); (* Restore original pen *)
(* position. *)
END;
There are two important things to note in the SetFont procedure above. First, the procedure uses the GetFNum trap to get the Font ID. This is essential to make sure that you get the correct font. (See Technical Note #191, Font Names for more information.) Second, the SetFont procedure calls DrawChar to draw a space. This is required to force the font selection on PostScript devices, since the TextFont call only changes the txFont field of the GrafPort. By actually using the font (via DrawChar) the LaserWriter driver's StdText GrafProc is called, and selects the font on the printer. Subsequent calls to the PostScript show (PLRM 222) operator will use this font. Since DrawChar will change the pen position, it is saved (via GetPen [IM I-169]) and restored (via MoveTo [IM I-170]).
PROCEDURE SendPostScript(theComment: Str255);
VAR
PSCommand : Str255;
CommandHdl : Handle;
CRString : Str255;
theError : OSErr;
BEGIN
CRString := ' ';
CRString[1] := CHR(13);
PSCommand := theComment;
PSCommand := CONCAT(PSCommand, CRString);
theError := PtrToHand(POINTER(ORD(@PSCommand) + 1),
CommandHdl,LENGTH(PSCommand));
if theError <> noErr THEN BEGIN
(* Handle the error! *)
END;
PicComment(PostScriptHandle,
LENGTH(PSCommand), CommandHdl);
DisposHandle(CommandHdl);
END;
The procedure simply takes a string of text, adds a carriage return at the end of it, and converts it into a handle. The handle is then passed to the PostScriptHandle picture comment, which actually sends it to the printer. Since this procedure created the handle, the procedure also disposes of it. Again, this is not how a normal application would do it, but it keeps things nice and localized for this example. So now that we can send PostScript, consider the following:
SetFont('Helvetica', 14, [bold]);
PicComment(PostScriptBegin, 0, NIL);
(********************************************)
(*** QuickDraw representation of graphic. ***)
(********************************************)
(* These calls are only executed by QuickDraw *)
(* (i.e. non-PostScript) devices. *)
MoveTo(50, 50);
DrawString('This is some gray text.');
PenPat(ltGray);
MoveTo(100, 100);
LineTo(300, 300);
(*********************************************)
(*** PostScript representation of graphic. ***)
(*********************************************)
(* These calls will only be executed by PostScript devices.*)
SendPostScript('50 50 moveto (This is some gray text.) show');
SendPostScript('.10 setgray');
SendPostScript('100 100 moveto 300 300 lineto stroke');
PicComment(PostScriptEnd, 0, NIL);
In this fragment, the call to SetFont sets the PostScript currentfont to be Helvetica. The PostScriptBegin comment is used to suppress QuickDraw calls on PostScript devices, and vice versa. When the LaserWriter sees PostScriptBegin, it ignores all QuickDraw drawing calls, and just executes picture comments. When a PostScriptEnd is received, the LaserWriter will once again interpret QuickDraw calls. The LaserWriter driver will ignore the QuickDraw representation, and begin executing the SendPostScript calls. The first one draws a string of text, the second one changes the default gray level of the printer from 100% black to 10% black using the setgray (PLRM 216) operator, and the third one draws a diagonal line using the new gray level. Note that the QuickDraw representation for a gray level is handled by using PenPat (IM I-170).
For example, the above code fragment set the gray level of the printer to 10%. At the time we did the PostScriptEnd comment, the gray level was restored to 100%. If we then want to change the font size, and redraw the text, we would have to resend the setgray operator. It would look like this:
(* Change the font size.*)
SetFont('Helvetica', 24, [bold]);
PicComment(PostScriptBegin, 0, NIL);
(********************************************)
(*** QuickDraw representation of graphic. ***)
(********************************************)
(* These calls are only executed by QuickDraw *)
(* (i.e. non-PostScript) devices.*)
(* The QuickDraw state is unaffected, so there's *)
(* no need to call PenPat again. *)
MoveTo(250, 50);
LineTo(750, 50);
(*********************************************)
(*** PostScript representation of graphic. ***)
(*********************************************)
(* These calls only executed by PostScript devices. *)
(* Since the PostScript state was cleared, we need *)
(* to resend the setgray operator. *)
SendPostScript('.10 setgray');
SendPostScript('250 50 moveto 750 50 lineto');
PicComment(PostScriptEnd, 0, NIL);
Although resending the setgray operator isn't difficult, an application may have set a lot more attributes. To avoid the overhead of resending this state, a new comment may be used. This comment is #196--PostScriptBeginNoSave.
When PostScriptBeginNoSave is used with PostScriptEnd, the gsave and grestore operations are not performed. This means that the application is completely responsible for the graphics state of the printer. If you are doing all of your imaging via PostScript this is not a problem. If you plan on mixing PostScript and QuickDraw, you must be very careful. Changes to attributes like line width and the transformation matrix will have a significant effect on QuickDraw drawing operations. If the comment is used for the above example, the code will look like this:
(* Now illustrate the use of the PostScriptBeginNoSave *)
(* PicComment. *)
PicComment(PostScriptBeginNoSave, 0, NIL);
PenPat(ltGray);
SendPostScript('.10 setgray');
PicComment(PostScriptEnd, 0, NIL);
(* At this point, the gray level of the device is 10% black *)
(* Now draw something using this state. *)
(* Draw a light gray line using QuickDraw. *)
MoveTo(50, 400);
Line(100, 100);
(* At this point, the gray level is still 10%, so we must *)
(* reset it to black. *)
PicComment(PostScriptBeginNoSave, 0, NIL);
PenPat(black); (* Reset QuickDraw gray level. *)
SendPostScript('1.0 setgray'); (* Reset PostScript gray*)
(* level. *)
PicComment(PostScriptEnd, 0, NIL);
Note that instead of sending PostScriptBegin as the first operation, we now send PostScriptBeginNoSave. We then change the gray level to light gray in the QuickDraw world, and 10% black for PostScript. Since we used PostScriptBeginNoSave, sending PostScriptEnd does not effect the state of the printer (i.e. the gray level remains at 10%). Now we want to draw something with the new state. We first send the PostScriptBegin comment, which saves the state we set up, as well as disabling the QuickDraw calls on PostScript devices.
We then send a QuickDraw representation of the line, followed by PostScriptEnd. On QuickDraw devices, the line will be drawn using the ltGray pen pattern. On PostScript devices, the line will be drawn using 10% black. After the line has been drawn, we need to reset the state of the device for subsequent drawing operations. This is done by once again sending the PostScriptBeginNoSave comment, followed by the commands to reset the gray level, as well as any other attributes of the printer.
In summary, we have looked at two ways of avoiding the perils of PostScript. The first was how to use a font from PostScript while choosing it using QuickDraw. The supported method for this was demonstrated by the SetFont procedure. The second was how to preserve your PostScript state while still using QuickDraw to select fonts.
Scott "Zz" Zimmerman is a DTS printing guru. (He's particularly impressed with the strictly enforced dress code at Apple.) In his spare time he sails, scuba dives for lobsters, and plays the piano, guitar, and saxophone. His doorway is adorned by a melted gummy rat, a good luck charm from his Intel days. At home, atop his monitor is perched a rare Asian black scorpion (behind glass, we hope). His other cuddly pets include two geckos and an iguana. *
