/[mcclim]/mcclim/medium.lisp
ViewVC logotype

Diff of /mcclim/medium.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by adejneka, Thu Jul 19 03:45:51 2001 UTC revision 1.10 by adejneka, Sat Jul 21 03:47:57 2001 UTC
# Line 40  Line 40 
40                     :accessor medium-transformation)                     :accessor medium-transformation)
41     (clipping-region :initarg :clipping-region     (clipping-region :initarg :clipping-region
42                      :initform +everywhere+                      :initform +everywhere+
43                      :accessor medium-clipping-region)                      :documentation "Clipping region in the SHEET coordinates.")
44     (line-style :initarg :line-style     (line-style :initarg :line-style
45                 :initform (make-line-style)                 :initform (make-line-style)
46                 :accessor medium-line-style)                 :accessor medium-line-style)
# Line 57  Line 57 
57  (defun mediump (x)  (defun mediump (x)
58    (typep x 'medium))    (typep x 'medium))
59    
60    (defmethod initialize-instance :after ((medium medium) &rest args)
61      ;; Initial CLIPPING-REGION is in coordinates, given by initial
62      ;; TRANSFORMATION, but we store it in SHEET's coords.
63      (setf (medium-clipping-region medium)
64            (slot-value medium 'clipping-region)))
65    
66    (defmethod medium-clipping-region ((medium medium))
67      (untransform-region (medium-transformation medium)
68                        (slot-value medium 'clipping-region)))
69    
70    (defmethod (setf medium-clipping-region) (region (medium medium))
71      (setf (slot-value medium 'clipping-region)
72            (transform-region (medium-transformation medium)
73                                region)))
74    
75  (defmethod medium-merged-text-style ((medium medium))  (defmethod medium-merged-text-style ((medium medium))
76    (merge-text-styles (medium-text-style medium) (medium-default-text-style medium)))    (merge-text-styles (medium-text-style medium) (medium-default-text-style medium)))
77    

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

  ViewVC Help
Powered by ViewVC 1.1.5