mcclim-cvs November 2005

mcclim-cvs@common-lisp.net

2 participants
22 discussions

[mcclim-cvs] CVS update: Directory change: mcclim/Extensions
by mretzlaff＠common-lisp.net 24 Nov '05

24 Nov '05

Update of /project/mcclim/cvsroot/mcclim/Extensions In directory common-lisp.net:/tmp/cvs-serv13379/Extensions Log Message: Directory /project/mcclim/cvsroot/mcclim/Extensions added to the repository Date: Thu Nov 24 19:31:55 2005 Author: mretzlaff New directory mcclim/Extensions added

1 0

[mcclim-cvs] CVS update: mcclim/transforms.lisp
by gbaumann＠common-lisp.net 22 Nov '05

22 Nov '05

Update of /project/mcclim/cvsroot/mcclim In directory common-lisp.net:/tmp/cvs-serv23878 Modified Files: transforms.lisp Log Message: Some times we would build standard-translations, that really should be the identity transformation. Date: Tue Nov 22 12:40:02 2005 Author: gbaumann Index: mcclim/transforms.lisp diff -u mcclim/transforms.lisp:1.29 mcclim/transforms.lisp:1.30 --- mcclim/transforms.lisp:1.29 Wed Feb 2 11:18:58 2005 +++ mcclim/transforms.lisp Tue Nov 22 12:40:02 2005 @@ -4,7 +4,7 @@ ;;; Created: 1998-09-29 ;;; Author: Gilbert Baumann <unk6(a)rz.uni-karlsruhe.de> ;;; License: LGPL (See file COPYING for details). -;;; $Id: transforms.lisp,v 1.29 2005/02/02 10:18:58 tmoore Exp $ +;;; $Id: transforms.lisp,v 1.30 2005/11/22 11:40:02 gbaumann Exp $ ;;; -------------------------------------------------------------------------------------- ;;; (c) copyright 1998,1999,2003 by Gilbert Baumann ;;; (c) copyright 2000 by @@ -133,8 +133,11 @@ (values mxx mxy myx myy tx ty))) (defun make-translation-transformation (dx dy) - (make-instance 'standard-translation - :dx (coordinate dx) :dy (coordinate dy))) + (cond ((and (coordinate= dx 0) (coordinate= dy 0)) + +identity-transformation+) + (t + (make-instance 'standard-translation + :dx (coordinate dx) :dy (coordinate dy))))) (defun make-rotation-transformation (angle &optional origin) (if origin @@ -666,9 +669,7 @@ ;; (compose-transformations A B)x = (A o B)x = ABx (with-slots ((dx1 dx) (dy1 dy)) transformation1 (with-slots ((dx2 dx) (dy2 dy)) transformation2 - (make-instance 'standard-translation - :dx (+ dx1 dx2) - :dy (+ dy1 dy2))))) + (make-translation-transformation (+ dx1 dx2) (+ dy1 dy2))))) (defmethod compose-transformations (transformation2 (transformation1 standard-identity-transformation))

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

mcclim-cvs November 2005