with-graphics-state ( port &rest args &key transform foreground background operation thickness scale-thickness dashed dash line-end-style line-joint-style mask font state fill-style stipple pattern mask-x mask-y shape-mode text-mode compositing-mode mask-transform ) body => result
with-graphics-state binds the graphics state values for the specified port to the values specified in the
list. The keyword arguments
correspond to the slots in the graphics state, as described in graphics-state.
Arguments that are not supplied default to the current state of that slot in the graphics-state. The argument stipple is used only on X11/Motif.
An extra keyword argument
:state can be used. The value must be a graphics-state object created by a call to make-graphics-state. The contents of the graphics-state object passed are used instead of the
(setf gstate (make-graphics-state))
(setf (graphics-state-foreground gstate) my-color )
Drawing - Graphics Ports
CAPI User Guide and Reference Manual (Windows version) - 3 Aug 2017