@Sharynn

@Sharynn

Effectivement ça marche sur ma Sam440 : faut juste penser à ajouter la ptreplay.library

J'ai aussi réessayer tes anciennes démos "zoom" et "démo" : elles marchent toujours sur mon OS41FE

A propos d'ouverture de .library moi je me suis fait une macro = c'est moins pénible que de mettre des #ifdef __amigaos4__ partout

Pour tracer un prog j'aime aussi beucoup cette macro là:
#define LL            {printf("Line:%ld\n",__LINE__);}
Après y suffit de mettre un LL en début de chaque ligne à tester

Alain

*========================================================================= =========*/
#ifdef __amigaos4__
#define OS4
#else
#define OS3
#endif
*============================================================= =====================*/
#define LIBCLOSE(libbase)  if(libbase!=NULL) {CloseLibrary( (struct Library  *)libbase );   libbase=NULL; }
#define LIBOPEN(libbase,name,version)  libbase =(void*)OpenLibrary(#name,version);    if(libbase==NULL)  return(FALSE);
#ifdef OS4
#define LIBOPEN4(interface,libbase)    interface=(void*)GetInterface((struct Library *)libbase, "main", 1, NULL); if(interface==NULL) return(FALSE);
#define LIBCLOSE4(interface) if(interface!=NULL) {DropInterface((struct Interface*)interface );interface=NULL;}
#else
#define LIBOPEN4(interface,libbase)    ;
#define LIBCLOSE4(interface) ;
#endif
/*=============================================================== ===================*/
BOOL OpenAmigaLibraries()
{
 LIBOPEN(DOSBase,dos.library,36)
 LIB OPEN(GfxBase,graphics.library,0)
 LIBOPEN(IntuitionBase,intuition.libra ry,0)
 LIBOPEN(CyberGfxBase,cybergraphics.library,0)
 LIBOPEN(D ataTypesBase,datatypes.library,39)
 LIBOPEN(Warp3DBase,Warp3D.library,4 )
 LIBOPEN(AslBase,asl.library,37)
 LIBOPEN(UtilityBase,utility .library,0)
 LIBOPEN(RexxSysBase,rexxsyslib.library,35)

 LIBOPEN4(IDOS,DOSBase)
 LIBOPEN4(IGraphics,GfxBase)
  ;LIBOPEN4(IIntuition,IntuitionBase)
 LIBOPEN4(ICyberGfx,CyberGfxBase) LIBOPEN4(IDataTypes,DataTypesBase)
 LIBOPEN4(IWarp3D,Warp3DBase )
 LIBOPEN4(IAsl,AslBase)
 LIBOPEN4(IUtility,UtilityBase)
&n bsp;LIBOPEN4(IRexxSys,RexxSysBase)