Commit: c0d8532a1933c8fa76facd55d1afcfb6e6999f02 - trjp_sawfish (git)

Japanese translation of message catalog for Sawfish Window-Manager

Commit MetaInfo

• Revisão: c0d8532a1933c8fa76facd55d1afcfb6e6999f02 (tree)
• Hora: 2000-05-11 02:58:45
• Autor: john <john>
• Commiter: john

Mensagem de Log

(3d-rotate flatten): use inexact->exact on transformed coordinates
(fixes bug introduced by rounding functions now preserving inexactness)

Mudança Sumário

• modified: lisp/3d-hack.jl
• modified: lisp/sawfish/wm/ext/3d-hack.jl

Diff

--- a/lisp/3d-hack.jl
+++ b/lisp/3d-hack.jl
@@ -198,8 +198,8 @@
 		    (- 3d-observer 3d-horizon))))
 	(setq x (* x fact))
 	(setq y (* y fact))
-	(cons (truncate (+ (* x 100) 200))
-	      (truncate (+ (* y 100) 200)))))
+	(cons (inexact->exact (truncate (+ (* x 100) 200)))
+	      (inexact->exact (truncate (+ (* y 100) 200))))))
 
     (aset 3d-rot 0 (trunc (+ (aref 3d-rot 0) (aref 3d-rot-speed 0))))
     (aset 3d-rot 1 (trunc (+ (aref 3d-rot 1) (aref 3d-rot-speed 1))))

--- a/lisp/sawfish/wm/ext/3d-hack.jl
+++ b/lisp/sawfish/wm/ext/3d-hack.jl
@@ -198,8 +198,8 @@
 		    (- 3d-observer 3d-horizon))))
 	(setq x (* x fact))
 	(setq y (* y fact))
-	(cons (truncate (+ (* x 100) 200))
-	      (truncate (+ (* y 100) 200)))))
+	(cons (inexact->exact (truncate (+ (* x 100) 200)))
+	      (inexact->exact (truncate (+ (* y 100) 200))))))
 
     (aset 3d-rot 0 (trunc (+ (aref 3d-rot 0) (aref 3d-rot-speed 0))))
     (aset 3d-rot 1 (trunc (+ (aref 3d-rot 1) (aref 3d-rot-speed 1))))