/* CROP */

options results

arg frame " " total " " loopf

/* Start ADPro, en haalt die naar voren. */

address "ADPro"

ADPRO_TO_FRONT

/* Zoekt de plaatjes info. */

IMAGE_TYPE

if index(ADPRO_RESULT,"BITPLANE") = 0 then
do
   image = 0

   /* Bekijkt het palette. */

   if frame = 1 & loopf = 0 then PSTATUS UNLOCKED

   /* zet image parameters met default conversie opties. */

   ABS_SCALE 320 400

   DITHER 6
   DITHER_AMOUNT 16

   SCREEN_TYPE 258
   RENDER_TYPE HAM8
end
else
do
   image = 1

   /* bekijkt het palette opnieuw. */

   PSTATUS LOCKED

   /* Gebruikt image parameters zoals gedefinieerd in het geladen plaatje. */
   /* behalve de volgende......... */

   DITHER 0
   DITHER_AMOUNT 16
end

/* Zoekt de dimensies van het plaatje. */

XSIZE

ix = ADPRO_RESULT

YSIZE

iy = ADPRO_RESULT

/* Zet de argumenten en roept de operator op! */
/* in dit voorbeeld, volgt crop-out op het midden van de plaat. */

cw = ix%2
ch = iy%2

cl = ix%4
ct = iy%4

OPERATOR "CROP_IMAGE" cw ch cl ct

/* Berekenen van de plaat. */

EXECUTE

/* kijkt naar palette locking/unlocking. */

if image = 0 then PSTATUS LOCKED

if image = 1 then PSTATUS UNLOCKED

ADPRO_DISPLAY

SCREEN_TO_FRONT

exit