'
' Constants and Declarations for ImageKnife/VBX library
'
' Copyright (c) 1993 by Media Architects, Inc.  ALL RIGHTS RESERVED
'


' ######  Constants  ######

' Image file formats
Global Const IMK_EXTENSION = 0
Global Const IMK_TIFF = 1
Global Const IMK_TARGA = 2
Global Const IMK_BITMAP = 3
Global Const IMK_GIF = 4
Global Const IMK_DIB = 5
Global Const IMK_PCX = 6
Global Const IMK_JPEG = 7
Global Const IMK_OLEPBRUSH = 8

' Image file compression types
Global Const IMK_UNCOMP = 0
Global Const IMK_LZW = 1
Global Const IMK_RLE = 2
Global Const IMK_PACKBITS = 3
Global Const IMK_OS2 = 4
Global Const IMK_PCXCOMP = 5


' ######  Declarations  ######

Declare Function imkAccessLoad Lib "KNIFE" (Chunks() As String * 32768) As Integer
Declare Function imkAccessStoreInit Lib "KNIFE" (ByVal FullPicture%, ByVal Fmt%, ByVal Compression%, ByVal ChunkSize&) As Long
Declare Function imkAccessStoreGetData Lib "KNIFE" (ByVal ChunkNum&) As String
Declare Function imkBlur Lib "KNIFE" (ByVal FullPicture%) As Integer
Declare Function imkBrightCont Lib "KNIFE" (ByVal FullPicture%, ByVal Brightness#, ByVal Contrast#) As Integer
Declare Function imkColorReplace Lib "KNIFE" (ByVal FullPicture%, ByVal C1&, ByVal C2&, ByVal Flag%, ByVal C3&) As Integer
Declare Function imkCountImages Lib "KNIFE" (ByVal FileName$, ByVal Fmt%) As Integer
Declare Function imkDuplicate Lib "KNIFE" (ByVal HDIB%) As Integer
Declare Function imkExtractEdges Lib "KNIFE" (ByVal FullPicture%, ByVal Magnitude%) As Integer
Declare Function imkForcePal Lib "KNIFE" (ByVal FullPicture%, ByVal Palette%) As Integer
Declare Function imkGamma Lib "KNIFE" (ByVal FullPicture%, ByVal Magnitude#) As Integer
Declare Function imkGetColor Lib "KNIFE" (ByVal FullPicture%, ByVal X%, ByVal Y%) As Long
Declare Function imkGetColorCount Lib "KNIFE" (ByVal FullPicture%) As Long
Declare Function imkGetPalColor Lib "KNIFE" (ByVal Palette%, ByVal position%) As Long
Declare Function imkGrayScale Lib "KNIFE" (ByVal FullPicture%) As Integer
Declare Function imkIncreaseColors Lib "KNIFE" (ByVal FullPicture%, ByVal Depth%) As Integer
Declare Function imkInit Lib "KNIFE" (ByVal ColorDepth%, ByVal NewWidth%, ByVal NewHeight%, ByVal NewColor&) As Integer
Declare Function imkLoad Lib "KNIFE" (ByVal FileName$, ByVal ImageNum%, ByVal Fmt%) As Integer
Declare Function imkLoadPal Lib "KNIFE" (ByVal FileName$, ByVal ImageNum%, ByVal Fmt%) As Integer
Declare Function imkMaskCopy Lib "KNIFE" (FromPicBuf As Control, ToPicBuf As Control, MaskPicBuf As Control) As Integer
Declare Function imkMatrixFilter Lib "KNIFE" (ByVal FullPicture%, ByVal MatrixSize%, Matrix As Integer, ByVal MatrixScale%, ByVal MatrixNorm%, ByVal MatrixOffset%) As Integer
Declare Function imkMirror Lib "KNIFE" (ByVal FullPicture%, ByVal BoolHoriz%, ByVal BoolVert%) As Integer
Declare Function imkNegate Lib "KNIFE" (ByVal FullPicture%) As Integer
Declare Function imkOptimizePal Lib "KNIFE" (Images As Any, ByVal ImgCount%, ByVal Colors%) As Integer
Declare Function imkReduceColors Lib "KNIFE" (ByVal FullPicture%, ByVal Colors&, ByVal Optimize%, ByVal Dither%, ByVal NoBleed%) As Integer
Declare Function imkRemapPal Lib "KNIFE" (ByVal FullPicture%, ByVal Palette%) As Integer
Declare Function imkRotate Lib "KNIFE" (ByVal FullPicture%, ByVal Angle%, ByVal BackColor&) As Integer
Declare Function imkSetPalColor Lib "KNIFE" (ByVal Palette%, ByVal Index%, ByVal VBcolor&) As Integer
Declare Function imkSetPalette Lib "KNIFE" (ByVal Count%, Buffer As Long) As Integer
Declare Function imkSharpen Lib "KNIFE" (ByVal FullPicture%, ByVal Sharpness%) As Integer
Declare Function imkSoften Lib "KNIFE" (ByVal FullPicture%, ByVal Softness%) As Integer
Declare Function imkTwipsToXCoord Lib "KNIFE" (hctl As Control, ByVal twips&) As Integer
Declare Function imkTwipsToYCoord Lib "KNIFE" (hctl As Control, ByVal twips&) As Integer
Declare Function imkVerify Lib "KNIFE" (ByVal FullPicture%) As Integer
Declare Function imkXCoordToTwips Lib "KNIFE" (hctl As Control, ByVal XCoord%) As Long
Declare Function imkYCoordToTwips Lib "KNIFE" (hctl As Control, ByVal YCoord%) As Long

Declare Sub imkAccessStoreDone Lib "KNIFE" ()
Declare Sub imkAppendTiff Lib "KNIFE" (ByVal FileName$, ByVal Picture%, ByVal Compress%)
Declare Sub imkGetPalette Lib "KNIFE" (ByVal FullPicture%, Buffer As Any)
Declare Sub imkGetScanLine Lib "KNIFE" (ByVal FullPicture%, ByVal LineNo%, Buffer As Any)
Declare Sub imkPutScanLine Lib "KNIFE" (ByVal FullPicture%, ByVal LineNo%, Buffer As Any)
Declare Sub imkSetScreenPal Lib "KNIFE" (ByVal Palette%)
Declare Sub imkStore Lib "KNIFE" (ByVal FileName$, ByVal FullPicture%, ByVal Fmt%, ByVal Compression%)
Declare Sub imkStorePal Lib "KNIFE" (ByVal FileName$, ByVal Palette%, ByVal Fmt%)

