Hello Werner,
thanks for answer. I have found a solution by appending the printer
coordinates to a binary file during calculation of the drawing area plot
points. As I said, it is not clear when the plotting is finished,
because it can be interactive, so I have some problems to calculate the
complete plot before doing the print out. At some point the user may
have the possibility to plot everything which is on screen by pressing a
button. This is the reason for the need to 'record' the plot in some
way.
binFile = OPEN User.Home & "/.hp9125A_image" FOR CREATE
CLOSE #binFile
(..)
Loop...
IF bPenDown THEN
(.. do some calculation & do draw into the drawing area 'DA')
(.. calculate the higher res printer coordinates)
binFile = OPEN User.Home & "/.hp9125A_image" FOR APPEND
WRITE #binFile, Xold
WRITE #binFile, Yold
WRITE #binFile, X
WRITE #binFile, Y
CLOSE #binFile
ENDIF
...End loop
After the drawing area is finished and some "print" button is pressed,
the printer values a read back from the file and the whole plotting
sequence is repeated to the printer device. That works very well.
PUBLIC SUB PrintPlot_Click()
Draw.End ' this finishes the drawing area draw method
IF Printer.Setup() THEN RETURN
Printer.Orientation = Printer.Landscape
Draw.Begin(Printer)
Draw.ForeColor = Color.Black
Draw.LineStyle = Line.Solid
binFile = OPEN User.Home & "/.hp9125A_image" FOR INPUT
WHILE NOT Eof(binFile)
READ #binFile, Xold
READ #binFile, Yold
READ #binFile, X
READ #binFile, Y
Draw.Line(Xold, Yold, X, Y)
WEND
Draw.End ' this actually prints the plot
END
-andreas
Am Sonntag, den 24.05.2009, 20:42 +0000 schrieb
gambas-user-requ...@lists.sourceforge.net:
> AFAIK you can only have one Draw device open at a time. Also,
> Draw.Refresh doesn't do anything while the drawing port is open, in
> fact
> the refresh only happens in the event loop so once at the end of your
> routine is enough.
> How about doing the calculation before the drawing?
------------------------------------------------------------------------------
Register Now for Creativity and Technology (CaT), June 3rd, NYC. CaT
is a gathering of tech-side developers & brand creativity professionals. Meet
the minds behind Google Creative Lab, Visual Complexity, Processing, &
iPhoneDevCamp asthey present alongside digital heavyweights like Barbarian
Group, R/GA, & Big Spaceship. http://www.creativitycat.com
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
