← Back to branch summary

~ubuntu-branches/ubuntu/lucid/gauche-c-wrapper/lucid

« back to all changes in this revision

Viewing changes to examples/ImageMagick/magick.scm

  • Committer: Bazaar Package Importer
  • Author(s): NIIBE Yutaka
  • Date: 2008-04-07 09:15:03 UTC
  • Revision ID: james.westby@ubuntu.com-20080407091503-wu0h414koe95kj4i
Tags: upstream-0.5.2
Import upstream version 0.5.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
examples/ImageMagick/magick.scm
 
1
(use c-wrapper)
 
2
 
 
3
(c-load '("stdio.h" "wand/magick_wand.h")
 
4
        :cppflags-cmd "Wand-config --cppflags"
 
5
        :ldflags-cmd "Wand-config --ldflags"
 
6
        :libs-cmd "Wand-config --libs"
 
7
        :compiled-lib "magicklib")
 
8
 
 
9
(define (main args)
 
10
  (MagickWandGenesis)
 
11
  (let ((magick-wand (NewMagickWand)))
 
12
    (MagickReadImage magick-wand "bear.jpg")
 
13
    (MagickResetIterator magick-wand)
 
14
    (MagickNextImage magick-wand)
 
15
    (MagickResizeImage magick-wand 100 75 LanczosFilter 1.0)
 
16
    (MagickWriteImages magick-wand "thumbnail.png" MagickTrue)
 
17
    (print "thumbnail.png is created.")
 
18
    (DestroyMagickWand magick-wand)
 
19
    (MagickWandTerminus))
 
20
  0)
 
21
 
 
22