1 files changed, 113 insertions, 0 deletions
diff --git a/src/iemgui.c b/src/iemgui.c
new file mode 100644
index 0000000..7e7a963
--- /dev/null
+++ b/src/iemgui.c
@@ -0,0 +1,113 @@
+/* For information on usage and redistribution, and for a DISCLAIMER OF ALL
+* WARRANTIES, see the file, "LICENSE.txt," in this distribution.
+
+iemgui written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2006 */
+
+#include "m_pd.h"
+#include "iemlib.h"
+#include "iemgui.h"
+
+char my_iemgui_black_vscale_gif[]="R0lGODlhDgCCAJEAANnZ2QAAAP///////yH5BAEAAAAALAAAAAAOAIIAAAL/hI+pa0EBICIIdkRYBCEBgIigEHbEBQSFsCPOIghGxF0EwQkzg6AAEQTfIoxiE3xMvQgK4WMERBDsuIg7owAQEQEEgGKDgRHsuAgICmHHRUBQCB8jguBj6nL7AxITPkZABMGOu4gzCuFHHMUGACP4cRBxByQARBB8NIpN8DF1uf1JTPgYAREE/yIgguBfBEQQjIiwCEJC8C8CIgj+RUAEwceIIPiYutz+gMSEjxEQQfDRIjKNEgCABRCACIKPEJEJlBA+GsUm+Ji63P4kJnyMgAiCfxGISHEIdkRYBCEh+BcBEQT/IiCC4GNEEHxMXW5fkgDAgmBHhEUQEgCICAph5UdcQFAIO+IsgmBE3EUQnDAzCAoQQfAtwig2wcfU5fYkMQAsAAhIQAQEBQmCHwERQAnhR0AEUELYERYBlAAADICQQAQAUAIAMDCCGRvgCD6mLrcriQFgAUBAAiIgKEgQ/AiIAEoIO8IigBLCj4AIoITwIyACKAGAgQElMAAAC4ITQfAxdbldSRyAI9gRFwGUAMAAgJBABABQHAADAwICEAFBQYLgR0AEUAIAAwNKYAAAFgQnguBj6nL7OxIHLgCAkABEBBASAIgAQhIAEUBAAiAiCEgYRBjFAAMAoDhwQfAxdbkdSQEAOw==";
+char my_iemgui_black_hlscale_gif[]="R0lGODlhgwAaAJEAANnZ2QAAAP///////yH5BAEAAAAALAAAAACDABoAAAL/hI+py+0Po5y02ouz3rz7D4biKBIJ4WPqcvsDkhD+RQQiUEz4FxGBiAgZEhM+pi63P4kJ3yIgguBDBEQQfItARMRD4hB8CMQLgo8QmZmZDolD8BEiMikhfIhAREREggTBh0C8IPgIkZmZ6ZAgQfARIhIpIXyLiEBEhBBJCJtiE3yg2AQfKDbBt4hABIoJHyMQjRLCR4hIowARBB8iAhGBJIQPgXhB8BEiMzNTIgnhXwQiUkL4GIGIiIckhA+BeEHwESIzM1MiCeFbBKJRAiP4EAERBB9TLYLgY+py+wOSEL5RbIJvEYEIFBM+pi63P4xy0gpITPgRcXcUE/5FBCJQ/0z4FxGIQDHhX0QgAsWEfxGBiIgMSWAAAEZICD5EQATBhwiIIPgQAREEHyIgguBDBEQQfIiACIIPERBB8CECIgh2RAQEJSH4GIERBB8vIo0SGMHHCLygED5eRBolMIIPERBB8CECIghGhEUEAQkzM6AEAGBG8BEi0iiBEXyMwAtKQvARItIogRF8iIAIgg8REEEwIiwiCEiYmQWFsCMg4u5IQvgWAREE/yIQg4IEwb8IxKAgQfAhAiIIPkRABMGIsIggIGFmEBTCj4CIOyMJ4V8ERBB8i0AESmAE3yIQgRIYwYcIiCD4EAERBCPCIoKAhJlFEHyIgAiCDxGIRgmM4FVDBKJRAiP4EIFolMAIPkRABMGHCIgg2BEREJSE4APFJtgRcWcUm+BbRCBSbIJvEYFIsQm+RQQiUEz4FxEEH1OX2x9GOWm1F2e9efcfDMWRLM0TfYgCADs=";
+char my_iemgui_black_hrscale_gif[]="R0lGODlhhgAbAJEAANnZ2QAAAP///////yH5BAEAAAAALAAAAACGABsAAAL/hI+py+0Po5y02ouz3rz7D4biSG5EHIJvEYEIFBM+RhB8TF1uf0ASwsfUjCD4FwERBB8iIILgW0QQfExdbn8SEz6mYgTBx4vIpITwISICERFCCBkSwkeITKAQfkQEwcdUjKCE8DEC8SghfAiIQESEEEKGhPARIhMohB8QcXd3SEz4EBaBaCQh/ItANEoI/yICESgmfKPYBB8oNsEHik3wIwg+pm4EwccIxKAQPkJEZmZKiITwESITKIRvEYiIiABJYAQfIiCC4EMEIlJC+Ji6GgQfITKBQvgWgYiIyJCY8C8iECk2wb8Igo+py+0PSEL4mLrc/jDKSesiMeFfRCAC/8WEfxGBCBQT/kUEIlBM+BcRiEAx4UfE3R3FgQsAICQQQfAhAiIIPkRABMGHCIgg+BABEQQfIiCC4EMERBB8iIAIgg8REEEwIiDi7gBJABYARnACIswMSAIj+BABEQQfI/CCQvh4EWmUwAg+RuAFhfAxAtEoAVgAGMEJiDAzIAmM4EMERBB8jMALSkLwESLSKIERfIzAC0pC8C0C0SgBWAAYwQmIMDMgCYzgQwREEPyLQAwKEgT/IhCDggTBvwjEoCBB8CPuzigBWAAYwQmIMDMgCYzgQwREEHyLQARKYATfIhCBEhjBtwhEoARGsCPu7oDiwAUAEBKIIPgQAREEH1YiIILgQwSiUQIj+BCBaJTACD5EIBolMAAAI/iYuhEUwr+IQASKCd8oNsG3iECk2ATfIgKRYhN8iwgEik3wMXW5/WGUk1Z7cdabd//BUBzJ0jzRVF1NogA7";
+
+char my_iemgui_base64[]="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
+
+int my_iemgui_color_hex[]=
+{
+  16579836, 10526880, 4210752, 16572640, 16572608,
+    16579784, 14220504, 14220540, 14476540, 16308476,
+    14737632, 8158332, 2105376, 16525352, 16559172,
+    15263784, 1370132, 2684148, 3952892, 16003312,
+    12369084, 6316128, 0, 9177096, 5779456,
+    7874580, 2641940, 17488, 5256, 5767248
+};
+
+int simularca_color_hex[]=
+{
+  16003312, 3952892, 2684148, 15263784, 16559172, 16525352, 8158332
+};
+
+void my_iemgui_change_scale_col(char *gif, int color)
+{
+  int i;
+  unsigned int red = (color & 0xff0000) >> 16;
+  unsigned int green = (color & 0xff00) >> 8;
+  unsigned int blue = color & 0xff;
+  t_my_iemgui_3u4 hexbyte;
+  
+  hexbyte.b3.dummy = 0;
+  
+  hexbyte.b3.byte1 = 0xD6;
+  hexbyte.b3.byte2 = red;
+  hexbyte.b3.byte3 = green;
+  i = hexbyte.h4.hex1;
+  gif[20] = my_iemgui_base64[i];
+  i = hexbyte.h4.hex2;
+  gif[21] = my_iemgui_base64[i];
+  i = hexbyte.h4.hex3;
+  gif[22] = my_iemgui_base64[i];
+  i = hexbyte.h4.hex4;
+  gif[23] = my_iemgui_base64[i];
+  
+  hexbyte.b3.byte1 = blue;
+  hexbyte.b3.byte2 = 0xFF;
+  hexbyte.b3.byte3 = 0xFF;
+  i = hexbyte.h4.hex1;
+  gif[24] = my_iemgui_base64[i];
+  i = hexbyte.h4.hex2;
+  gif[25] = my_iemgui_base64[i];
+  i = hexbyte.h4.hex3;
+  gif[26] = my_iemgui_base64[i];
+  i = hexbyte.h4.hex4;
+  gif[27] = my_iemgui_base64[i];
+}
+
+static t_class *iemgui_class;
+
+static void *iemgui_new(void)
+{
+  t_object *x = (t_object *)pd_new(iemgui_class);
+  
+  return (x);
+}
+
+//void simularca_2d_setup(void);
+//void simularca_3d_setup(void);
+void room_sim_2d_setup(void);
+void room_sim_3d_setup(void);
+//void simularca_3d_no_z_clip_setup(void);
+void cube_sphere_setup(void);
+void sym_dial_setup(void);
+void iem_image_setup(void);
+void iem_vu_setup(void);
+void hfadl_scale_setup(void);
+void hfadr_scale_setup(void);
+void vfad_scale_setup(void);
+void numberbox_matrix_setup(void);
+void iem_event_setup(void);
+//void toggle_matrix_setup(void);
+
+/* ------------------------ setup routine ------------------------- */
+
+void iemgui_setup(void)
+{
+  //  simularca_2d_setup();
+  //  simularca_3d_setup();
+  room_sim_2d_setup();
+  room_sim_3d_setup();
+  //  simularca_3d_no_z_clip_setup();
+  cube_sphere_setup();
+  sym_dial_setup();
+  iem_image_setup();
+  iem_vu_setup();
+  hfadl_scale_setup();
+  hfadr_scale_setup();
+  vfad_scale_setup();
+  numberbox_matrix_setup();
+  iem_event_setup();
+  //  toggle_matrix_setup();
+  
+  post("iemgui (R-1.16) library loaded!   (c) Thomas Musil 05.2005");
+  post("   musil%ciem.at iem KUG Graz Austria", '@');
+}