File: magick.scm

package info (click to toggle)
gauche-c-wrapper 0.5.4-2
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 3,892 kB
  • ctags: 2,869
  • sloc: ansic: 14,863; sh: 14,017; lisp: 6,822; asm: 6,456; makefile: 541; exp: 194; cpp: 157; objc: 144; perl: 2
file content (22 lines) | stat: -rw-r--r-- 657 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
(use c-wrapper)

(c-load '("stdio.h" "wand/magick_wand.h")
        :cppflags-cmd "Wand-config --cppflags"
        :ldflags-cmd "Wand-config --ldflags"
        :libs-cmd "Wand-config --libs"
        :compiled-lib "magicklib")

(define (main args)
  (MagickWandGenesis)
  (let ((magick-wand (NewMagickWand)))
    (MagickReadImage magick-wand "bear.jpg")
    (MagickResetIterator magick-wand)
    (MagickNextImage magick-wand)
    (MagickResizeImage magick-wand 100 75 LanczosFilter 1.0)
    (MagickWriteImages magick-wand "thumbnail.png" MagickTrue)
    (print "thumbnail.png is created.")
    (DestroyMagickWand magick-wand)
    (MagickWandTerminus))
  0)