(do-pixels-in-row
hunk ./doc/index.html 206
-current version is 0.5.1. A Debian package is available thanks to Peter van Eynde and Kevin Rosenberg, so if you're on Debian you should have no problems installing CL-GD. There's also a port
-for Gentoo Linux thanks to Matthew Kennedy. Otherwise, proceed like this:
+current version is 0.5.2. A Debian package is available thanks to Peter van Eynde and Kevin Rosenberg, so if you're on Debian you should have no problems installing CL-GD. There's also a port
+for Gentoo Linux thanks to Matthew Kennedy. Otherwise, proceed like this:
hunk ./doc/index.html 220
+(Note: On recent versions of Linux, one doesn't seem to need libiconv.)
+hunk ./doc/index.html 267 +
+Luís Oliveira maintains a darcs
+repository of CL-GD
+at http://common-lisp.net/~loliveira/ediware/.
+
hunk ./doc/index.html 358
-(with-image-from-file (old "zappa.jpg")
+(with-image-from-file (old "zappa.jpg")
hunk ./doc/index.html 360
- (image-size old)
- (with-image (new width height)
- (allocate-color 0 255 0 :image new) ; green background
- (copy-image old new 0 0 0 0 width height
+ (image-size old)
+ (with-image (new width height)
+ (allocate-color 0 255 0 :image new) ; green background
+ (copy-image old new 0 0 0 0 width height
hunk ./doc/index.html 365
- (write-image-to-file "zappa-green.jpg"
+ (write-image-to-file "zappa-green.jpg"
hunk ./doc/index.html 404
-These are essentially like their asterisk-less counterparts but bind the image to *DEFAULT-IMAGE* instead.
+These are essentially like their asterisk-less counterparts but bind the image to *DEFAULT-IMAGE* instead.
hunk ./doc/index.html 423
-quality is not specified, the default IJG JPEG
+quality is not specified, the default IJG JPEG
hunk ./doc/index.html 554
-See also the next section for some 'special colors.'
+See also the next section for some 'special colors.'
hunk ./doc/index.html 636
- (with-image* (10 10)
- (loop for i below +max-colors+ do
+ (with-image* (10 10)
+ (loop for i below +max-colors+ do
hunk ./doc/index.html 639
- (allocate-color i i i))
- (format t "Number of colors allocated: ~A~%" (number-of-colors))
- (format t "Maximal number of colors: ~A~%" +max-colors+)
- (format t "Exact match for red: ~A~%" (find-color 255 0 0 :exact t))
+ (allocate-color i i i))
+ (format t "Number of colors allocated: ~A~%" (number-of-colors))
+ (format t "Maximal number of colors: ~A~%" +max-colors+)
+ (format t "Exact match for red: ~A~%" (find-color 255 0 0 :exact t))
hunk ./doc/index.html 644
- (let ((match (find-color 255 0 0)))
+ (let ((match (find-color 255 0 0)))
hunk ./doc/index.html 646
- (list (color-component :red match)
- (color-component :green match)
- (color-component :blue match))))))
+ (list (color-component :red match)
+ (color-component :green match)
+ (color-component :blue match))))))
hunk ./doc/index.html 718
-(with-image* (200 100)
- (allocate-color 255 165 0) ; orange background
- (with-image (brush 6 6)
- (let* ((black (allocate-color 0 0 0 :image brush)) ; black background
- (red (allocate-color 255 0 0 :image brush))
- (blue (allocate-color 0 0 255 :image brush)))
- (setf (transparent-color brush) black) ; make background transparent
+(with-image* (200 100)
+ (allocate-color 255 165 0) ; orange background
+ (with-image (brush 6 6)
+ (let* ((black (allocate-color 0 0 0 :image brush)) ; black background
+ (red (allocate-color 255 0 0 :image brush))
+ (blue (allocate-color 0 0 255 :image brush)))
+ (setf (transparent-color brush) black) ; make background transparent
hunk ./doc/index.html 726
- (set-pixels '(2 2 2 3 3 2 3 3)
+ (set-pixels '(2 2 2 3 3 2 3 3)
hunk ./doc/index.html 728
- (set-pixels '(3 2 3 3 1 2 1 3 4 2 4 3 2 1 3 1 2 4 3 4)
+ (set-pixels '(3 2 3 3 1 2 1 3 4 2 4 3 2 1 3 1 2 4 3 4)
hunk ./doc/index.html 731
- (draw-arc 100 50 180 80 180 300
+ (draw-arc 100 50 180 80 180 300
hunk ./doc/index.html 733
- :color (make-brush brush)))
- (write-image-to-file "brushed-arc.png"
+ :color (make-brush brush)))
+ (write-image-to-file "brushed-arc.png"
hunk ./doc/index.html 743
-href="draw-freetype-string">DRAW-FREETYPE-STRING
+href="#draw-freetype-string">DRAW-FREETYPE-STRING
hunk ./doc/index.html 782
- href="make-anti-aliased">MAKE-ANTI-ALIASED for
+ href="#make-anti-aliased">MAKE-ANTI-ALIASED for
hunk ./doc/index.html 810
-
make-brush image => brush
+
make-brush image => brush
hunk ./doc/index.html 823
-
make-tile image => tile
+
make-tile image => tile
hunk ./doc/index.html 836
-
make-anti-aliased color &optionaldo-not-blend => color'
+
make-anti-aliased color &optionaldo-not-blend => color'
hunk ./doc/index.html 848
-(with-image* (150 50)
- (let ((orange (allocate-color 255 165 0)) ; orange background
- (white (allocate-color 255 255 255))
- (red ( href="#allocate-color">allocate-color 255 0 0)))
+(with-image* (150 50)
+ (let ((orange (allocate-color 255 165 0)) ; orange background
+ (white (allocate-color 255 255 255))
+ (red (allocate-color 255 0 0)))
hunk ./doc/index.html 853
- (draw-rectangle* 50 0 99 49
+ (draw-rectangle* 50 0 99 49
hunk ./doc/index.html 856
- (with-thickness (2)
+ (with-thickness (2)
hunk ./doc/index.html 858
- (draw-line 5 10 145 10 :color red)
+ (draw-line 5 10 145 10 :color red)
hunk ./doc/index.html 860
- (draw-line 5 25 145 25 :color (make-anti-aliased red))
+ (draw-line 5 25 145 25 :color (make-anti-aliased red))
hunk ./doc/index.html 863
- (draw-line 5 40 145 40 :color (make-anti-aliased red orange))))
- (write-image-to-file "anti-aliased-lines.png"
+ (draw-line 5 40 145 40 :color (make-anti-aliased red orange))))
+ (write-image-to-file "anti-aliased-lines.png"
hunk ./doc/index.html 871
-Usually, CL-GD coordinates and dimensions (width and height) have to be integers. The origin (0,0) of an image is its upper left corner and all other points like (X,Y) have positive X and Y values. Angles are also provided as integers (in the range 0-360) meaning degrees. A transformation provides a way to change this.
+Usually, CL-GD coordinates and dimensions (width and height) have to be integers. The origin (0,0) of an image is its upper left corner and all other points like (X,Y) have positive X and Y values. Angles are also provided as integers (in the range 0-360) meaning degrees. A transformation provides a way to change this.
hunk ./doc/index.html 956
-(with-image* (100 100)
- (allocate-color 255 255 255) ; white background
- (let ((red (allocate-color 255 0 0))
- (yellow (allocate-color 255 255 0))
- (orange (allocate-color 255 165 0)))
+(with-image* (100 100)
+ (allocate-color 255 255 255) ; white background
+ (let ((red (allocate-color 255 0 0))
+ (yellow (allocate-color 255 255 0))
+ (orange (allocate-color 255 165 0)))
hunk ./doc/index.html 962
- (draw-rectangle* 0 0 99 99
- :color (allocate-color 0 0 0))
+ (draw-rectangle* 0 0 99 99
+ :color (allocate-color 0 0 0))
hunk ./doc/index.html 965
- (with-thickness (5)
+ (with-thickness (5)
hunk ./doc/index.html 967
- (draw-polygon (list 10 10 90 50 50 90)
+ (draw-polygon (list 10 10 90 50 50 90)
hunk ./doc/index.html 973
- (write-image-to-file "triangle.png"
+ (write-image-to-file "triangle.png"
hunk ./doc/index.html 993
-(with-image* (250 150)
- (with-image-from-file (zappa "smallzappa.png")
- (setf (transparent-color) (allocate-color 255 255 255))
- (draw-filled-ellipse 125 75 250 150
- :color (make-tile zappa)))
- (write-image-to-file "zappa-ellipse.png"
+(with-image* (250 150)
+ (with-image-from-file (zappa "smallzappa.png")
+ (setf (transparent-color) (allocate-color 255 255 255))
+ (draw-filled-ellipse 125 75 250 150
+ :color (make-tile zappa)))
+ (write-image-to-file "zappa-ellipse.png"
hunk ./doc/index.html 1021
-border color. (You can't use 'special colors' for the border color.) Otherwise only points with the same color as the
-starting point will be colored. If color is a tile the tile must not have a transparent color.
+border color. (You can't use 'special colors' for the border color.) Otherwise only points with the same color as the
+starting point will be colored. If color is a tile the tile must not have a transparent color.
hunk ./doc/index.html 1066
-(with-image* (150 150)
- (allocate-color 255 255 255) ; white background
+(with-image* (150 150)
+ (allocate-color 255 255 255) ; white background
hunk ./doc/index.html 1070
- (with-transformation (:x1 (- pi) :width (* 2 pi) :y1 -3 :y2 3)
- (let ((black (allocate-color 0 0 0))
- (red (allocate-color 255 0 0))
+ (with-transformation (:x1 (- pi) :width (* 2 pi) :y1 -3 :y2 3)
+ (let ((black (allocate-color 0 0 0))
+ (red (allocate-color 255 0 0))
hunk ./doc/index.html 1074
- (with-default-color (black)
+ (with-default-color (black)
hunk ./doc/index.html 1076
- (draw-line 0 -3 0 3 :color black)
- (draw-line (- pi) 0 pi 0))
+ (draw-line 0 -3 0 3 :color black)
+ (draw-line (- pi) 0 pi 0))
hunk ./doc/index.html 1079
- (draw-rectangle rectangle :color (list black black black nil black nil))
- (with-clipping-rectangle (rectangle)
+ (draw-rectangle rectangle :color (list black black black nil black nil))
+ (with-clipping-rectangle (rectangle)
hunk ./doc/index.html 1083
- (set-pixel x (tan x) :color red)))))
- (write-image-to-file "clipped-tangent.png"
+ (set-pixel x (tan x) :color red)))))
+ (write-image-to-file "clipped-tangent.png"
hunk ./doc/index.html 1106
-CL-GD (actually GD) comes with five included fonts which can be accessed with the keywords :TINY, :SMALL, :MEDIUM, :MEDIUM-BOLD (a synonym for :MEDIUM), :LARGE, and :GIANT and used with DRAW-STRING and DRAW-CHAR. Using these fonts will make your application portable to all platforms supported by CL-GD (and thus GD). You can also invoke the FreeType library to draw (anti-aliased) strings with arbitrary TrueType fonts, sizes, and angles. This is, however, subject to the availability and location of the corresponding fonts on your target platform.
+CL-GD (actually GD) comes with five included fonts which can be accessed with the keywords :TINY, :SMALL, :MEDIUM, :MEDIUM-BOLD (a synonym for :MEDIUM), :LARGE, and :GIANT and used with DRAW-STRING and DRAW-CHARACTER. Using these fonts will make your application portable to all platforms supported by CL-GD (and thus GD). You can also invoke the FreeType library to draw (anti-aliased) strings with arbitrary TrueType fonts, sizes, and angles. This is, however, subject to the availability and location of the corresponding fonts on your target platform.
hunk ./doc/index.html 1120
-note that the fonts used for DRAW-STRING/DRAW-CHAR and DRAW-FREETYPE-STRING are incompatible
+note that the fonts used for DRAW-STRING/DRAW-CHARACTER and DRAW-FREETYPE-STRING are incompatible
hunk ./doc/index.html 1172
-(with-image* (200 200)
+(with-image* (200 200)
hunk ./doc/index.html 1174
- (setf (transparent-color)
- (allocate-color 255 255 255))
+ (setf (transparent-color)
+ (allocate-color 255 255 255))
hunk ./doc/index.html 1178
- (draw-freetype-string 100 100 "Common Lisp"
+ (draw-freetype-string 100 100 "Common Lisp"
hunk ./doc/index.html 1184
- :color (find-color 0 0 blue
+ :color (find-color 0 0 blue
hunk ./doc/index.html 1186
- (write-image-to-file "strings.png"
+ (write-image-to-file "strings.png"
hunk ./doc/index.html 1244
-* (with-image* (3 3 t) ; true-color image with 3x3 pixels
- (draw-rectangle* 0 0 2 2 :color (allocate-color 0 0 0)) ; black background
- (draw-line 0 0 2 2 :color (allocate-color 255 255 255)) ; white line
- (do-pixels ()
+* (with-image* (3 3 t) ; true-color image with 3x3 pixels
+ (draw-rectangle* 0 0 2 2 :color (allocate-color 0 0 0)) ; black background
+ (draw-line 0 0 2 2 :color (allocate-color 255 255 255)) ; white line
+ (do-pixels ()
hunk ./doc/index.html 1249
- (unless (zerop (raw-pixel))
- (decf (raw-pixel) #xff)))
- (do-rows (y)
+ (unless (zerop (raw-pixel))
+ (decf (raw-pixel) #xff)))
+ (do-rows (y)
hunk ./doc/index.html 1254
- (do-pixels-in-row (x)
+ (do-pixels-in-row (x)
hunk ./doc/index.html 1256
- (format t " Pixel <~A,~A> has value ~X~%" x y (raw-pixel)))
+ (format t " Pixel <~A,~A> has value ~X~%" x y (raw-pixel)))
hunk ./doc/index.html 1285
-
differentp image1 image2 => different
+
differentp image1 image2 => different
hunk ./doc/index.html 1294
-
copy-image source destination source-x source-y dest-x dest-y width height &key resample rotate angle resize dest-width dest-height merge merge-gray => destination
+
copy-image source destination source-x source-y dest-x dest-y width height &key resample rotate angle resize dest-width dest-height merge merge-gray => destination
hunk ./doc/index.html 1324
-
copy-palette source destination => destination
+
copy-palette source destination => destination
hunk ./doc/index.html 1332
-
true-color-to-palette &key dither colors-wanted image => image
+
true-color-to-palette &key dither colors-wanted image => image
hunk ./doc/index.html 1348
-(with-image* ((+ 256 384) 384 t)
- (let ((white (allocate-color 255 255 255))
- (red (allocate-color 255 0 0))
- (green (allocate-color 0 255 0))
- (blue (allocate-color 0 0 255))
+(with-image* ((+ 256 384) 384 t)
+ (let ((white (allocate-color 255 255 255))
+ (red (allocate-color 255 0 0))
+ (green (allocate-color 0 255 0))
+ (blue (allocate-color 0 0 255))
hunk ./doc/index.html 1354
- (image-width (image-width))
- (image-height (image-height)))
- (setf (transparent-color) white)
- (draw-rectangle* 0 0 image-width image-height :color white)
+ (image-width (image-width))
+ (image-height (image-height)))
+ (setf (transparent-color) white)
+ (draw-rectangle* 0 0 image-width image-height :color white)
hunk ./doc/index.html 1359
- (with-image-from-file (in-file "demoin.png")
- (copy-image in-file *default-image*
+ (with-image-from-file (in-file "demoin.png")
+ (copy-image in-file *default-image*
hunk ./doc/index.html 1367
- (image-size in-file)
+ (image-size in-file)
hunk ./doc/index.html 1369
- (copy-image in-file *default-image*
+ (copy-image in-file *default-image*
hunk ./doc/index.html 1376
- (with-default-color (green)
- (with-thickness (4)
- (draw-line 16 16 240 16)
- (draw-line 240 16 240 240)
- (draw-line 240 240 16 240)
- (draw-line 16 240 16 16))
- (draw-polygon vertices :filled t))
+ (with-default-color (green)
+ (with-thickness (4)
+ (draw-line 16 16 240 16)
+ (draw-line 240 16 240 240)
+ (draw-line 240 240 16 240)
+ (draw-line 16 240 16 16))
+ (draw-polygon vertices :filled t))
hunk ./doc/index.html 1385
- (draw-polygon vertices
- :color (make-anti-aliased green)
+ (draw-polygon vertices
+ :color (make-anti-aliased green)
hunk ./doc/index.html 1388
- (with-default-color (blue)
- (draw-arc 128 128 60 20 0 720)
- (draw-arc 128 128 40 40 90 270)
- (fill-image 8 8))
- (with-image (brush 16 16 t)
- (copy-image in-file brush
+ (with-default-color (blue)
+ (draw-arc 128 128 60 20 0 720)
+ (draw-arc 128 128 40 40 90 270)
+ (fill-image 8 8))
+ (with-image (brush 16 16 t)
+ (copy-image in-file brush
hunk ./doc/index.html 1397
- :dest-width (image-width brush)
- :dest-height (image-height brush))
- (draw-line 0 255 255 0
- :color (cons (make-brush brush)
+ :dest-width (image-width brush)
+ :dest-height (image-height brush))
+ (draw-line 0 255 255 0
+ :color (cons (make-brush brush)
hunk ./doc/index.html 1402
- (with-default-color (red)
- (draw-string 32 32 "hi" :font :giant)
- (draw-string 64 64 "hi" :font :small))
- (with-clipping-rectangle* (0 (- image-height 100) 100 image-height)
- (with-default-color ((make-anti-aliased white))
+ (with-default-color (red)
+ (draw-string 32 32 "hi" :font :giant)
+ (draw-string 64 64 "hi" :font :small))
+ (with-clipping-rectangle* (0 (- image-height 100) 100 image-height)
+ (with-default-color ((make-anti-aliased white))
hunk ./doc/index.html 1408
- (draw-line (random image-width)
+ (draw-line (random image-width)
hunk ./doc/index.html 1412
- (setf (interlacedp) t)
- (write-image-to-file "demoout.png"
+ (setf (interlacedp) t)
+ (write-image-to-file "demoout.png"
hunk ./doc/index.html 1415
- (true-color-to-palette)
- (write-image-to-file "demooutp.png"
+ (true-color-to-palette)
+ (write-image-to-file "demooutp.png"
hunk ./doc/index.html 1433
-Thanks to Luis Oliveira for CLISP/CFFI support.
+Thanks to Luis Oliveira for CLISP/CFFI support and to Bryan O'Connor for OpenMCL support.
hunk ./doc/index.html 1435
-$Header: /usr/local/cvsrep/gd/doc/index.html,v 1.56 2005/10/04 08:45:45 edi Exp $
+$Header: /usr/local/cvsrep/gd/doc/index.html,v 1.68 2007/02/28 15:54:41 edi Exp $
hunk ./drawing.lisp 2
-;;; $Header: /usr/local/cvsrep/gd/drawing.lisp,v 1.26 2005/09/26 12:50:11 edi Exp $
+;;; $Header: /usr/local/cvsrep/gd/drawing.lisp,v 1.28 2007/01/01 23:41:00 edi Exp $
hunk ./drawing.lisp 4
-;;; Copyright (c) 2003-2005, Dr. Edmund Weitz. All rights reserved.
+;;; Copyright (c) 2003-2007, Dr. Edmund Weitz. All rights reserved.
hunk ./gd-uffi.lisp 2
-;;; $Header: /usr/local/cvsrep/gd/gd-uffi.lisp,v 1.28 2005/05/17 16:59:22 edi Exp $
+;;; $Header: /usr/local/cvsrep/gd/gd-uffi.lisp,v 1.30 2007/01/01 23:41:00 edi Exp $
hunk ./gd-uffi.lisp 4
-;;; Copyright (c) 2003-2005, Dr. Edmund Weitz. All rights reserved.
+;;; Copyright (c) 2003-2007, Dr. Edmund Weitz. All rights reserved.
hunk ./images.lisp 2
-;;; $Header: /usr/local/cvsrep/gd/images.lisp,v 1.31 2005/09/26 12:50:11 edi Exp $
+;;; $Header: /usr/local/cvsrep/gd/images.lisp,v 1.33 2007/01/01 23:41:00 edi Exp $
hunk ./images.lisp 4
-;;; Copyright (c) 2003-2005, Dr. Edmund Weitz. All rights reserved.
+;;; Copyright (c) 2003-2007, Dr. Edmund Weitz. All rights reserved.
hunk ./init.lisp 2
-;;; $Header: /usr/local/cvsrep/gd/init.lisp,v 1.9 2005/03/09 14:17:56 edi Exp $
+;;; $Header: /usr/local/cvsrep/gd/init.lisp,v 1.12 2007/01/01 23:41:00 edi Exp $
hunk ./init.lisp 4
-;;; Copyright (c) 2003-2005, Dr. Edmund Weitz. All rights reserved.
+;;; Copyright (c) 2003-2007, Dr. Edmund Weitz. All rights reserved.
hunk ./init.lisp 42
- :supporting-libraries *gd-supporting-libraries*)
- (print filename)))
+ :supporting-libraries *gd-supporting-libraries*)))
hunk ./init.lisp 47
+
hunk ./misc.lisp 2
-;;; $Header: /usr/local/cvsrep/gd/misc.lisp,v 1.13 2005/09/26 12:50:11 edi Exp $
+;;; $Header: /usr/local/cvsrep/gd/misc.lisp,v 1.15 2007/01/01 23:41:00 edi Exp $
hunk ./misc.lisp 4
-;;; Copyright (c) 2003-2005, Dr. Edmund Weitz. All rights reserved.
+;;; Copyright (c) 2003-2007, Dr. Edmund Weitz. All rights reserved.
hunk ./specials.lisp 2
-;;; $Header: /usr/local/cvsrep/gd/specials.lisp,v 1.27 2005/10/04 08:45:44 edi Exp $
+;;; $Header: /usr/local/cvsrep/gd/specials.lisp,v 1.29 2007/01/01 23:41:00 edi Exp $
hunk ./specials.lisp 4
-;;; Copyright (c) 2003-2005, Dr. Edmund Weitz. All rights reserved.
+;;; Copyright (c) 2003-2007, Dr. Edmund Weitz. All rights reserved.
hunk ./strings.lisp 2
-;;; $Header: /usr/local/cvsrep/gd/strings.lisp,v 1.16 2005/03/09 14:17:56 edi Exp $
+;;; $Header: /usr/local/cvsrep/gd/strings.lisp,v 1.19 2007/01/01 23:41:00 edi Exp $
hunk ./strings.lisp 4
-;;; Copyright (c) 2003-2005, Dr. Edmund Weitz. All rights reserved.
+;;; Copyright (c) 2003-2007, Dr. Edmund Weitz. All rights reserved.
hunk ./strings.lisp 33
- "Execute BODY with *DEFAULT-FONT* bound to FONT so that you don't
-have to provide the FONT keyword/optional argument to string
-functions. But note that the fonts used for DRAW-STRING/DRAW-CHAR and
-DRAW-FREETYPE-STRING are incompatible."
+ "Execute BODY with *DEFAULT-FONT* bound to FONT so that you
+don't have to provide the FONT keyword/optional argument to
+string functions. But note that the fonts used for
+DRAW-STRING/DRAW-CHARACTER and DRAW-FREETYPE-STRING are
+incompatible."
hunk ./transform.lisp 2
-;;; $Header: /usr/local/cvsrep/gd/transform.lisp,v 1.18 2005/09/26 12:50:11 edi Exp $
+;;; $Header: /usr/local/cvsrep/gd/transform.lisp,v 1.20 2007/01/01 23:41:00 edi Exp $
hunk ./transform.lisp 4
-;;; Copyright (c) 2003-2005, Dr. Edmund Weitz. All rights reserved.
+;;; Copyright (c) 2003-2007, Dr. Edmund Weitz. All rights reserved.
hunk ./util.lisp 2
-;;; $Header: /usr/local/cvsrep/gd/util.lisp,v 1.12 2005/09/26 12:50:11 edi Exp $
+;;; $Header: /usr/local/cvsrep/gd/util.lisp,v 1.15 2007/02/28 15:47:58 edi Exp $
hunk ./util.lisp 4
-;;; Copyright (c) 2003-2005, Dr. Edmund Weitz. All rights reserved.
+;;; Copyright (c) 2003-2007, Dr. Edmund Weitz. All rights reserved.
hunk ./util.lisp 127
+ (write-char #\# s)
}