initial check insvn2git-root

svn path=/trunk/externals/iem/iemgui/; revision=6897

1 files changed, 827 insertions, 0 deletions

diff --git a/src/room_sim_2d.c b/src/room_sim_2d.c
new file mode 100644
index 0000000..f74cda5
--- /dev/null
+++ b/src/room_sim_2d.c
@@ -0,0 +1,827 @@
+/* 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"
+#include "g_canvas.h"
+#include "g_all_guis.h"
+#include "t_tk.h"
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <ctype.h>
+#include <math.h>
+
+#ifdef MSW
+#include <io.h>
+#else
+#include <unistd.h>
+#endif
+
+
+#define IEM_GUI_ROOMSIM_2D_MAX_NR_SRC 30
+/* ---------- room_sim_2d my gui-canvas for a window ---------------- */
+
+t_widgetbehavior room_sim_2d_widgetbehavior;
+static t_class *room_sim_2d_class;
+
+typedef struct _room_sim_2d
+{
+  t_iemgui  x_gui;
+  t_float   x_rho_head;
+  int       x_fontsize;
+  int       x_nr_src;
+  int       x_pix_src_x[IEM_GUI_ROOMSIM_2D_MAX_NR_SRC + 1];
+  int       x_pix_src_y[IEM_GUI_ROOMSIM_2D_MAX_NR_SRC + 1];
+  int       x_col_src[IEM_GUI_ROOMSIM_2D_MAX_NR_SRC + 1];
+  int       x_pos_x;
+  int       x_pos_y;
+  int       x_sel_index;
+  int       x_pix_rad;
+  t_float   x_cnvrt_roomlx2pixh;
+  t_float   x_r_ambi;
+  t_float   x_room_x;
+  t_float   x_room_y;
+  t_symbol  *x_s_head_xy;
+  t_symbol  *x_s_src_xy;
+  void      *x_out_para;
+  void      *x_out_rho;
+  t_atom    x_at[6];
+} t_room_sim_2d;
+
+static void room_sim_2d_out_rho(t_room_sim_2d *x)
+{
+  outlet_float(x->x_out_rho, x->x_rho_head);
+}
+
+static void room_sim_2d_out_para(t_room_sim_2d *x)
+{
+  int i, n = x->x_nr_src;
+  int w2=x->x_gui.x_w/2, h2=x->x_gui.x_h/2;
+  
+  SETFLOAT(x->x_at, 0.0f);
+  SETSYMBOL(x->x_at+1, x->x_s_head_xy);
+  SETFLOAT(x->x_at+2, (t_float)(h2 - x->x_pix_src_y[0])/x->x_cnvrt_roomlx2pixh);
+  SETFLOAT(x->x_at+3, (t_float)(w2 - x->x_pix_src_x[0])/x->x_cnvrt_roomlx2pixh);
+  outlet_list(x->x_out_para, &s_list, 4, x->x_at);
+  for(i=1; i<=n; i++)
+  {
+    SETFLOAT(x->x_at, (t_float)i);
+    SETSYMBOL(x->x_at+1, x->x_s_src_xy);
+    SETFLOAT(x->x_at+2, (t_float)(h2 - x->x_pix_src_y[i])/x->x_cnvrt_roomlx2pixh);
+    SETFLOAT(x->x_at+3, (t_float)(w2 - x->x_pix_src_x[i])/x->x_cnvrt_roomlx2pixh);
+    outlet_list(x->x_out_para, &s_list, 4, x->x_at);
+  }
+}
+
+static void room_sim_2d_draw_update(t_room_sim_2d *x, t_glist *glist)
+{
+  if(glist_isvisible(glist))
+  {
+    int xpos=text_xpix(&x->x_gui.x_obj, glist);
+    int ypos=text_ypix(&x->x_gui.x_obj, glist);
+    int dx, dy;
+    t_canvas *canvas=glist_getcanvas(glist);
+    
+    dx = -(int)((t_float)x->x_pix_rad*(t_float)sin(x->x_rho_head*0.0174533f) + 0.49999f);
+    dy = -(int)((t_float)x->x_pix_rad*(t_float)cos(x->x_rho_head*0.0174533f) + 0.49999f);
+    sys_vgui(".x%x.c coords %xNOSE %d %d %d %d\n",
+      canvas, x, xpos+x->x_pix_src_x[0], ypos+x->x_pix_src_y[0],
+      xpos+x->x_pix_src_x[0]+dx, ypos+x->x_pix_src_y[0]+dy);
+  }
+}
+
+void room_sim_2d_draw_new(t_room_sim_2d *x, t_glist *glist)
+{
+  int xpos=text_xpix(&x->x_gui.x_obj, glist);
+  int ypos=text_ypix(&x->x_gui.x_obj, glist);
+  int dx, dy;
+  int i, n=x->x_nr_src;
+  int fs=x->x_fontsize;
+  t_canvas *canvas=glist_getcanvas(glist);
+  
+  sys_vgui(".x%x.c create rectangle %d %d %d %d -fill #%6.6x -outline #%6.6x -tags %xBASE\n",
+    canvas, xpos, ypos, xpos + x->x_gui.x_w, ypos + x->x_gui.x_h,
+    x->x_gui.x_bcol, x->x_gui.x_fsf.x_selected?IEM_GUI_COLOR_SELECTED:IEM_GUI_COLOR_NORMAL, x);
+  for(i=1; i<=n; i++)
+  {
+  sys_vgui(".x%x.c create text %d %d -text {%d} -anchor c \
+    -font {times %d bold} -fill #%6.6x -tags %xSRC%d\n",
+    canvas, xpos+x->x_pix_src_x[i], ypos+x->x_pix_src_y[i], i, fs,
+    x->x_col_src[i], x, i);
+  }
+  
+  sys_vgui(".x%x.c create oval %d %d %d %d -outline #%6.6x -tags %xHEAD\n",
+    canvas, xpos+x->x_pix_src_x[0]-x->x_pix_rad, ypos+x->x_pix_src_y[0]-x->x_pix_rad,
+    xpos+x->x_pix_src_x[0]+x->x_pix_rad-1, ypos+x->x_pix_src_y[0]+x->x_pix_rad-1,
+    x->x_gui.x_fcol, x);
+  dx = -(int)((t_float)x->x_pix_rad*(t_float)sin(x->x_rho_head*0.0174533f) + 0.49999f);
+  dy = -(int)((t_float)x->x_pix_rad*(t_float)cos(x->x_rho_head*0.0174533f) + 0.49999f);
+  sys_vgui(".x%x.c create line %d %d %d %d -width 3 -fill #%6.6x -tags %xNOSE\n",
+    canvas, xpos+x->x_pix_src_x[0], ypos+x->x_pix_src_y[0],
+    xpos+x->x_pix_src_x[0]+dx, ypos+x->x_pix_src_y[0]+dy,
+    x->x_gui.x_fcol, x);
+}
+
+void room_sim_2d_draw_move(t_room_sim_2d *x, t_glist *glist)
+{
+  int xpos=text_xpix(&x->x_gui.x_obj, glist);
+  int ypos=text_ypix(&x->x_gui.x_obj, glist);
+  int dx, dy;
+  int i, n;
+  t_canvas *canvas=glist_getcanvas(glist);
+  
+  sys_vgui(".x%x.c coords %xBASE %d %d %d %d\n",
+    canvas, x, xpos, ypos, xpos + x->x_gui.x_w, ypos + x->x_gui.x_h);
+  n = x->x_nr_src;
+  for(i=1; i<=n; i++)
+  {
+    sys_vgui(".x%x.c coords %xSRC%d %d %d\n",
+      canvas, x, i, xpos+x->x_pix_src_x[i], ypos+x->x_pix_src_y[i]);
+  }
+  
+  sys_vgui(".x%x.c coords %xHEAD %d %d %d %d\n",
+    canvas, x, xpos+x->x_pix_src_x[0]-x->x_pix_rad, ypos+x->x_pix_src_y[0]-x->x_pix_rad,
+    xpos+x->x_pix_src_x[0]+x->x_pix_rad-1, ypos+x->x_pix_src_y[0]+x->x_pix_rad-1);
+  dx = -(int)((t_float)x->x_pix_rad*(t_float)sin(x->x_rho_head*0.0174533f) + 0.49999f);
+  dy = -(int)((t_float)x->x_pix_rad*(t_float)cos(x->x_rho_head*0.0174533f) + 0.49999f);
+  sys_vgui(".x%x.c coords %xNOSE %d %d %d %d\n",
+    canvas, x, xpos+x->x_pix_src_x[0], ypos+x->x_pix_src_y[0],
+    xpos+x->x_pix_src_x[0]+dx, ypos+x->x_pix_src_y[0]+dy);
+}
+
+void room_sim_2d_draw_erase(t_room_sim_2d* x, t_glist* glist)
+{
+  int i, n;
+  t_canvas *canvas=glist_getcanvas(glist);
+  
+  sys_vgui(".x%x.c delete %xBASE\n", canvas, x);
+  n = x->x_nr_src;
+  for(i=1; i<=n; i++)
+  {
+    sys_vgui(".x%x.c delete %xSRC%d\n", canvas, x, i);
+  }
+  sys_vgui(".x%x.c delete %xHEAD\n", canvas, x);
+  sys_vgui(".x%x.c delete %xNOSE\n", canvas, x);
+}
+
+void room_sim_2d_draw_select(t_room_sim_2d* x, t_glist* glist)
+{
+  t_canvas *canvas=glist_getcanvas(glist);
+  
+  if(x->x_gui.x_fsf.x_selected)
+  {
+    int xpos=text_xpix(&x->x_gui.x_obj, glist);
+    int ypos=text_ypix(&x->x_gui.x_obj, glist);
+    
+    sys_vgui(".x%x.c itemconfigure %xBASE -outline #%6.6x\n", canvas, x, IEM_GUI_COLOR_SELECTED);
+  }
+  else
+  {
+    sys_vgui(".x%x.c itemconfigure %xBASE -outline #%6.6x\n", canvas, x, IEM_GUI_COLOR_NORMAL);
+  }
+}
+
+void room_sim_2d_draw(t_room_sim_2d *x, t_glist *glist, int mode)
+{
+  if(mode == IEM_GUI_DRAW_MODE_UPDATE)
+    room_sim_2d_draw_update(x, glist);
+  else if(mode == IEM_GUI_DRAW_MODE_MOVE)
+    room_sim_2d_draw_move(x, glist);
+  else if(mode == IEM_GUI_DRAW_MODE_NEW)
+    room_sim_2d_draw_new(x, glist);
+  else if(mode == IEM_GUI_DRAW_MODE_SELECT)
+    room_sim_2d_draw_select(x, glist);
+  else if(mode == IEM_GUI_DRAW_MODE_ERASE)
+    room_sim_2d_draw_erase(x, glist);
+}
+
+/* ------------------------ cnv widgetbehaviour----------------------------- */
+
+static void room_sim_2d_getrect(t_gobj *z, t_glist *glist, int *xp1, int *yp1, int *xp2, int *yp2)
+{
+  t_room_sim_2d *x = (t_room_sim_2d *)z;
+  
+  *xp1 = text_xpix(&x->x_gui.x_obj, glist);
+  *yp1 = text_ypix(&x->x_gui.x_obj, glist);
+  *xp2 = *xp1 + x->x_gui.x_w;
+  *yp2 = *yp1 + x->x_gui.x_h;
+}
+
+static void room_sim_2d_save(t_gobj *z, t_binbuf *b)
+{
+  t_room_sim_2d *x = (t_room_sim_2d *)z;
+  int i, j, c, n=x->x_nr_src;
+  
+  binbuf_addv(b, "ssiis", gensym("#X"),gensym("obj"),
+    (t_int)x->x_gui.x_obj.te_xpix, (t_int)x->x_gui.x_obj.te_ypix, gensym("room_sim_2d"));
+  binbuf_addv(b, "ifffi", x->x_nr_src, x->x_cnvrt_roomlx2pixh, x->x_rho_head, x->x_r_ambi, x->x_fontsize);
+  c = x->x_gui.x_bcol;
+  j = (((0xfc0000 & c) >> 6)|((0xfc00 & c) >> 4)|((0xfc & c) >> 2));
+  binbuf_addv(b, "iff", j, x->x_room_x, x->x_room_y);
+  c = x->x_gui.x_fcol;
+  j = (((0xfc0000 & c) >> 6)|((0xfc00 & c) >> 4)|((0xfc & c) >> 2));
+  binbuf_addv(b, "iii", j, x->x_pix_src_x[0], x->x_pix_src_y[0]);
+  for(i=1; i<=n; i++)
+  {
+    c = x->x_col_src[i];
+    j = (((0xfc0000 & c) >> 6)|((0xfc00 & c) >> 4)|((0xfc & c) >> 2));
+    binbuf_addv(b, "iii", j, x->x_pix_src_x[i], x->x_pix_src_y[i]);
+  }
+  binbuf_addv(b, ";");
+}
+
+static void room_sim_2d_motion(t_room_sim_2d *x, t_floatarg dx, t_floatarg dy)
+{
+  int sel=x->x_sel_index;
+  int pixrad=x->x_pix_rad;
+  int xpos=text_xpix(&x->x_gui.x_obj, x->x_gui.x_glist);
+  int ypos=text_ypix(&x->x_gui.x_obj, x->x_gui.x_glist);
+  int ddx, ddy;
+  t_canvas *canvas=glist_getcanvas(x->x_gui.x_glist);
+  
+  if(x->x_gui.x_fsf.x_finemoved && (sel == 0))
+  {
+    x->x_rho_head -= dy;
+    
+    if(x->x_rho_head <= -180.0f)
+      x->x_rho_head += 360.0f;
+    if(x->x_rho_head > 180.0f)
+      x->x_rho_head -= 360.0f;
+    room_sim_2d_out_rho(x);
+    (*x->x_gui.x_draw)(x, x->x_gui.x_glist, IEM_GUI_DRAW_MODE_UPDATE);
+  }
+  else if(sel == 0)
+  {
+    x->x_pos_x += (int)dx;
+    x->x_pos_y += (int)dy;
+    x->x_pix_src_x[0] = x->x_pos_x;
+    x->x_pix_src_y[0] = x->x_pos_y;
+    if(x->x_pix_src_x[0] < 0)
+      x->x_pix_src_x[0] = 0;
+    if(x->x_pix_src_x[0] > x->x_gui.x_w)
+      x->x_pix_src_x[0] = x->x_gui.x_w;
+    if(x->x_pix_src_y[0] < 0)
+      x->x_pix_src_y[0] = 0;
+    if(x->x_pix_src_y[0] > x->x_gui.x_h)
+      x->x_pix_src_y[0] = x->x_gui.x_h;
+    room_sim_2d_out_para(x);
+    sys_vgui(".x%x.c coords %xHEAD %d %d %d %d\n",
+      canvas, x, xpos+x->x_pix_src_x[0]-pixrad, ypos+x->x_pix_src_y[0]-pixrad,
+      xpos+x->x_pix_src_x[0]+pixrad-1, ypos+x->x_pix_src_y[0]+pixrad-1);
+    ddx = -(int)((t_float)pixrad*(t_float)sin(x->x_rho_head*0.0174533f) + 0.49999f);
+    ddy = -(int)((t_float)pixrad*(t_float)cos(x->x_rho_head*0.0174533f) + 0.49999f);
+    sys_vgui(".x%x.c coords %xNOSE %d %d %d %d\n",
+      canvas, x, xpos+x->x_pix_src_x[0], ypos+x->x_pix_src_y[0],
+      xpos+x->x_pix_src_x[0]+ddx, ypos+x->x_pix_src_y[0]+ddy);
+  }
+  else
+  {
+    x->x_pos_x += (int)dx;
+    x->x_pos_y += (int)dy;
+    x->x_pix_src_x[sel] = x->x_pos_x;
+    x->x_pix_src_y[sel] = x->x_pos_y;
+    if(x->x_pix_src_x[sel] < 0)
+      x->x_pix_src_x[sel] = 0;
+    if(x->x_pix_src_x[sel] > x->x_gui.x_w)
+      x->x_pix_src_x[sel] = x->x_gui.x_w;
+    if(x->x_pix_src_y[sel] < 0)
+      x->x_pix_src_y[sel] = 0;
+    if(x->x_pix_src_y[sel] > x->x_gui.x_h)
+      x->x_pix_src_y[sel] = x->x_gui.x_h;
+    room_sim_2d_out_para(x);
+    sys_vgui(".x%x.c coords %xSRC%d %d %d\n",
+      canvas, x, sel, xpos+x->x_pix_src_x[sel], ypos+x->x_pix_src_y[sel]);
+  }
+}
+
+static void room_sim_2d_click(t_room_sim_2d *x, t_floatarg xpos, t_floatarg ypos,
+                              t_floatarg shift, t_floatarg ctrl, t_floatarg alt)
+{
+  int w = (int)xpos - text_xpix(&x->x_gui.x_obj, x->x_gui.x_glist);
+  int h = (int)ypos - text_ypix(&x->x_gui.x_obj, x->x_gui.x_glist);
+  int i, n=x->x_nr_src;
+  int pixrad=x->x_pix_rad;
+  int fsi=x->x_fontsize;
+  int diff, maxdiff=10000, sel=-1;
+  
+  i = 0;/* head */
+  if((w >= (x->x_pix_src_x[i]-pixrad)) && (w <= (x->x_pix_src_x[i]+pixrad)) && (h >= (x->x_pix_src_y[i]-pixrad)) && (h <= (x->x_pix_src_y[i]+pixrad)))
+  {
+    diff = w - x->x_pix_src_x[i];
+    if(diff < 0)
+      diff *= -1;
+    if(diff < maxdiff)
+    {
+      maxdiff = diff;
+      sel = i;
+    }
+    diff = h - x->x_pix_src_y[i];
+    if(diff < 0)
+      diff *= -1;
+    if(diff < maxdiff)
+    {
+      maxdiff = diff;
+      sel = i;
+    }
+  }
+  
+  fsi *= 2;
+  fsi /= 3;
+  for(i=1; i<=n; i++)
+  {
+    if((w >= (x->x_pix_src_x[i]-fsi)) && (w <= (x->x_pix_src_x[i]+fsi)) && 
+      (h >= (x->x_pix_src_y[i]-fsi)) && (h <= (x->x_pix_src_y[i]+fsi)))
+    {
+      diff = w - x->x_pix_src_x[i];
+      if(diff < 0)
+        diff *= -1;
+      if(diff < maxdiff)
+      {
+        maxdiff = diff;
+        sel = i;
+      }
+      diff = h - x->x_pix_src_y[i];
+      if(diff < 0)
+        diff *= -1;
+      if(diff < maxdiff)
+      {
+        maxdiff = diff;
+        sel = i;
+      }
+    }
+  }
+  if(sel >= 0)
+  {
+    x->x_sel_index = sel;
+    x->x_pos_x = x->x_pix_src_x[sel];
+    x->x_pos_y = x->x_pix_src_y[sel];
+    glist_grab(x->x_gui.x_glist, &x->x_gui.x_obj.te_g, (t_glistmotionfn)room_sim_2d_motion, 0, xpos, ypos);
+  }
+}
+
+static int room_sim_2d_newclick(t_gobj *z, struct _glist *glist, int xpix, int ypix, int shift, int alt, int dbl, int doit)
+{
+  t_room_sim_2d* x = (t_room_sim_2d *)z;
+  
+  if(doit)
+  {
+    room_sim_2d_click( x, (t_floatarg)xpix, (t_floatarg)ypix, (t_floatarg)shift, 0, (t_floatarg)alt);
+    if(shift)
+    {
+      x->x_gui.x_fsf.x_finemoved = 1;
+      room_sim_2d_out_rho(x);
+    }
+    else
+    {
+      x->x_gui.x_fsf.x_finemoved = 0;
+      room_sim_2d_out_para(x);
+    }
+  }
+  return (1);
+}
+
+static void room_sim_2d_bang(t_room_sim_2d *x)
+{
+  room_sim_2d_out_para(x);
+  room_sim_2d_out_rho(x);
+}
+
+static void room_sim_2d_src_font(t_room_sim_2d *x, t_floatarg ff)
+{
+  int fs=(int)(ff + 0.49999f);
+  int i, n=x->x_nr_src;
+  t_canvas *canvas=glist_getcanvas(x->x_gui.x_glist);
+  
+  if(fs < 8)
+    fs = 8;
+  if(fs > 250)
+    fs = 250;
+  x->x_fontsize = fs;
+  
+  for(i=1; i<=n; i++)
+  {
+    sys_vgui(".x%x.c itemconfigure %xSRC%d -font {times %d bold}\n", canvas, x, i, fs);
+  }
+}
+
+static void room_sim_2d_set_rho(t_room_sim_2d *x, t_floatarg rho)
+{
+  while(rho <= -180.0f)
+    rho += 360.0f;
+  while(rho > 180.0f)
+    rho -= 360.0f;
+  x->x_rho_head = rho;
+  (*x->x_gui.x_draw)(x, x->x_gui.x_glist, IEM_GUI_DRAW_MODE_UPDATE);
+}
+
+static void room_sim_2d_rho(t_room_sim_2d *x, t_floatarg rho)
+{
+  room_sim_2d_set_rho(x, rho);
+  room_sim_2d_out_rho(x);
+}
+
+static void room_sim_2d_set_src_xy(t_room_sim_2d *x, t_symbol *s, int argc, t_atom *argv)
+{
+  t_float xsrc, ysrc;
+  t_float roomx2=0.5f*x->x_room_x, roomy2=0.5f*x->x_room_y;
+  int i, n=x->x_nr_src;
+  int xpos=text_xpix(&x->x_gui.x_obj, x->x_gui.x_glist);
+  int ypos=text_ypix(&x->x_gui.x_obj, x->x_gui.x_glist);
+  int w2=x->x_gui.x_w/2, h2=x->x_gui.x_h/2;
+  t_canvas *canvas=glist_getcanvas(x->x_gui.x_glist);
+  
+  if(argc < 3)
+  {
+    post("room_sim_2d ERROR: src_xy-input needs 1 index + 2 float-dimensions: src_index, x [m], y [m]");
+    return;
+  }
+  i = (int)atom_getint(argv++);
+  if((i > 0)&&(i <= n))
+  {
+    ysrc = atom_getfloat(argv++);
+    xsrc = atom_getfloat(argv);
+    
+    if(xsrc < -roomy2)
+      xsrc = -roomy2;
+    if(xsrc > roomy2)
+      xsrc = roomy2;
+    if(ysrc < -roomx2)
+      ysrc = -roomx2;
+    if(ysrc > roomx2)
+      ysrc = roomx2;
+    
+    x->x_pix_src_x[i] = w2 - (int)(x->x_cnvrt_roomlx2pixh * xsrc + 0.49999f);
+    x->x_pix_src_y[i] = h2 - (int)(x->x_cnvrt_roomlx2pixh * ysrc + 0.49999f);
+    sys_vgui(".x%x.c coords %xSRC%d %d %d\n",
+      canvas, x, i, xpos+x->x_pix_src_x[i], ypos+x->x_pix_src_y[i]);
+  }
+}
+
+static void room_sim_2d_src_xy(t_room_sim_2d *x, t_symbol *s, int argc, t_atom *argv)
+{
+  room_sim_2d_set_src_xy(x, s, argc, argv);
+  room_sim_2d_out_para(x);
+}
+
+static void room_sim_2d_set_head_xy(t_room_sim_2d *x, t_symbol *s, int argc, t_atom *argv)
+{
+  int pixrad=x->x_pix_rad;
+  int xpos=text_xpix(&x->x_gui.x_obj, x->x_gui.x_glist);
+  int ypos=text_ypix(&x->x_gui.x_obj, x->x_gui.x_glist);
+  int w2=x->x_gui.x_w/2, h2=x->x_gui.x_h/2;
+  int ddx, ddy;
+  t_float xh, yh;
+  t_float roomx2=0.5f*x->x_room_x, roomy2=0.5f*x->x_room_y;
+  t_canvas *canvas=glist_getcanvas(x->x_gui.x_glist);
+  
+  if(argc < 2)
+  {
+    post("room_sim_2d ERROR: head_xy-input needs 2 float-dimensions: x [m], y [m]");
+    return;
+  }
+  yh = atom_getfloat(argv++);
+  xh = atom_getfloat(argv);
+  
+  if(xh < -roomy2)
+    xh = -roomy2;
+  if(xh > roomy2)
+    xh = roomy2;
+  if(yh < -roomx2)
+    yh = -roomx2;
+  if(yh > roomx2)
+    yh = roomx2;
+  x->x_pix_src_x[0] = w2 - (int)(x->x_cnvrt_roomlx2pixh * xh + 0.49999f);
+  x->x_pix_src_y[0] = h2 - (int)(x->x_cnvrt_roomlx2pixh * yh + 0.49999f);
+  
+  sys_vgui(".x%x.c coords %xHEAD %d %d %d %d\n",
+    canvas, x, xpos+x->x_pix_src_x[0]-pixrad, ypos+x->x_pix_src_y[0]-pixrad,
+    xpos+x->x_pix_src_x[0]+pixrad-1, ypos+x->x_pix_src_y[0]+pixrad-1);
+  ddx = -(int)((t_float)pixrad*(t_float)sin(x->x_rho_head*0.0174533f) + 0.49999f);
+  ddy = -(int)((t_float)pixrad*(t_float)cos(x->x_rho_head*0.0174533f) + 0.49999f);
+  sys_vgui(".x%x.c coords %xNOSE %d %d %d %d\n",
+    canvas, x, xpos+x->x_pix_src_x[0], ypos+x->x_pix_src_y[0],
+    xpos+x->x_pix_src_x[0]+ddx, ypos+x->x_pix_src_y[0]+ddy);
+}
+
+static void room_sim_2d_head_xy(t_room_sim_2d *x, t_symbol *s, int argc, t_atom *argv)
+{
+  room_sim_2d_set_head_xy(x, s, argc, argv);
+  room_sim_2d_out_para(x);
+}
+
+static void room_sim_2d_room_dim(t_room_sim_2d *x, t_symbol *s, int argc, t_atom *argv)
+{
+  int i, n=x->x_nr_src;
+  
+  if(argc < 2)
+  {
+    post("room_sim_2d ERROR: room_dim-input needs 2 float-dimensions: x-Length [m], y-Width [m]");
+    return;
+  }
+  x->x_room_x = atom_getfloat(argv++);
+  x->x_room_y = atom_getfloat(argv);
+  
+  if(x->x_room_x < 1.0f)
+    x->x_room_x = 1.0f;
+  if(x->x_room_y < 1.0f)
+    x->x_room_y = 1.0f;
+  
+  x->x_gui.x_h = (int)(x->x_cnvrt_roomlx2pixh * (t_float)x->x_room_x + 0.49999f);
+  x->x_gui.x_w = (int)(x->x_cnvrt_roomlx2pixh * (t_float)x->x_room_y + 0.49999f);
+  
+  for(i=1; i<=n; i++)
+  {
+    if(x->x_pix_src_x[i] > x->x_gui.x_w)
+      x->x_pix_src_x[i] = x->x_gui.x_w;
+    if(x->x_pix_src_y[i] > x->x_gui.x_h)
+      x->x_pix_src_y[i] = x->x_gui.x_h;
+  }
+  
+  room_sim_2d_out_para(x);
+  (*x->x_gui.x_draw)(x, x->x_gui.x_glist, IEM_GUI_DRAW_MODE_MOVE);
+  canvas_fixlinesfor(glist_getcanvas(x->x_gui.x_glist), (t_text*)x);
+}
+
+/*static void room_sim_2d_n_src(t_room_sim_2d *x, t_floatarg fnsrc)
+{
+int n_src=(int)fnsrc;
+
+  if(n_src < 1)
+  n_src = 1;
+  if(n_src > 30)
+  n_src = 30;
+  if(n_src != x->x_nr_src)
+  {
+  (*x->x_gui.x_draw)(x, x->x_gui.x_glist, IEM_GUI_DRAW_MODE_ERASE);
+  x->x_nr_src = n_src;
+  (*x->x_gui.x_draw)(x, x->x_gui.x_glist, IEM_GUI_DRAW_MODE_NEW);
+  }
+  }
+*/
+
+static void room_sim_2d_room_col(t_room_sim_2d *x, t_floatarg fcol)
+{
+  int col=(int)fcol;
+  int i;
+  t_canvas *canvas=glist_getcanvas(x->x_gui.x_glist);
+  
+  if(col < 0)
+  {
+    i = -1 - col;
+    x->x_gui.x_bcol = ((i & 0x3f000) << 6)|((i & 0xfc0) << 4)|((i & 0x3f) << 2);
+  }
+  else
+  {
+    if(col > 29)
+      col = 29;
+    x->x_gui.x_bcol = my_iemgui_color_hex[col];
+  }
+  sys_vgui(".x%x.c itemconfigure %xBASE -fill #%6.6x\n", canvas, x, x->x_gui.x_bcol);
+}
+
+static void room_sim_2d_head_col(t_room_sim_2d *x, t_floatarg fcol)
+{
+  int col=(int)fcol;
+  int i;
+  t_canvas *canvas=glist_getcanvas(x->x_gui.x_glist);
+  
+  if(col < 0)
+  {
+    i = -1 - col;
+    x->x_gui.x_fcol = ((i & 0x3f000) << 6)|((i & 0xfc0) << 4)|((i & 0x3f) << 2);
+  }
+  else
+  {
+    if(col > 29)
+      col = 29;
+    x->x_gui.x_fcol = my_iemgui_color_hex[col];
+  }
+  sys_vgui(".x%x.c itemconfigure %xHEAD -outline #%6.6x\n", canvas, x, x->x_gui.x_fcol);
+  sys_vgui(".x%x.c itemconfigure %xNOSE -fill #%6.6x\n", canvas, x, x->x_gui.x_fcol);
+}
+
+static void room_sim_2d_src_col(t_room_sim_2d *x, t_symbol *s, int argc, t_atom *argv)
+{
+  int col;
+  int i, j, n=x->x_nr_src;
+  t_canvas *canvas=glist_getcanvas(x->x_gui.x_glist);
+  
+  if((argc >= 2)&&IS_A_FLOAT(argv,0)&&IS_A_FLOAT(argv,1))
+  {
+    j = (int)atom_getintarg(0, argc, argv);
+    if((j > 0)&&(j <= n))
+    {
+      col = (int)atom_getintarg(1, argc, argv);
+      if(col < 0)
+      {
+        i = -1 - col;
+        x->x_col_src[j] = ((i & 0x3f000) << 6)|((i & 0xfc0) << 4)|((i & 0x3f) << 2);
+      }
+      else
+      {
+        if(col > 29)
+          col = 29;
+        x->x_col_src[j] = my_iemgui_color_hex[col];
+      }
+      sys_vgui(".x%x.c itemconfigure %xSRC%d -fill #%6.6x\n", canvas, x, j, x->x_col_src[j]);
+    }
+  }
+}
+
+static void room_sim_2d_pix_per_m_ratio(t_room_sim_2d *x, t_floatarg ratio)
+{
+  t_float rr;
+  int i, n=x->x_nr_src;
+  
+  if(ratio < 1.0f)
+    ratio = 1.0f;
+  if(ratio > 200.0f)
+    ratio = 200.0f;
+  rr = ratio / x->x_cnvrt_roomlx2pixh;
+  x->x_cnvrt_roomlx2pixh = ratio;
+  x->x_gui.x_w = (int)(x->x_cnvrt_roomlx2pixh * x->x_room_y + 0.49999f);
+  x->x_gui.x_h = (int)(x->x_cnvrt_roomlx2pixh * x->x_room_x + 0.49999f);  
+  x->x_pix_rad = (int)(x->x_cnvrt_roomlx2pixh * x->x_r_ambi + 0.49999f);
+  for(i=0; i<=n; i++)
+  {
+    x->x_pix_src_x[i] = (int)((t_float)x->x_pix_src_x[i]*rr + 0.49999f);
+    x->x_pix_src_y[i] = (int)((t_float)x->x_pix_src_y[i]*rr + 0.49999f);
+  }
+  (*x->x_gui.x_draw)(x, x->x_gui.x_glist, IEM_GUI_DRAW_MODE_MOVE);
+  canvas_fixlinesfor(glist_getcanvas(x->x_gui.x_glist), (t_text*)x);
+}
+
+static void room_sim_2d_r_ambi(t_room_sim_2d *x, t_floatarg r_ambi)
+{
+  if(r_ambi < 0.1f)
+    r_ambi = 0.1f;
+  x->x_r_ambi = r_ambi;
+  x->x_pix_rad = (int)(x->x_cnvrt_roomlx2pixh*r_ambi + 0.49999f);
+  room_sim_2d_out_para(x);
+  (*x->x_gui.x_draw)(x, x->x_gui.x_glist, IEM_GUI_DRAW_MODE_MOVE);
+}
+
+static void room_sim_2d_nr_src(t_room_sim_2d *x, t_floatarg fnr_src)
+{
+  int nr_src = (int)fnr_src;
+  int old_nr_src, i, j;
+  
+  if(nr_src < 1)
+    nr_src = 1;
+  else if(nr_src > IEM_GUI_ROOMSIM_2D_MAX_NR_SRC)
+    nr_src = IEM_GUI_ROOMSIM_2D_MAX_NR_SRC;
+  
+  if(nr_src != x->x_nr_src)
+  {
+    if(glist_isvisible(x->x_gui.x_glist))
+      (*x->x_gui.x_draw)(x, x->x_gui.x_glist, IEM_GUI_DRAW_MODE_ERASE);
+    
+    old_nr_src = x->x_nr_src;
+    x->x_nr_src = nr_src;
+    j = (old_nr_src + 1) % 7;
+    for(i=old_nr_src+1; i<=nr_src; i++)
+    {
+      x->x_col_src[i] = simularca_color_hex[j];
+      if(i & 1)
+        x->x_pix_src_x[i] = 125 + (IEM_GUI_ROOMSIM_2D_MAX_NR_SRC - i)*4;
+      else
+        x->x_pix_src_x[i] = 125 - (IEM_GUI_ROOMSIM_2D_MAX_NR_SRC - i)*4;
+      x->x_pix_src_y[i] = 100;
+      j++;
+      j %= 7;
+    }
+    
+    if(glist_isvisible(x->x_gui.x_glist))
+      (*x->x_gui.x_draw)(x, x->x_gui.x_glist, IEM_GUI_DRAW_MODE_NEW);
+  }
+}
+
+static void *room_sim_2d_new(t_symbol *s, int argc, t_atom *argv)
+{
+  t_room_sim_2d *x = (t_room_sim_2d *)pd_new(room_sim_2d_class);
+  int i, j, n=1, c;
+  
+  if((argc >= 1)&&IS_A_FLOAT(argv,0))
+  {
+    n = (int)atom_getintarg(0, argc, argv);
+    if(n < 1)
+      n = 1;
+    if(n > IEM_GUI_ROOMSIM_2D_MAX_NR_SRC)
+      n = IEM_GUI_ROOMSIM_2D_MAX_NR_SRC;
+    x->x_nr_src = n;
+  }
+  if(argc == (3*n + 11))
+  {
+    x->x_cnvrt_roomlx2pixh = atom_getfloatarg(1, argc, argv);
+    x->x_rho_head = atom_getfloatarg(2, argc, argv);
+    x->x_r_ambi = atom_getfloatarg(3, argc, argv);
+    x->x_fontsize = (int)atom_getintarg(4, argc, argv);
+    c = (int)atom_getintarg(5, argc, argv);
+    x->x_gui.x_bcol = ((c & 0x3f000) << 6)|((c & 0xfc0) << 4)|((c & 0x3f) << 2);
+    x->x_room_x = atom_getfloatarg(6, argc, argv);
+    x->x_room_y = atom_getfloatarg(7, argc, argv);
+    c = (int)atom_getintarg(8, argc, argv);
+    x->x_gui.x_fcol = ((c & 0x3f000) << 6)|((c & 0xfc0) << 4)|((c & 0x3f) << 2);
+    x->x_pix_src_x[0] = (int)atom_getintarg(9, argc, argv);
+    x->x_pix_src_y[0] = (int)atom_getintarg(10, argc, argv);
+    for(i=1; i<=n; i++)
+    {
+      c = (int)atom_getintarg(8+3*i, argc, argv);
+      x->x_col_src[i] = ((c & 0x3f000) << 6)|((c & 0xfc0) << 4)|((c & 0x3f) << 2);
+      x->x_pix_src_x[i] = (int)atom_getintarg(9+3*i, argc, argv);
+      x->x_pix_src_y[i] = (int)atom_getintarg(10+3*i, argc, argv);
+    }
+  }
+  else
+  {
+    x->x_cnvrt_roomlx2pixh = 25.0f;
+    x->x_rho_head = 0.0f;
+    x->x_r_ambi = 1.4f;
+    x->x_fontsize = 12;
+    x->x_gui.x_bcol = my_iemgui_color_hex[IEM_GUI_COLNR_GREEN];
+    x->x_room_x = 12.0f;
+    x->x_room_y = 10.0f;
+    x->x_gui.x_fcol = my_iemgui_color_hex[IEM_GUI_COLNR_D_ORANGE];
+    x->x_pix_src_x[0] = 125;
+    x->x_pix_src_y[0] = 200;
+    j = 0;
+    for(i=1; i<=n; i++)
+    {
+      x->x_col_src[i] = simularca_color_hex[j];
+      if(i & 1)
+        x->x_pix_src_x[i] = 125 + (IEM_GUI_ROOMSIM_2D_MAX_NR_SRC - i)*4;
+      else
+        x->x_pix_src_x[i] = 125 - (IEM_GUI_ROOMSIM_2D_MAX_NR_SRC - i)*4;
+      x->x_pix_src_y[i] = 100;
+      j++;
+      j %= 7;
+    }
+  }
+  
+  x->x_gui.x_w = (int)(x->x_room_y*x->x_cnvrt_roomlx2pixh + 0.49999f);
+  x->x_gui.x_h = (int)(x->x_room_x*x->x_cnvrt_roomlx2pixh + 0.49999f);
+  x->x_pix_rad = (int)(x->x_r_ambi*x->x_cnvrt_roomlx2pixh + 0.49999f);
+  
+  x->x_gui.x_draw = (t_iemfunptr)room_sim_2d_draw;
+  x->x_gui.x_glist = (t_glist *)canvas_getcurrent();
+  
+  x->x_out_para = outlet_new(&x->x_gui.x_obj, &s_list);
+  x->x_out_rho = outlet_new(&x->x_gui.x_obj, &s_float);
+  
+  x->x_s_head_xy = gensym("head_xy");
+  x->x_s_src_xy = gensym("src_xy");
+  return (x);
+}
+
+static void room_sim_2d_ff(t_room_sim_2d *x)
+{
+  gfxstub_deleteforkey(x);
+}
+
+void room_sim_2d_setup(void)
+{
+  room_sim_2d_class = class_new(gensym("room_sim_2d"), (t_newmethod)room_sim_2d_new,
+    (t_method)room_sim_2d_ff, sizeof(t_room_sim_2d), 0, A_GIMME, 0);
+  class_addcreator((t_newmethod)room_sim_2d_new, gensym("room_sim_2d"), A_GIMME, 0);
+  class_addmethod(room_sim_2d_class, (t_method)room_sim_2d_click, gensym("click"),
+    A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, 0);
+  class_addmethod(room_sim_2d_class, (t_method)room_sim_2d_motion, gensym("motion"),
+    A_FLOAT, A_FLOAT, 0);
+  class_addbang(room_sim_2d_class, (t_method)room_sim_2d_bang);
+  class_addmethod(room_sim_2d_class, (t_method)room_sim_2d_room_dim, gensym("room_dim"), A_GIMME, 0);
+  class_addmethod(room_sim_2d_class, (t_method)room_sim_2d_r_ambi, gensym("r_ambi"), A_DEFFLOAT, 0);
+  class_addmethod(room_sim_2d_class, (t_method)room_sim_2d_room_col, gensym("room_col"), A_DEFFLOAT, 0);
+  class_addmethod(room_sim_2d_class, (t_method)room_sim_2d_head_col, gensym("head_col"), A_DEFFLOAT, 0);
+  class_addmethod(room_sim_2d_class, (t_method)room_sim_2d_src_col, gensym("src_col"), A_GIMME, 0);
+  class_addmethod(room_sim_2d_class, (t_method)room_sim_2d_rho, gensym("rho"), A_DEFFLOAT, 0);
+  class_addmethod(room_sim_2d_class, (t_method)room_sim_2d_src_xy, gensym("src_xy"), A_GIMME, 0);
+  class_addmethod(room_sim_2d_class, (t_method)room_sim_2d_head_xy, gensym("head_xy"), A_GIMME, 0);
+  class_addmethod(room_sim_2d_class, (t_method)room_sim_2d_set_rho, gensym("set_rho"), A_DEFFLOAT, 0);
+  class_addmethod(room_sim_2d_class, (t_method)room_sim_2d_set_src_xy, gensym("set_src_xy"), A_GIMME, 0);
+  class_addmethod(room_sim_2d_class, (t_method)room_sim_2d_set_head_xy, gensym("set_head_xy"), A_GIMME, 0);
+  class_addmethod(room_sim_2d_class, (t_method)room_sim_2d_pix_per_m_ratio, gensym("pix_per_m_ratio"), A_DEFFLOAT, 0);
+  class_addmethod(room_sim_2d_class, (t_method)room_sim_2d_src_font, gensym("src_font"), A_DEFFLOAT, 0);
+  class_addmethod(room_sim_2d_class, (t_method)room_sim_2d_nr_src, gensym("nr_src"), A_DEFFLOAT, 0);
+  
+  room_sim_2d_widgetbehavior.w_getrectfn = room_sim_2d_getrect;
+  room_sim_2d_widgetbehavior.w_displacefn = iemgui_displace;
+  room_sim_2d_widgetbehavior.w_selectfn = iemgui_select;
+  room_sim_2d_widgetbehavior.w_activatefn = NULL;
+  room_sim_2d_widgetbehavior.w_deletefn = iemgui_delete;
+  room_sim_2d_widgetbehavior.w_visfn = iemgui_vis;
+  room_sim_2d_widgetbehavior.w_clickfn = room_sim_2d_newclick;
+  
+#if defined(PD_MAJOR_VERSION) && (PD_MINOR_VERSION >= 37)
+  class_setsavefn(room_sim_2d_class, room_sim_2d_save);
+#else
+  room_sim_2d_widgetbehavior.w_propertiesfn = NULL;
+  room_sim_2d_widgetbehavior.w_savefn = room_sim_2d_save;
+#endif
+  
+  class_setwidget(room_sim_2d_class, &room_sim_2d_widgetbehavior);
+  class_sethelpsymbol(room_sim_2d_class, gensym("iemhelp2/help-room_sim_2d"));
+}