diff --git a/silica/graphics.lisp b/silica/graphics.lisp index c819fcd96c276f6924ede7a472502bfd6c5bb65f..0ec8df5f6d147bc4a16aa53eb97fe83beffd6190 100644 --- a/silica/graphics.lisp +++ b/silica/graphics.lisp @@ -1,6 +1,6 @@ ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: SILICA; Base: 10; Lowercase: Yes -*- -;; $fiHeader: graphics.lisp,v 1.25 92/12/03 10:29:27 cer Exp $ +;; $fiHeader: graphics.lisp,v 1.26 92/12/16 16:49:30 cer Exp $ (in-package :silica) @@ -837,7 +837,8 @@ (elt position-seq (+ 6 i)) (elt position-seq (+ 7 i)) distance) (collect (elt position-seq (+ 6 i)) (elt position-seq (+ 7 i))))) - (medium-draw-polygon* medium (cdr head) nil filled))) + (with-identity-transformation (medium) + (medium-draw-polygon* medium (cdr head) nil filled)))) (defun render-bezier-curve (function x0 y0 x1 y1 x2 y2 x3 y3 distance) (flet ((split-bezier-curve (x0 y0 x1 y1 x2 y2 x3 y3)