[futurebasic] Re: [FB] Hairlines

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : October 1999 : Group Archive : Group : All Groups

From: Joe Lewis Wilkins <PepeToo@...>
Date: Thu, 30 Sep 1999 22:14:28 -0700
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