Hi Guys,

Since you're talking about Printing Resolution and one pixel thick lines, here
is a FN that STAZ passed to me a couple of years ago. It lets 1 pixel lines
print at the printers max. resolution. I don't know how it affects thicker
lines. I've never used it with them. I think it ONLT affects the one pixel
lines. Works as advertised. Notice the global gMyToggle%.

Joe Wilkins

'???????????????????????????????????????????????????????????????????????????????

'FN Hairlines called by:
' Call with turnItOn set to _zTrue and then _false after you're through with
it.
'???????????????????????????????????????????????????????????????????????????????

LOCAL
_SetLineWidth  = 182                              'Postscript Comment
_LineWidthSize = 4                                'Constant
DIM penSize
LOCAL FN Hairlines(turnItOn)
  LONG IF turnItOn <> gMyToggle%
    tempHndl& = FN NEWHANDLE(_LineWidthSize)
    LONG IF SYSERROR = _noErr
      LONG IF turnItOn
        new& = &00010003 : gMyToggle% = _zTrue    '1/3 set fractional size
        old& = &00010001
      XELSE
        new& = &00010001 : gMyToggle% = _false    '3/1 restore normal size
        old& = &00030001
      END IF
      tempHndl&..nil& = old&
      CALL PICCOMMENT(_SetLineWidth,_LineWidthSize,tempHndl&)
      tempHndl&..nil& = new&
      CALL PICCOMMENT(_SetLineWidth,_LineWidthSize,tempHndl&)
      err = FN DISPOSHANDLE(tempHndl&)
    END IF
  END IF
END FN