2 GP Reference Entries

with-graphics-state

Macro

Summary
: Binds the graphics state values of a port to a list of arguments and executes a body of code.
Signature

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) body => result

Arguments

port: A graphics port
body: A body of Lisp code

Values

result: The return value of the last form executed in body

Description

Thewith-graphics-state macro binds the graphics state values for the specified port to the values specified in the args list. The keywords args are the same as the symbols of the slots in the graphics state, as described above. For example:

(with-graphics-state (port :thickness 12 
                           :foreground fore-color) ...)

: Arguments that are not supplied default to the current state of that slot in the graphics state.
: An extra keyword argument:state can be used. The value must be a graphics state object created by a call tomake-graphics-state. The contents of the graphics state object passed are used instead of the port's state.
Example

(setf gstate (make-graphics-state))     
(setf (graphics-state-foreground gstate) my-color)      
(with-graphics-state (port :state gstate)        
  (draw-rectangle port image-1 100 100))