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:
edfd47e
)
Added optional NEGATIVE-P argument to function CIRCLE
author
espen
<espen>
Fri, 6 Apr 2007 14:12:09 +0000
(14:12 +0000)
committer
espen
<espen>
Fri, 6 Apr 2007 14:12:09 +0000
(14:12 +0000)
cairo/cairo.lisp
patch
|
blob
|
blame
|
history
diff --git
a/cairo/cairo.lisp
b/cairo/cairo.lisp
index 63b1f70435397a4ccb5f62ac2fc65e984e954358..74bf02a823e710aeb2e4a1317817fb50a6d794e1 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
1 2007/02/19 14:37:52
espen Exp $
+;; $Id: cairo.lisp,v 1.1
2 2007/04/06 14:12:09
espen Exp $
(in-package "CAIRO")
(in-package "CAIRO")
@@
-498,8
+498,13
@@
(defpath line-to (x y) t)
(defpath move-to (x y) t)
(defpath rectangle (x y width height))
(defpath move-to (x y) t)
(defpath rectangle (x y width height))
-(defun circle (cr x y radius)
- (arc cr x y radius 0.0 (* pi 2)))
+(defun circle (cr x y radius &optional negative-p)
+ (move-to cr radius 0.0d0)
+ (if negative-p
+ (arc-negative cr x y radius (* pi 2) 0.0d0)
+ (arc cr x y radius 0.0d0 (* pi 2)))
+ (close-path cr))
+
(defbinding glyph-path (cr glyphs) nil
(cr context)
(defbinding glyph-path (cr glyphs) nil
(cr context)