- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
When I open a graphics window, the pixels for a blank window are all BLACK.
I want to print the graphics I generate onto a transparency, so I would like to change those
background pixels to WHITE pixels, so I can copy them onto a transparency.
But maybe there is no easy way to do that. The SET BACKGROUND FILL function does not
make ALL the pixels WHITE, unfortunately.
Ideally, I would like to print the window directly onto a transparency, but I don't see a way to
get transparent pixels.
Is there a way to set ALL the pixels in a newly opened graphics window to WHITE?
Do I need to use Photoshop or some other similar tool?
I want to print the graphics I generate onto a transparency, so I would like to change those
background pixels to WHITE pixels, so I can copy them onto a transparency.
But maybe there is no easy way to do that. The SET BACKGROUND FILL function does not
make ALL the pixels WHITE, unfortunately.
Ideally, I would like to print the window directly onto a transparency, but I don't see a way to
get transparent pixels.
Is there a way to set ALL the pixels in a newly opened graphics window to WHITE?
Do I need to use Photoshop or some other similar tool?
Link Copied
1 Reply
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
[bash]RECURSIVE SUBROUTINE fill_rectangle (hdc, color, rect, edge) IMPLICIT NONE INTEGER(HANDLE), INTENT(IN) :: hdc INTEGER, INTENT(IN) :: color TYPE(T_RECT), INTENT(IN) :: rect INTEGER, INTENT(IN), OPTIONAL :: edge INTEGER(HANDLE) :: hbrush, hold INTEGER :: rval ! these statements always go together, ! and this routine ensures that a brush ! resource is always destroyed after use hbrush = CreateSolidBrush (color) hold = SelectObject (hdc, hbrush) rval = FillRect (hdc, rect, hbrush) rval = SelectObject (hdc, hold) rval = DeleteObject (hbrush) IF (PRESENT(edge)) THEN IF (edge == 1) rval = DrawEdge (hdc, rect, EDGE_SUNKEN, BF_RECT) END IF END SUBROUTINE fill_rectangle [/bash]

Reply
Topic Options
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page