Harriet Bazley
2018-02-03 23:42:32 UTC
Trying to work out why Powerbase prints dotted lines to screen but not to
printer - I've managed the following attempted test case program.
The PLOT code in PROCdiagonal produces converging dotted and solid lines on
screen, but two converging solid lines when sent to the printer.
Are the PLOT codes in the range 16-23 not suitable for use in hard copy?
-------------------------------------------------------------------------
DIM area% 16
DIM transform% 16
DIM origin% 8
DIM draw_rectangle% 16
MODE 32
PROCdiagonal
handle%=OPENOUT("printer:")
IF handle%=0 THEN END
SYS "PDriver_SelectJob",handle%,"Dotted test"
area%!0=0:area%!4=0:area%!8=800:area%!12=800
transform%!0=(1<<16):transform%!4=0:transform%!8=0:transform%!12=(1<<16)
origin%!0=1024:origin%!4=1024
SYS "PDriver_GiveRectangle",1,area%,transform%,origin%,&FF000000
SYS "PDriver_DrawPage",1,draw_rectangle%,0,0
PROCdiagonal
SYS "PDriver_EndJob", handle%
CLOSE#handle%
END
DEF PROCdiagonal
MOVE 50,150
PLOT 5, 600, 600
MOVE 50,250
PLOT 21, 600, 600
ENDPROC
printer - I've managed the following attempted test case program.
The PLOT code in PROCdiagonal produces converging dotted and solid lines on
screen, but two converging solid lines when sent to the printer.
Are the PLOT codes in the range 16-23 not suitable for use in hard copy?
-------------------------------------------------------------------------
DIM area% 16
DIM transform% 16
DIM origin% 8
DIM draw_rectangle% 16
MODE 32
PROCdiagonal
handle%=OPENOUT("printer:")
IF handle%=0 THEN END
SYS "PDriver_SelectJob",handle%,"Dotted test"
area%!0=0:area%!4=0:area%!8=800:area%!12=800
transform%!0=(1<<16):transform%!4=0:transform%!8=0:transform%!12=(1<<16)
origin%!0=1024:origin%!4=1024
SYS "PDriver_GiveRectangle",1,area%,transform%,origin%,&FF000000
SYS "PDriver_DrawPage",1,draw_rectangle%,0,0
PROCdiagonal
SYS "PDriver_EndJob", handle%
CLOSE#handle%
END
DEF PROCdiagonal
MOVE 50,150
PLOT 5, 600, 600
MOVE 50,250
PLOT 21, 600, 600
ENDPROC
--
Harriet Bazley == Loyaulte me lie ==
Nothing is foolproof - to a sufficiently talented fool
Harriet Bazley == Loyaulte me lie ==
Nothing is foolproof - to a sufficiently talented fool