initial commit

2023-06-12 09:14:09 +02:00
commit b4912f303e
2545 changed files with 209350 additions and 0 deletions
--- a/devtools/rsm/modules/unilay/ciconini.c
+++ b/devtools/rsm/modules/unilay/ciconini.c
@@ -0,0 +1,76 @@
+/*************************************************************
+ *                                                           *
+ *     Examples for cicon_init() and cicon_exit()            *
+ *     Author: Armin Diedering                               *
+ *     WWW: http://www.Diedering.de                          *
+ *                                                           *
+ *************************************************************/
+
+#include <portab.h>
+#include <gemfast.h>
+
+
+/* Following functions are required */
+
+WORD CountOfPlanes();		/* returns the number of planes of the  */
+									/*	current resolution  */
+
+WORD CanCicon();			/* gives info if the system can do CICONs */
+
+WORD IsMagiC();			/* is MagiC the OS ?                      */
+
+
+/* now we are off! */
+
+long rs_ciconinit(CICONBLK *ciconblks, int ncib, OBJECT *objects, int nobj)
+{
+	if(CanCicon())
+	{
+		if(IsMagiC())
+		{
+			while(ncib--)                           /* see rsm2cs.hyp  */
+			{
+				CICON *cicon = ciconblks->mainlist;
+				CICON *found = cicon;
+				WORD planes = 0;
+				while(cicon)                   /* find suitable colour number */
+				{
+					if(cicon->num_planes <= CountOfPlanes()) /* can the OS handle this icon? */
+					{
+						if(cicon->num_planes > planes)        /* are there more planes   */
+						{                                     /* that I have found already? */
+							found		= cicon;
+							planes	= found->num_planes;      /* I'll remember this    */
+						}
+					}
+					cicon = cicon->next_res;                 /* next colour number    */
+				}
+				ciconblks->mainlist = found;                /* set found             */
+				ciconblks++;                                /* next icon             */
+			}
+		}
+		else
+		{
+			/* Here it gets complicated. One has to go through CICON by CICON.       */
+			/* For this you first have to find and set a suitable colour number      */
+			/* as for MagiC see above). Then the found image data, which are present */
+			/* in the standard format, have to be converted to the device-specific   */
+			/* format.                                                               */
+			/* How this is to be achieved I'll leave to you!  ;-)                    */
+		}
+	}
+	else					/* the system can not handle CICONs */
+	{
+		while(nobj--)       /* then convert all CICONs to ICONs  */
+		{
+			if((objects->ob_type & 0xff) == G_CICON)
+				objects->ob_type = (objects->ob_type & ~0xff) | G_ICON;
+			objects++;
+		}
+	}
+	return(0);
+}
+
+void rs_ciconexit(long deskriptor)
+{
+}