Listing 3: Skalieren mit Hilfe von Datatypes.

Object *obj;
if((obj = IDataTypes->NewDTObject(filename,
              DTA_SourceType,    DTST_FILE,
              DTA_GroupID,       GID_PICTURE,
              PDTA_ScaleQuality, 1,
              TAG_DONE)))
...
struct pdtScale pdt;
pdt.MethodID     = PDTM_SCALE;
pdt.ps_NewWidth  = width;    /* gewünschte Breite */
pdt.ps_NewHeight = height;   /* und Höhe */
pdt.ps_Flags     = 0;
if(!(IDataTypes->DoDTMethodA(obj,(Msg)&pdt)))
 IDOS->Printf(Datatype Skalierung fehlgeschlagen\n);