Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!ucbvax!decwrl!shelby!Portia!Jessica!rick
From: rick@Jessica.stanford.edu (Rick Wong)
Newsgroups: comp.sys.mac.programmer
Subject: Re: PICT line thickness
Message-ID: <514@Portia.Stanford.EDU>
Date: 27 Feb 89 22:27:56 GMT
References: <3739@ucdavis.ucdavis.edu>
Sender: USENET News System <news@Portia.stanford.edu>
Reply-To: rick@Jessica.stanford.edu (Rick Wong)
Organization: Stanford University
Lines: 50

In article <3739@ucdavis.ucdavis.edu> heberlei@iris.ucdavis.edu (Todd) asks:
>
>					Is there a way to get thinner
>lines in a PICT file and printed by MacDraw?  Any help would be
>greatly appreciated!
>
>Thanks,
>
>Todd Heberlein
>
>heberlein@iris.ucdavis.edu      128.120.57.20


I use the following routine:

procedure PSScalePen(numer, denom: integer);
(***
    A tech-note sanctioned method to control line sizes -- the SetLineWidth
    PicComment, described in TN 175, tells the LaserWriter to multiply the
    the pen size by the given fraction.
***)
    const
	SetLineWidth = 182;	{PicComment for setting fractional line widths}
    var
	lineWidth: Point;
	hLineWidth: Handle;
	err: OSErr;
begin
    lineWidth.v := numer;
    lineWidth.h := denom;

    err := PtrToHand(@lineWidth, hLineWidth, sizeof(Point));
    {!!! Do error handling here}

    PicComment(SetLineWidth, sizeof(Point), hLineWidth);
    DisposHandle(hLineWidth);
end;


You can then do something like:

	PSScalePen(1, 4);

	{Draw stuff . . . }

	PSScalePen(4, 1);	{Restore normal pen scaling}


Rick "No, it's Hair Pie" Wong
rick@jessica.stanford.edu