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

Diff of /mcclim/sheets.lisp

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

revision 1.2 by cvs, Mon Jun 12 13:45:40 2000 UTC revision 1.3 by cvs, Thu Jul 13 14:31:24 2000 UTC
# Line 248  Line 248 
248  ;;; SHEET geometry classes  ;;; SHEET geometry classes
249    
250  (defclass sheet-identity-transformation-mixin ()  (defclass sheet-identity-transformation-mixin ()
251    ((transformation :initform (make-instance 'transformation)    ((transformation :initform +identity-transformation+
252                     :initarg :transformation                     :initarg :transformation
253                     :accessor sheet-transformation)                     :accessor sheet-transformation)
254     ))     ))
# Line 258  Line 258 
258        (error "Attempting to set the SHEET-TRANSFORMATION of a SHEET-IDENTITY-TRANSFORMATION-MIXIN to a non identity transformation")))        (error "Attempting to set the SHEET-TRANSFORMATION of a SHEET-IDENTITY-TRANSFORMATION-MIXIN to a non identity transformation")))
259    
260  (defclass sheet-translation-transformation-mixin ()  (defclass sheet-translation-transformation-mixin ()
261    ((transformation :initform (make-instance 'transformation)    ((transformation :initform +identity-transformation+
262                     :initarg :transformation                     :initarg :transformation
263                     :accessor sheet-transformation)                     :accessor sheet-transformation)
264     ))     ))
# Line 268  Line 268 
268        (error "Attempting to set the SHEET-TRANSFORMATION of a SHEET-TRANSLATION-TRANSFORMATION-MIXIN to a non translation transformation")))        (error "Attempting to set the SHEET-TRANSFORMATION of a SHEET-TRANSLATION-TRANSFORMATION-MIXIN to a non translation transformation")))
269    
270  (defclass sheet-y-inverting-transformation-mixin ()  (defclass sheet-y-inverting-transformation-mixin ()
271    ((transformation :initform (make-instance 'transformation :myy -1.0)    ((transformation :initform (make-transformation 0 0 0 -1 0 0)
272                     :initarg :transformation                     :initarg :transformation
273                     :accessor sheet-transformation)                     :accessor sheet-transformation)
274     ))     ))
# Line 278  Line 278 
278        (error "Attempting to set the SHEET-TRANSFORMATION of a SHEET-Y-INVERTING-TRANSFORMATION-MIXIN to a non Y inverting transformation")))        (error "Attempting to set the SHEET-TRANSFORMATION of a SHEET-Y-INVERTING-TRANSFORMATION-MIXIN to a non Y inverting transformation")))
279    
280  (defclass sheet-transformation-mixin ()  (defclass sheet-transformation-mixin ()
281    ((transformation :initform (make-instance 'transformation)    ((transformation :initform +identity-transformation+
282                     :initarg :transformation                     :initarg :transformation
283                     :accessor sheet-transformation)                     :accessor sheet-transformation)
284     ))     ))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5