- 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