chiark
/
gitweb
/
~mdw
/
clg
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ff0f1f0
)
Bug fix in SCALE-TO-DEVICE
author
espen
<espen>
Fri, 7 Sep 2007 07:13:55 +0000
(07:13 +0000)
committer
espen
<espen>
Fri, 7 Sep 2007 07:13:55 +0000
(07:13 +0000)
cairo/cairo.lisp
patch
|
blob
|
blame
|
history
diff --git
a/cairo/cairo.lisp
b/cairo/cairo.lisp
index d17b80e599dcd81a20908022a2a0cdbb28e4dbc7..23e14e2c2bf3849e691ed6255566b9e305aa1bd0 100644
(file)
--- a/
cairo/cairo.lisp
+++ b/
cairo/cairo.lisp
@@
-20,7
+20,7
@@
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: cairo.lisp,v 1.1
4 2007-08-23 21:12:43
espen Exp $
+;; $Id: cairo.lisp,v 1.1
5 2007-09-07 07:13:55
espen Exp $
(in-package "CAIRO")
(in-package "CAIRO")
@@
-578,10
+578,11
@@
(defbinding scale (cr sx &optional (sy sx)) nil
(defun scale-to-device (cr &optional keep-rotation-p)
(if keep-rotation-p
(multiple-value-call #'scale cr (device-to-user-distance cr 1.0))
(defun scale-to-device (cr &optional keep-rotation-p)
(if keep-rotation-p
(multiple-value-call #'scale cr (device-to-user-distance cr 1.0))
- (multiple-value-bind (x y)
- (multiple-value-call #'user-to-device cr (get-current-point cr))
-; (identity-matrix cr)
- (setf (matrix cr) (matrix-init-identity))
+ (multiple-value-bind (x y)
+ (with-context (cr)
+ (move-to cr 0.0 0.0)
+ (multiple-value-call #'user-to-device cr (get-current-point cr)))
+ (identity-matrix cr)
(translate cr x y))))
(defbinding rotate () nil
(translate cr x y))))
(defbinding rotate () nil