automatic commit - 25-11-2022

2022-11-25 03:00:01 +01:00
parent 8363fcee3f
commit 87010339e0
355 changed files with 8487 additions and 3317 deletions
--- a/tools/vision/ldv/src/dither/dither.c
+++ b/tools/vision/ldv/src/dither/dither.c
@@ -0,0 +1,145 @@
+/*
+ *
+ *
+ *	Version PureC / Gcc
+ */
+
+#define PCGEMLIB 1 /* mettre 1 si les utilisateurs de Pure C
+					* utilise les librairies GEM Pure C */
+
+/* Fichiers headers */
+
+#include <portab.h>
+#if PCGEMLIB
+#include <aes.h>
+#include <vdi.h>
+#else
+#include <aesbind.h>
+#include <vdibind.h>
+#endif
+
+#include <string.h>
+#include <stdlib.h>
+#include "..\..\ldg.h"
+#include "..\..\vapi.h"
+#include "..\..\ldv.h"
+#include "..\..\mt_aes.h"
+
+/* Prototypages */
+LDV_INFOS* cdecl GetLDVCapabilities(VAPI *vapi) ;
+LDV_STATUS cdecl PreRun(LDV_IMAGE *in, LDV_PARAMS *params, LDV_IMAGE *out) ;
+LDV_STATUS cdecl Run(LDV_IMAGE *in, LDV_PARAMS *params, LDV_IMAGE *out) ;
+LDV_STATUS cdecl Preview(LDV_IMAGE *in, LDV_PARAMS *params, LDV_IMAGE *out) ;
+
+void OnClose(void) ;
+
+/* Variables globales */
+PROC Proc[]  = {
+                 "GetLDVCapabilities", "LDV capabilties", (void *)GetLDVCapabilities,
+                 "PreRun", "Before Run", (void *)PreRun,
+                 "Run", "LDV routine", (void *)Run,
+                 "Preview", "Preview", (void *)Preview,
+              } ;
+
+char Info[] = "LDV";
+
+LDGLIB Ldg[] = {
+        0x0100, /* version de la lib, recommand<6E>  */
+        4,		  /* nombre de fonction dans la lib */
+        Proc,	  /* Pointeurs vers nos fonctions   */
+        Info,   /* Information sur la lib         */
+        0x0,   	/* Flags de la lib, obligatoire   */
+        NULL,
+        };
+
+#define BP_CAPS (LDVF_ATARIFORMAT | LDVF_SUPPORTPREVIEW | LDVF_REALTIMEPARAMS | LDVF_NOSELECTION | LDVF_AFFECTPALETTE)
+#define TC_CAPS (LDVF_ATARIFORMAT | LDVF_SUPPORTPREVIEW | LDVF_REALTIMEPARAMS | LDVF_NOSELECTION | LDVF_AFFECTPALETTE)
+
+LDV_INFOS LdvInfos = {
+                       (short) sizeof(LDV_INFOS), /* Taille de cette structure */
+                       TLDV_MODIFYIMG,            /* Type du LDV               */
+                       "Jean Lusetti",            /* Auteurs                   */
+                       {
+                         {  1, 1, BP_CAPS }, /* Capacites pour 1 plan    */
+                         {  4, 1, BP_CAPS }, /* Capacites pour 4 plans    */
+                         {  8, 1, BP_CAPS }, /* Capacites pour 8 plans    */
+                         { 16, 1, TC_CAPS }, /* Capacites pour 16 plans   */
+                         { 32, 1, TC_CAPS }, /* Capacites pour 32 plans   */
+                         { 0, 0, 0UL }        /* Fin de la liste des capacites */
+                       },
+                     } ;
+
+VAPI* Vapi = NULL ;
+
+/* Petite macro de verification pour VAPI */
+#define CHECK_VAPI(vapi) if ( (vapi == NULL) || (vapi->Header.Version < 0x0109) ) return ELDV_BADVAPIVERSION ;
+
+
+/* 
+ * Fonctions de la librairie
+ */
+
+LDV_INFOS* cdecl GetLDVCapabilities(VAPI* vapi)
+{
+  Vapi = vapi ;
+
+  return( &LdvInfos ) ;
+}
+
+#pragma warn -par
+LDV_STATUS cdecl PreRun(LDV_IMAGE* in, LDV_PARAMS* params, LDV_IMAGE* out)
+{
+  return ELDV_NOERROR ;
+}
+
+LDV_STATUS cdecl Run(LDV_IMAGE* in, LDV_PARAMS* params, LDV_IMAGE* out)
+{
+  LDV_STATUS status ;
+  short      method, param, out_planes ;
+
+  CHECK_VAPI( Vapi ) ;
+
+  method     = params->Param[0].s ;
+  param      = params->Param[1].s ;
+  out_planes = params->Param[2].s ;
+  if ( out_planes <= 0 )
+  {
+    SCREEN_INFO sinfo ;
+
+    Vapi->CoGetScreenInfo( &sinfo ) ;
+    out_planes = sinfo.NPlanes ;
+  }
+  if ( (out_planes != 1) && (out_planes != 4) &&  (out_planes != 8) &&  (out_planes != 16) &&  (out_planes != 32) )
+  {
+    if ( out_planes > 32 )      out_planes = 32 ;
+    else if ( out_planes > 14 ) out_planes = 16 ; /* TC15 or TC16 */
+    else if ( out_planes > 8 )  out_planes = 8 ;
+    else if ( out_planes > 4 )  out_planes = 4 ;
+    else                        out_planes = 1 ;
+    if ( Vapi->LoDoLog ) Vapi->LoDoLog( LL_INFO, "LDVDither: nplanes %d not supported, changed to %d", params->Param[2].s, out_planes ) ;
+  }
+  out->Raster.fd_nplanes = out_planes ;
+
+  status = (LDV_STATUS) Vapi->ImDither( method, param, in, out ) ;
+  if ( status != 0 )
+  {
+    if ( Vapi->LoDoLog ) Vapi->LoDoLog( LL_WARNING, "LDVDither: ImDither returned %d", status ) ;
+    status = ELDV_GENERALFAILURE ;
+  }
+
+  return status ;
+}
+
+LDV_STATUS cdecl Preview(LDV_IMAGE* in, LDV_PARAMS* params, LDV_IMAGE* out)
+{
+  return( Run( in, params, out ) ) ;
+}
+#pragma warn +par
+
+
+int main(void)
+{
+  ldg_init( Ldg ) ;
+
+  return 0 ;
+}