Amiga ISO Collection/AmigaUtilCD2.iso/Programming/Pascal/MAXONPASCAL2.DMS/in.adf/INCLUDE/graphics/gfx_Functions.h

Text File | 1994-07-25 | 497 b | 16 lines

{$if not def GRAPHICS_GFX_MACROS_H} CONST GRAPHICS_GFX_MACROS_H=0;

{ ****************************************************************
  ** KickPascal-Include-Datei "graphics/gfx.h" zu Kickstart 3.0 **
  ** Ergänzung der MACROs als Pascal FUNCTIONen           by JS **
  **************************************************************** }

{$if not def GRAPHICS_GFX_H; incl "graphics/gfx.h";endif}

FUNCTION RASSIZE (w,h : Long) : Long;
BEGIN
 RASSIZE:=(h*((w+15) DIV 8) AND $FFFE);
END;

{$endif}