← Back to branch summary

~ubuntu-branches/ubuntu/feisty/fpc/feisty

« back to all changes in this revision

Viewing changes to packages/base/imagemagick/wand/magick_wand.pas

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2007-01-27 20:08:50 UTC
  • mfrom: (1.2.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20070127200850-9mrptaqqjsx9nwa7
Tags: 2.0.4-5
* Fixed Build-Depends.
* Add myself to Uploaders in debian/control.
* Make sure that the sources are really patched before building them.
* Build unit 'libc' on powerpc too.

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/base/imagemagick/wand/magick_wand.pas
 
1
{
 
2
  Copyright 1999-2005 ImageMagick Studio LLC, a non-profit organization
 
3
  dedicated to making software imaging solutions freely available.
 
4
  
 
5
  You may not use this file except in compliance with the License.
 
6
  obtain a copy of the License at
 
7
  
 
8
    http://www.imagemagick.org/script/license.php
 
9
  
 
10
  Unless required by applicable law or agreed to in writing, software
 
11
  distributed under the License is distributed on an "AS IS" BASIS,
 
12
  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 
13
  See the License for the specific language governing permissions and
 
14
  limitations under the License.
 
15
 
 
16
  ImageMagick MagickWand API.
 
17
  
 
18
  Converted from c by: Felipe Monteiro de Carvalho Dez/2005
 
19
}
 
20
{Version 0.2}
 
21
unit magick_wand;
 
22
 
 
23
{$IFDEF FPC}
 
24
  {$mode objfpc}
 
25
{$ENDIF}
 
26
 
 
27
{$PACKRECORDS C}
 
28
{$MINENUMSIZE 1}
 
29
 
 
30
interface
 
31
 
 
32
uses ImageMagick;
 
33
 
 
34
type
 
35
  MagickWand = record
 
36
    id: Cardinal;
 
37
    name: array[0..MaxTextExtent] of Char;
 
38
    exception: ExceptionInfo;
 
39
    image_info: PImageInfo;
 
40
    quantize_info: QuantizeInfo;
 
41
    images: Image;
 
42
    iterator, debug: MagickBooleanType;
 
43
    signature: Cardinal;
 
44
  end;
 
45
 
 
46
  PMagickWand = ^MagickWand;
 
47
 
 
48
{$include pixel_wand.inc}
 
49
{$include drawing_wand.inc}
 
50
{$include magick_attribute.inc}
 
51
{$include magick_image.inc}
 
52
{$include pixel_iterator.inc}
 
53
 
 
54
function IsMagickWand(const wand: PMagickWand): MagickBooleanType; cdecl; external WandExport;
 
55
function MagickClearException(wand: PMagickWand): MagickBooleanType; cdecl; external WandExport;
 
56
 
 
57
function CloneMagickWand(const wand: PMagickWand): PMagickWand; cdecl; external WandExport;
 
58
function DestroyMagickWand(wand: PMagickWand): PMagickWand; cdecl; external WandExport;
 
59
function NewMagickWand: PMagickWand; cdecl; external WandExport;
 
60
 
 
61
procedure ClearMagickWand(wand: PMagickWand); cdecl; external WandExport;
 
62
procedure MagickWandGenesis; cdecl; external WandExport;
 
63
procedure MagickWandTerminus; cdecl; external WandExport;
 
64
function MagickRelinquishMemory(resource: Pointer): Pointer; cdecl; external WandExport;
 
65
procedure MagickResetIterator(wand: PMagickWand); cdecl; external WandExport;
 
66
procedure MagickSetFirstIterator(wand: PMagickWand); cdecl; external WandExport;
 
67
procedure MagickSetLastIterator(wand: PMagickWand); cdecl; external WandExport;
 
68
 
 
69
implementation
 
70
 
 
71
end.