Pages vues depuis 25/07/2007 : 24 887 782
Index du forum »» Création-Développement »» AmOS4
@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)
LIBOPEN(GfxBase,graphics.library,0)
LIBOPEN(IntuitionBase,intuition.library,0)
LIBOPEN(CyberGfxBase,cybergraphics.library,0)
LIBOPEN(DataTypesBase,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)
LIBOPEN4(IRexxSys,RexxSysBase)
}
/*======================================================================================*/
void CloseAmigaLibraries()
{
LIBCLOSE4(IDOS)
LIBCLOSE4(IGraphics)
LIBCLOSE4(IIntuition)
LIBCLOSE4(ICyberGfx)
LIBCLOSE4(IDataTypes)
LIBCLOSE4(IWarp3D)
LIBCLOSE4(IAsl)
LIBCLOSE4(IUtility)
LIBCLOSE4(IRexxSys)
LIBCLOSE(DOSBase)
LIBCLOSE(GfxBase)
LIBCLOSE(IntuitionBase)
LIBCLOSE(CyberGfxBase)
LIBCLOSE(DataTypesBase)
LIBCLOSE(Warp3DBase)
LIBCLOSE(AslBase)
LIBCLOSE(UtilityBase)
LIBCLOSE(RexxSysBase)
}
/*==================================================================================*/
C'est un beau projet! Je vais ptet dire un gros mot, mais si tu mettaisCitation : Sharynn
"I'm a poor lonesome coder and ilong way to end"...
A1200 en Rack 1U custom | Pas de machine NG.
fra.planet-d.net