Hi!
On Fri, 20 Aug 2004 19:00:42 +0200, Lam <lam(a)no-log.org> wrote:
> i try to use your great software cl-gd
> i have a question about size of image
>
> i use your example :
>
>> (defun test ()
>> (cl-gd:with-image* (800 800) ; create 200x200 pixel image
>> (cl-gd:allocate-color 68 70 85) ; background color
>> (let ((beige (cl-gd:allocate-color 222 200 81))
>> (brown (cl-gd:allocate-color 206 150 75))
>> (green (cl-gd:allocate-color 104 156 84))
>> (red (cl-gd:allocate-color 163 83 84))
>> (white (cl-gd:allocate-color 255 255 255))
>> (two-pi (* 2 pi)))
>> ;; move origin to center of image
>> (cl-gd:with-transformation (:x1 -100 :x2 100 :y1 -100 :y2 100
>> :radians t)
>> ;; draw some 'pie slices'
>> (cl-gd:draw-arc 0 0 130 130 0 (* .6 two-pi)
>> :center-connect t :filled t :color beige)
>> (cl-gd:draw-arc 0 0 130 130 (* .6 two-pi) (* .8 two-pi)
>> :center-connect t :filled t :color brown)
>> (cl-gd:draw-arc 0 0 130 130 (* .8 two-pi) (* .95 two-pi)
>> :center-connect t :filled t :color green)
>> (cl-gd:draw-arc 0 0 130 130 (* .95 two-pi) two-pi
>> :center-connect t :filled t :color red)
>> (cl-gd:with-default-color (white)
>> (cl-gd:with-default-font (:small)
>> (cl-gd:draw-string -8 -30 "60%")
>> (cl-gd:draw-string -20 40 "20%")
>> (cl-gd:draw-string 20 30 "15%"))
>> ;; (cl-gd:draw-freetype-string -90 75 "Global Revenue"
>> ;; ;; this assumes that
>> 'DEFAULT_FONTPATH'
>> ;; ;; is set correctly
>> ;; :font-name "verdanab"))))
>> )))
>> (cl-gd:write-image-to-file "/tmp/test.png"
>> :compression-level 6 :if-exists
>> :supersede)))
>
> i have modifed window's size to 800
> it's ok for the image, but why arc's size is larger than is your
> example with size equal to 200 ?
Because of the WITH-TRANSFORMATION macro.
<http://weitz.de/cl-gd/#with-transformation>
> how can i modify only image's size, not arc size ?
Sure, but then you'd have to change the code to use absolute
coordinates.
> sorry to send your this mail, but this mail isn't my current mail,
> and i have not subscribed to the ml with this mail
It'd be nice if you could send further questions to the mailing
list. Thanks.
Cheers,
Edi.
