Posted by Marc Shevick on August 15, 2005 at 13:02:37:
In Reply to: Re: 359 printing problem posted by Brian Levantine on August 15, 2005 at 12:43:11:
Here is the bitmap routine:
DrawBitmap:
! .BMP file is in same directory as program (PSTAT-41 for 3)
cosFileNames$ = "JSLOG2BW.BMP"
cosDirNames$ = "DSK"
! Search Comet directory for the completed DOS filename
Gosub COS.FindFile
Data$ = cosFileSpec$
IF (Data$ EQ "")
Print (0) "Couldn't load bitmap file '";cosFileNames$;",";cosDirNames$;"'"
Input (0) ""
ELSE
! Scale 1 bitmap pixel equals .01in.
Flags = BMR.SCALE
FLAGS = BMR.FIT.TO.RECT
! Printer scale is TWIPS.PER.INCH * 100 (BMR.SCALE must be set)
Print (Lun) (TR);(DrawBitMap = RectLeft, RectTop, _
RectRight, RectBottom, TWIPS.PER.INCH, TWIPS.PER.INCH, Flags);Data$
ENDIF
Return ! DrawBitmap