app_vobj.C

Go to the documentation of this file.

/* Gxsm - Gnome X Scanning Microscopy
 * universal STM/AFM/SARLS/SPALEED/... controlling and
 * data analysis software
 * 
 * Copyright (C) 1999,2000,2001,2002,2003 Percy Zahl
 *
 * Authors: Percy Zahl <zahl@users.sf.net>
 * additional features: Andreas Klust <klust@users.sf.net>
 * WWW Home: http://gxsm.sf.net
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
 */

/* -*- Mode: C++; indent-tabs-mode: nil; c-basic-offset: 8 c-style: "K&R" -*- */

#include "gxsm_app.h"

#include "unit.h"
#include "pcs.h"
#include "xsmtypes.h"
#include "action_id.h"
#include "glbvars.h"

#include "app_profile.h"
#include "app_vobj.h"
#include "app_view.h"

#include "clip.h"

#define SETUP_ITEM(X) gnome_canvas_item_raise_to_top(X)

#define UTF8_DEGREE "\302\260"

#define MAXHANDLECOLORS 4

#define OBJECT_LINE_WIDTH     xsmres.ObjectLineWidth
#define SQR_HANDLE_SIZE       5
#define SQR_HANDLE_LINE_WIDTH xsmres.HandleLineWidth
#define TRI_HANDLE_SIZE       15
#define TRI_HANDLE_LINE_WIDTH xsmres.HandleLineWidth

#define HANDLE_FILL_COLOR          RGBAColor (xsmres.HandleActBgColor)
#define HANDLE_FILL_COLOR_INACTIVE RGBAColor (xsmres.HandleInActBgColor)

#define LABEL_XOFF 0.
#define LABEL_YOFF -25.

inline unsigned long RGBAColor (float c[4]) { 
        if (c[3] < 0.01) return 0;
        return WORDS_BIGENDIAN ? 
                (unsigned long)(c[0]*0xff)
                | ((unsigned long)(c[1]*0xff)<<8)
                | ((unsigned long)(c[2]*0xff)<<16)
                | ((unsigned long) (c[3]*0xff)<<24)
                :
                (unsigned long)(c[3]*0xff)
                | ((unsigned long)(c[2]*0xff)<<8)
                | ((unsigned long)(c[1]*0xff)<<16)
                | ((unsigned long) (c[0]*0xff)<<24)
                ;       
}

VObject *current_vobject2 = NULL;

VObject::VObject(GtkWidget *Canvas, double *xy0, int npkt, Point2D *P2d, int pflg, VOBJ_COORD_MODE cmode, gchar *lab, double Marker_scale){
        static int obj_count = 0;
        static int event_count = 0;
        int i;
        XSM_DEBUG(DBG_L2, "VObject::VObject");
        
        scan_event=NULL;
        lock=0;
        id=0;
        p2d = P2d;
        marker_scale=Marker_scale;
        canvas = Canvas;
        statusbar = (GtkWidget*)gtk_object_get_data (GTK_OBJECT (canvas), "statusbar");
        statusid  = gtk_statusbar_get_context_id(GTK_STATUSBAR(statusbar), "drag");
        vinfo = (ViewInfo*)gtk_object_get_data (GTK_OBJECT (canvas), "ViewInfo");

        name = g_strdup("VObject");
        if (lab)
                text = g_strdup(lab);
        else
                text = npkt == 0 
                        ? g_strdup_printf("Ev[%d]", ++event_count)
                        : g_strdup_printf("Object[%d]", ++obj_count);

        np=npkt > 0 ? npkt : 1;
        abl = new GnomeCanvasItem* [np+4];
        label = NULL;
        arrow_head = NULL;

        label_offset_xy[0]=LABEL_XOFF;
        label_offset_xy[1]=LABEL_YOFF;

        xy = new double[2*np];
        memcpy(xy, xy0, 2*np*sizeof(double));

        touched_item=NULL;
        touched_xy[0]=touched_xy[1]=0.;

        SetUpPos (cmode);

        switch (npkt){
        case 0: popup = (GtkWidget*)gtk_object_get_data (GTK_OBJECT (canvas), "ObjPopupEvent"); break;
        case 1: popup = (GtkWidget*)gtk_object_get_data (GTK_OBJECT (canvas), "ObjPopup1"); break;
        case 2: popup = (GtkWidget*)gtk_object_get_data (GTK_OBJECT (canvas), "ObjPopup2"); break;
        default: popup = (GtkWidget*)gtk_object_get_data (GTK_OBJECT (canvas), "ObjPopupN"); break;
        }

        for(i=0; i<np; i++){
                abl[i] = node_marker (NULL, &xy[2*i], i);
                SETUP_ITEM(abl[i]);
                gtk_signal_connect(GTK_OBJECT(abl[i]), "event",
                                   (GtkSignalFunc) VObject::item_event,
                                   this);
        }
        abl[i++]=NULL;
        abl[i++]=NULL;
        abl[i++]=NULL;

        if(pflg){
                gchar *proftit = g_strdup_printf("%s Profile from Ch%d", 
                                                 np>1 ? "Path":"Layer", 
                                                 1+(int)gtk_object_get_data (GTK_OBJECT (canvas), "Ch"));
                profile = new ProfileControl(proftit);
                g_free(proftit);
        }
        else
                profile = NULL;
}

VObject::~VObject(){
        XSM_DEBUG(DBG_L2, "VObject::~VObject");

        if(profile) 
                delete profile;
        profile=NULL;

        for(int i=0; abl[i]; i++)
                gtk_object_destroy(GTK_OBJECT(abl[i]));

        if(label)
                gtk_object_destroy(GTK_OBJECT(label));

        if (arrow_head)
                gtk_object_destroy(GTK_OBJECT(arrow_head));

        delete[] xy;

        delete[] abl;

        g_free(name);
        g_free(text);
}

/*
 * make/update object handle markers
 * if item == NULL, it is created new, else updated!
 */
GnomeCanvasItem* VObject::node_marker(GnomeCanvasItem* item, double *xy, int i){
        double rsz;
        int hand_type = xsmres.HandleType[0];
        gchar *HandleColors[MAXHANDLECOLORS] = { "red","green","cyan","yellow" };

        // if user switches while running, need to handle existing object correct...
        if (item)
                hand_type = (long)gtk_object_get_data (GTK_OBJECT (item), "HAND_TYPE");

        switch (hand_type){
        case 'T': // 'T'riangle type handle
                rsz = TRI_HANDLE_SIZE * marker_scale;
                {
                        GnomeCanvasPoints* poly_tri = gnome_canvas_points_new (3);
                        poly_tri->coords[0] = xy[0];
                        poly_tri->coords[1] = xy[1];
                        poly_tri->coords[2] = xy[0]-rsz/3;
                        poly_tri->coords[3] = xy[1]-rsz;
                        poly_tri->coords[4] = xy[0]+rsz/3;
                        poly_tri->coords[5] = xy[1]-rsz;
                        
                        if (item)
                                gnome_canvas_item_set (item, "points", poly_tri, NULL);
                        else{
                                item = gnome_canvas_item_new (gnome_canvas_root (GNOME_CANVAS(canvas)),  
                                                              gnome_canvas_polygon_get_type (),
                                                              "points", poly_tri,
                                                              "outline_color", HandleColors[i%MAXHANDLECOLORS],
                                                              "width_pixels", TRI_HANDLE_LINE_WIDTH,
                                                              NULL);
                                gtk_object_set_data (GTK_OBJECT (item), "HAND_TYPE", (void*)'T');
                        }
                        gnome_canvas_points_free (poly_tri);
                }
                return item;

        default: // 'S'uare type handle
                rsz = SQR_HANDLE_SIZE * marker_scale;
                if (item)
                        gnome_canvas_item_set (item,
                                               "x1", xy[0]-rsz,
                                               "y1", xy[1]-rsz,
                                               "x2", xy[0]+rsz,
                                               "y2", xy[1]+rsz,
                                               NULL);
                else{
                        item = gnome_canvas_item_new (gnome_canvas_root (GNOME_CANVAS(canvas)),
                                                      gnome_canvas_rect_get_type (),
                                                      "x1", xy[0]-rsz,
                                                      "y1", xy[1]-rsz,
                                                      "x2", xy[0]+rsz,
                                                      "y2", xy[1]+rsz,
                                                      "outline_color", HandleColors[i%MAXHANDLECOLORS],
                                                      "width_pixels", SQR_HANDLE_LINE_WIDTH,
                                                      NULL);
                                gtk_object_set_data (GTK_OBJECT (item), "HAND_TYPE", (void*)'R');
                }
                return item;
        }
        return NULL;
}

void VObject::SetUpPos(VOBJ_COORD_MODE cmode){
        switch (cmode){
        case VOBJ_COORD_FROM_MOUSE:
        {
                gint cx,cy, xso, yso;
                double wx, wy;
                gdk_window_get_pointer (canvas->window, &cx, &cy, NULL);
                gnome_canvas_get_scroll_offsets (GNOME_CANVAS(canvas), &xso, &yso);
                cx += xso; cy += yso;
                gnome_canvas_window_to_world (GNOME_CANVAS(canvas), (double)cx,(double)cy, &wx,&wy);
                for(int i=0; i<np; ++i){
                        xy[2*i]   += wx;
                        xy[2*i+1] += wy;
                }
        } 
        break;
        
        case VOBJ_COORD_ABSOLUT:
                for(int i=0; i<np; ++i)
                        vinfo->Angstroem2W (xy[2*i], xy[2*i+1]);
                break;
        case VOBJ_COORD_RELATIV:
                ; // not available
                break;
        }

}

void VObject::set_color_to_active (){ // Active
        gchar *HandleColors[MAXHANDLECOLORS] = { "red","green","cyan","yellow" };
        for(int i=0; i<np; i++)
                if (HANDLE_FILL_COLOR)
                        gnome_canvas_item_set(abl[i],
                                              "fill_color_rgba", HANDLE_FILL_COLOR,
                                              "outline_color", !strcmp (name, "Event") ? "yellow" : HandleColors[i%MAXHANDLECOLORS],
                                              NULL);
                else
                        gnome_canvas_item_set(abl[i],
                                              "fill_color", NULL,
                                              "outline_color", !strcmp (name, "Event") ? "yellow" : HandleColors[i%MAXHANDLECOLORS],
                                              NULL);

}

void VObject::set_color_to_inactive (){ // Inactive
        for(int i=0; i<np; i++)
                if (HANDLE_FILL_COLOR_INACTIVE)
                        gnome_canvas_item_set(abl[i],
                                              "fill_color_rgba", HANDLE_FILL_COLOR_INACTIVE,
                                              "outline_color", !strcmp (name, "Event") ? "green" : "grey",
                                              NULL);
                else
                        gnome_canvas_item_set(abl[i],
                                              "fill_color", NULL,
                                              "outline_color", !strcmp (name, "Event") ? "green" : "grey",
                                              NULL);
}

void VObject::set_color_to_hilit (){ // Hilight
        for(int i=0; i<np; i++)
                if (HANDLE_FILL_COLOR_INACTIVE)
                        gnome_canvas_item_set(abl[i],
                                              "fill_color_rgba", HANDLE_FILL_COLOR_INACTIVE,
                                              "outline_color", "yellow",
                                              NULL);
                else
                        gnome_canvas_item_set(abl[i],
                                              "fill_color", NULL,
                                              "outline_color", "yellow",
                                              NULL);
}
void get_obj_coords_wrapper2(int i, double &x, double &y){
        if (current_vobject2)
                current_vobject2->obj_get_xy_i (i,x,y);
}

void VObject::Activate (){
        ((ViewControl*)gtk_object_get_data (GTK_OBJECT (canvas), "ViewControl"))->PaintAllRegionsInactive();
        set_color_to_active();

        if (current_vobject2){
                XSM_DEBUG(DBG_L2, "VObjetc::Activate  ERROR, recursive call occured!!" );
                return;
        }
        if (id){
                current_vobject2 = this;
                Scan *sc = ((Scan*)gtk_object_get_data (GTK_OBJECT (canvas), "Scan"));
                if (sc) sc->update_object (id, name, text, get_obj_coords_wrapper2);
                current_vobject2 = NULL;
        }

}

static void label_changed_cb (GtkEditable *e, gchar **text){
        g_free (*text);         
        *text = gtk_editable_get_chars (GTK_EDITABLE (e), 0, -1);
}

void VObject::properties(){
        GtkWidget *dialog;
        GtkWidget *vbox;
        GtkWidget *hbox;
        GtkWidget *info;
        GtkWidget *input, *textinput = NULL;
        Gtk_EntryControl **ec = new Gtk_EntryControl*[2*np];

        dialog = gtk_dialog_new_with_buttons (_("Object Properties"), 
                                              NULL, 
                                              (GtkDialogFlags)(GTK_DIALOG_MODAL | GTK_DIALOG_DESTROY_WITH_PARENT),
                                              GTK_STOCK_OK, GTK_RESPONSE_ACCEPT,
                                              NULL); 
        
        vbox = gtk_vbox_new (FALSE, 0);
        gtk_widget_show (vbox);

        gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->vbox),
                           vbox, TRUE, TRUE, GNOME_PAD);

        gchar *objident = g_strdup_printf ("Edit Object \"%s\"", name);
        info = gtk_label_new (objident);
        g_free (objident);
        gtk_widget_show (info);
        gtk_box_pack_start(GTK_BOX(vbox), info, TRUE, TRUE, GNOME_PAD);

        UnitObj *Pixel = new UnitObj("Pix","Pix");

        if (text){
                textinput = gapp->mygtk_create_input("Text", vbox, hbox);
                gtk_entry_set_text (GTK_ENTRY (textinput), text);
        }
        for(int n=0; n<np; ++n){
                int i=2*n;

                gchar *label = g_strdup_printf ("P%d:", n);
                input = gapp->mygtk_create_input(label, vbox, hbox);
                g_free (label);
                
                ec[i] = new Gtk_EntryControl (Pixel, "Value out of range !", &xy[i], 
                                           -32767, 32767, ".0f", input);
                input = gapp->mygtk_add_input(hbox);
                ec[i+1] = new Gtk_EntryControl (Pixel, "Value out of range !", &xy[i+1], 
                                           -32767, 32767, ".0f", input);
        }
        if (textinput)
                gtk_signal_connect (GTK_OBJECT (textinput), "changed", GTK_SIGNAL_FUNC (label_changed_cb), &text);
        gtk_widget_show(dialog);
        gtk_dialog_run (GTK_DIALOG(dialog));
        gtk_widget_destroy (dialog);

        for(int i=0; i<np; i++){
                node_marker (abl[i], &xy[2*i], i);
                delete ec[2*i];
                delete ec[2*i+1];
        }
        delete[] ec;
        
        Update ();
        show_label ();
}

void VObject::set_offset(){
        double x,y;
        x = xy[0]*vinfo->GetQfac();
        y = xy[1]*vinfo->GetQfac();

        if (x < 0. || x >= vinfo->sc->mem2d->GetNx())
                return;
        if (y < 0. || y >= vinfo->sc->mem2d->GetNy())
                return;

        vinfo->sc->Pixel2World (R2INT (x), R2INT (y), 
                                gapp->xsm->data.s.x0, gapp->xsm->data.s.y0, 
                                SCAN_COORD_ABSOLUTE);

        gapp->spm_update_all();
}

void VObject::SetUpScan(){
        double x0,y0,x1,y1,dx,dy;
        double xyq[4];

        xyq[0] = xy[0]*vinfo->GetQfac();
        xyq[1] = xy[1]*vinfo->GetQfac();
        xyq[2] = xy[2*(np-1)]*vinfo->GetQfac();
        xyq[3] = xy[2*(np-1)+1]*vinfo->GetQfac();

        if(xyq[0]<0. || xyq[0] >= vinfo->sc->mem2d->GetNx() ||
           xyq[2]<0. || xyq[2] >= vinfo->sc->mem2d->GetNx())
                return;
        if(xyq[1]<0. || xyq[1] >= vinfo->sc->mem2d->GetNy() || 
           xyq[3]<0. || xyq[3] >= vinfo->sc->mem2d->GetNy())
                return;

// new offset
        vinfo->sc->Pixel2World (R2INT((xyq[0] + xyq[2])/2.), R2INT((xyq[1] + xyq[3])/2.),
                                gapp->xsm->data.s.x0, gapp->xsm->data.s.y0, 
                                SCAN_COORD_ABSOLUTE);

// calc new size
        vinfo->sc->Pixel2World (R2INT(xyq[0]), R2INT(xyq[1]),
                                x0, y0,
                                SCAN_COORD_RELATIVE);

        vinfo->sc->Pixel2World (R2INT(xyq[2]), R2INT(xyq[3]),
                                x1, y1,
                                SCAN_COORD_RELATIVE);

        XSM_DEBUG ( DBG_L3, "SetUpScan:" << np << ":" << x0 << "," << y0 << ", " << x1 << "," << y1 );
        dx = x1-x0;
        dy = y1-y0;
        XSM_DEBUG (DBG_L3, "SetUpScan:" << dx << "," << dy );
        gapp->xsm->data.s.rx = sqrt(dx*dx+dy*dy);

        gapp->xsm->data.s.nx = R2INT(Dist(0,np-1));
        gapp->xsm->data.s.ny = 1;
        gapp->xsm->data.s.dx = gapp->xsm->data.s.rx/(gapp->xsm->data.s.nx-1);
        gapp->xsm->data.s.dy = gapp->xsm->data.s.dx;
        gapp->xsm->data.s.ry = gapp->xsm->data.s.dx;
        gapp->xsm->data.s.alpha = -Phi(dx,dy);
        gapp->spm_update_all();
}

void VObject::show_label(int flg){
        switch (flg){
        case 1:
                if (!label){
                        label = gnome_canvas_item_new (gnome_canvas_root (GNOME_CANVAS (canvas)),
                                                       gnome_canvas_text_get_type(),
                                                       "text", text,
                                                       "x", xy[0] + label_offset_xy[0]*marker_scale,
                                                       "y", xy[1] + label_offset_xy[1]*marker_scale,
                                                       "font", xsmres.ObjectLabFont,
                                                       "anchor", GTK_ANCHOR_CENTER,
                                                       "fill_color_rgba", RGBAColor (xsmres.ObjectLabColor),
                                                       NULL);
                        gtk_signal_connect (GTK_OBJECT (label), "event",
                                            (GtkSignalFunc) VObject::item_event,
                                            this);

                }
                return;
        case 0:
                if (label){
                        gtk_object_destroy (GTK_OBJECT (label));
                        label = NULL;
                }
                return;
        case -1:
                if (label) 
                        gnome_canvas_item_set (label,
                                               "text", text,
                                               "x", xy[0] + label_offset_xy[0]*marker_scale,
                                               "y", xy[1] + label_offset_xy[1]*marker_scale,
                                               NULL);
                return;
        }
}

void VObject::GoLocMax(int r){
        for(int n=0; n<np; ++n){
                int i=2*n;
                //  XSM_DEBUG(DBG_L2,< "VObject::GoLocMax" );
                if(xy[i] > r && xy[i] < (vinfo->sc->mem2d->GetNx()-r) &&
                   xy[i+1] > r && xy[i+1] < (vinfo->sc->mem2d->GetNy()-r)){
                        int lmx, lmy;
                        double val=vinfo->sc->mem2d->GetDataPkt(lmx=R2INT(xy[i]), 
                                                                lmy=R2INT(xy[i+1]));
                        //    XSM_DEBUG(DBG_L2,< "VObject::GoLocMax: OK start is " << lmx << ", " << lmy << " r: " << r << " z=" << val );
                        for(int x=R2INT(xy[i])-r; x<(R2INT(xy[i])+r); ++x)
                                for(int y=R2INT(xy[i+1])-r; y<(R2INT(xy[i+1])+r); ++y){
                                        double z=vinfo->sc->mem2d->GetDataPkt(x,y);
                                        if(z > val) lmx=x, lmy=y, val=z;
                                }
                        //    XSM_DEBUG(DBG_L2,< "VObject::GoLocMax: Max in r at " << lmx << ", " << lmy << " z=" << val );
                        xy[i]=lmx, xy[i+1]=lmy;
                        node_marker (abl[i], &xy[i], i);
                        Update();
                }
                break;
        }
}

gint VObject::item_event(GnomeCanvasItem *item, GdkEvent *event, VObject *vo){
        static double x, y;
        double new_x, new_y;
        GdkCursor *cursor;
        static int dragging;
        double item_x=0., item_y=0.;
        
        if (vo->lock && !(event->type == GDK_BUTTON_PRESS && event->button.button == 2)){
                vo->Update();
                return FALSE;
        }

        item_x = event->button.x;
        item_y = event->button.y;
        gnome_canvas_item_w2i(item->parent, &item_x, &item_y);
        
        switch (event->type) 
        {
        case GDK_BUTTON_PRESS:
                switch(event->button.button) 
                {
                case 1:
//                      if (event->button.state & GDK_SHIFT_MASK)
//                      {
//                              gtk_object_destroy(GTK_OBJECT(item));
//                      }
//                      else 
                        {
                                x = item_x;
                                y = item_y;
              
                                vo->touched_item  = item;
                                vo->touched_xy[0] = item_x;
                                vo->touched_xy[1] = item_y;
                                
                                cursor = gdk_cursor_new(GDK_FLEUR);
                                gnome_canvas_item_grab(item,
                                                       GDK_POINTER_MOTION_MASK | 
                                                       GDK_BUTTON_RELEASE_MASK,
                                                       cursor,
                                                       event->button.time);
//                              gdk_cursor_destroy(cursor);
                                dragging = TRUE;
                        }
                        vo->Update();
                        break;
                        
                case 2:
                        vo->touched_item  = item;
                        vo->touched_xy[0] = item_x;
                        vo->touched_xy[1] = item_y;
                        
                        gnome_popup_menu_do_popup (vo->popup, NULL, NULL, NULL, vo, NULL);
                        break;

                default:
                        break;
                }
                break;
                
        case GDK_MOTION_NOTIFY:
                if(gtk_events_pending() < 1)
                        if (dragging && (event->motion.state & GDK_BUTTON1_MASK)) 
                        {
                                new_x = item_x;
                                new_y = item_y;
                                
                                if(item == vo->abl[vo->np] || item == vo->label || item == vo->arrow_head){
                                        for(int i=0; i<vo->np; i++){
                                                vo->xy[2*i]+=new_x-x; // Move Object
                                                vo->xy[2*i+1]+=new_y-y;
                                                vo->node_marker (vo->abl[i], &vo->xy[2*i], i);
                                        }
                                }else{
                                        // Move one Handle
                                        for(int i=0; i<vo->np; i++)
                                                if(item == vo->abl[i]){ // Move Object Element
                                                        vo->xy[2*i]+=new_x-x;
                                                        vo->xy[2*i+1]+=new_y-y;
                                                        vo->node_marker (item, &vo->xy[2*i], i);
                                                }
                                }

                                vo->Update();
                                vo->show_label();
                                x = new_x;
                                y = new_y;
                        }
                break;
                
        case GDK_BUTTON_RELEASE:
                gnome_canvas_item_ungrab(item, event->button.time);
                dragging = FALSE;
                break;

#if 0
        case GDK_ENTER_NOTIFY:
                vo->set_color_to_hilit ();
                break;
        case GDK_LEAVE_NOTIFY:
                vo->set_color_to_inactive ();
                break;
#endif

        default:
                break;
        }
        
        return FALSE;
}

VObPoint::VObPoint(GtkWidget *canvas, double *xy0, Point2D *P2d, int pflg, VOBJ_COORD_MODE cmode, gchar *lab, double Marker_scale)
        : VObject(canvas, xy0, 1, P2d, pflg, cmode, lab, Marker_scale){
        if(name) g_free(name);
        name = g_strdup("Point");
        follow = FALSE;
}

void VObPoint::Update(){
        gchar *s1;
        gchar *mld = g_strconcat("Point: ",
                                 s1=vinfo->makeXYZinfo(xy[0],xy[1], &p2d[0]),
                                 NULL);
        g_free(s1);
        gtk_statusbar_push(GTK_STATUSBAR(statusbar), statusid, mld);
        vinfo->sc->PktVal=1;
        vinfo->sc->set_data (MPOINT);

        if (follow)
                update_offset ();

        if (profile){
                profile->show();
                profile->NewData(vinfo->sc);
        }
        else
                gapp->xsm->MausMode(MPOINT);

        Activate ();
        g_free(mld);
}

VObPoint::~VObPoint(){};

void VObPoint::follow_on(){
        follow = TRUE;
};

void VObPoint::follow_off(){
        follow = FALSE;
};

void VObPoint::update_offset(){
        double x,y;
        x = (double)xy[0]*vinfo->GetQfac ();
        y = (double)xy[1]*vinfo->GetQfac ();

        if (x < 0. || x >= vinfo->sc->mem2d->GetNx ())
                return;
        if (y < 0. || y >= vinfo->sc->mem2d->GetNy ())
                return;

        vinfo->sc->Pixel2World (R2INT (x), R2INT (y), 
                                gapp->xsm->data.s.x0, gapp->xsm->data.s.y0, 
                                SCAN_COORD_ABSOLUTE);

        gapp->xsm->hardware->SetOffset
                (R2INT (gapp->xsm->Inst->X0A2Dig (gapp->xsm->data.s.x0)),
                 R2INT (gapp->xsm->Inst->Y0A2Dig (gapp->xsm->data.s.y0)));

        gapp->spm_update_all ();
}

VObLine::VObLine(GtkWidget *canvas, double *xy0, Point2D *P2d, int pflg, VOBJ_COORD_MODE cmode, gchar *lab, double Marker_scale) 
        : VObject(canvas, xy0, 2, P2d, pflg, cmode, lab, Marker_scale){
        if(name) g_free(name);
        name = g_strdup("Line");
        XSM_DEBUG (DBG_L3,  "VObLine::VObLine - adding line" );
        GnomeCanvasPoints  *pn = gnome_canvas_points_new (2);
        // Line
        pn->coords[0] = xy[0]; pn->coords[1] = xy[1]; 
        pn->coords[2] = xy[2]; pn->coords[3] = xy[3];
        
        abl[2] = gnome_canvas_item_new(gnome_canvas_root( GNOME_CANVAS(canvas)),
                                       gnome_canvas_line_get_type (),
                                       "points", pn,
                                       "fill_color","blue",
                                       "width_pixels", OBJECT_LINE_WIDTH,
                                       NULL);

        arrow_head = NULL;

        gnome_canvas_points_free (pn);
        SETUP_ITEM(abl[2]);
        gnome_canvas_item_lower(abl[2], 2);
  
        gtk_signal_connect(GTK_OBJECT(abl[2]), "event",
                           (GtkSignalFunc) VObject::item_event,
                           this);
        Update();
}

VObLine::~VObLine(){
        XSM_DEBUG(DBG_L2, "VObLine::~VObLine");
}

void VObLine::Update(){
        gchar *s1, *s2, *s3;
        gchar *phitxt = g_strdup_printf("phi=%g"UTF8_DEGREE, Phi());
        gchar *mld = g_strconcat("Line: |",
                                 s1=vinfo->makeXYinfo(xy[0],xy[1]),
                                 ": ",
                                 s2=vinfo->makedXdYinfo(xy,xy+2),
                                 "|=",
                                 s3=vinfo->makeDXYinfo(xy,xy+2, &p2d[0], &p2d[1]), ", ", phitxt,
                                 NULL);
        g_free(s3); g_free(s2); g_free(s1);

        GnomeCanvasPoints  *pn = gnome_canvas_points_new (2);
        double phi;
        double l  = 12. * marker_scale;
        double M[4];

        phi = M_PI*(Phi()+45)/180.;
        M[0] = M[3] = cos(phi);
        M[2] = -(M[1] = sin(phi));

        // Line
        pn->coords[0] = xy[0]; pn->coords[1] = xy[1]; 
        pn->coords[2] = xy[2]-(l*M[0] + l*M[1]); pn->coords[3] = xy[3]+(l*M[2] + l*M[3]);
        
        gnome_canvas_item_set(abl[np], "points", pn, NULL);
        gnome_canvas_points_free (pn);

        pn = gnome_canvas_points_new (3);

        // Arrowhead at end
        phi = M_PI*(Phi()+30.)/180.;
        M[0] = M[3] = cos(phi);
        M[2] = -(M[1] = sin(phi));

        pn->coords[0] = xy[2]-(l*M[0] + l*M[1]);
        pn->coords[1] = xy[3]+(l*M[2] + l*M[3]);

        phi = M_PI*(Phi()+60.)/180.;
        M[0] = M[3] = cos(phi);
        M[2] = -(M[1] = sin(phi));
        pn->coords[2] = xy[2]-(l*M[0] + l*M[1]);
        pn->coords[3] = xy[3]+(l*M[2] + l*M[3]);

        pn->coords[4] = xy[2];
        pn->coords[5] = xy[3];

        if (arrow_head)
                gnome_canvas_item_set(arrow_head, "points", pn, NULL);
        else{
                arrow_head = gnome_canvas_item_new (gnome_canvas_root (GNOME_CANVAS(canvas)),  
                                                    gnome_canvas_polygon_get_type (), 
                                                    "points", pn,
                                                    "outline_color", "blue",
                                                    "fill_color_rgba", 0x00000050,
                                                    "width_pixels", OBJECT_LINE_WIDTH,
                                                    NULL);
                SETUP_ITEM(arrow_head);
                gtk_signal_connect (GTK_OBJECT (arrow_head), "event",
                                    (GtkSignalFunc) VObject::item_event,
                                    this);
        }
        gnome_canvas_points_free (pn);
  
        gtk_statusbar_push(GTK_STATUSBAR(statusbar), statusid, mld);
        vinfo->sc->PktVal=2;
        vinfo->sc->set_data (MLINE);

        if(profile){
                profile->show();
                profile->NewData(vinfo->sc);
        }
        else
                gapp->xsm->MausMode(MLINE);
        g_free(mld);
        g_free(phitxt);
        Activate ();
}

VObPolyLine::VObPolyLine(GtkWidget *canvas, double *xy0, Point2D *P2d, int pflg, VOBJ_COORD_MODE cmode, gchar *lab, double Marker_scale) 
        : VObject(canvas, &xy0[1], (int) xy0[0], P2d, pflg, cmode, lab, Marker_scale){
        if(name) g_free(name);
        name = g_strdup("PolyLine");
        XSM_DEBUG (DBG_L3,  "VObPolyLine::VObPolyLine - adding poly line, np=" << np );

        GnomeCanvasPoints *pn = gnome_canvas_points_new (np);
        double *pxy = pn->coords;
        for( int i=0; i<np; ++i){
                *pxy++ = xy[2*i];
                *pxy++ = xy[1+2*i];
        }

        if(xsmres.antialiascanvas)
                abl[np] = gnome_canvas_item_new(gnome_canvas_root( GNOME_CANVAS(canvas)),
                                                GNOME_TYPE_CANVAS_LINE,
                                                "points", pn,
                                                "fill_color","blue",
                                                "fill_color_rgba", 0x00000030, // AA only
                                                "width_pixels", OBJECT_LINE_WIDTH,
                                                NULL);
        else
                abl[np] = gnome_canvas_item_new(gnome_canvas_root( GNOME_CANVAS(canvas)),
                                                GNOME_TYPE_CANVAS_LINE,
                                                "points", pn,
                                                "fill_color","blue",
                                                "width_pixels", OBJECT_LINE_WIDTH,
                                                NULL);

        gnome_canvas_points_unref(pn);
  
        SETUP_ITEM(abl[np]);
        gnome_canvas_item_lower(abl[np], 2);
  
        gtk_signal_connect(GTK_OBJECT(abl[np]), "event",
                           (GtkSignalFunc) VObject::item_event,
                           this);
        Update();
}

VObPolyLine::~VObPolyLine(){
        XSM_DEBUG(DBG_L2, "VObPolyLine::~VObPolyLine");
}

void VObPolyLine::AddNode(){
        XSM_DEBUG(DBG_L2, "Add Node, Item: " << touched_item 
             << " XY: " <<  touched_xy[0] << "," << touched_xy[1] );
        XSM_DEBUG(DBG_L2, "-- not jet implemented, have to change xy and abl to G_SLIST --" );
}

void VObPolyLine::DelNode(){
        XSM_DEBUG(DBG_L2, "Del Node, Item: " << touched_item 
             << " XY: " <<  touched_xy[0] << "," << touched_xy[1] );
        XSM_DEBUG(DBG_L2, "-- not jet implemented, have to change xy and abl to G_SLIST --" );
}

void VObPolyLine::Update(){
        gchar *s1, *s2, *s3;
        gchar *mld = g_strconcat("PolyLine: |",
                                 s1=vinfo->makeXYinfo(xy[0],xy[1], &p2d[0]),
                                 ":..: ",
                                 s2=vinfo->makedXdYinfo(xy,xy+2*(np-1)),
                                 "|=",
                                 s3=vinfo->makeDnXYinfo(xy,np),
                                 NULL);
        g_free(s3); g_free(s2); g_free(s1);

        GnomeCanvasPoints *pn = gnome_canvas_points_new (np);
        double *pxy = pn->coords;
        for( int i=0; i<np; ++i){
                g_free (vinfo->makeXYinfo (xy[2*i],xy[1+2*i], &p2d[i]));
                *pxy++ = xy[2*i];
                *pxy++ = xy[1+2*i];
        }
        gnome_canvas_item_set(abl[np], "points", pn, NULL);
        gnome_canvas_points_unref(pn);

        gtk_statusbar_push(GTK_STATUSBAR(statusbar), statusid, mld);
        vinfo->sc->PktVal=np;
        g_free(mld);

        Activate ();
}

VObTrace::VObTrace(GtkWidget *canvas, double *xy0, Point2D *P2d, int pflg, VOBJ_COORD_MODE cmode, gchar *lab, double Marker_scale) 
        : VObject(canvas, &xy0[1], 1, P2d, pflg, cmode, lab, Marker_scale){
        if(name) g_free(name);
        name = g_strdup("Trace");
        XSM_DEBUG (DBG_L3,  "VObTrace::VObTrace - adding poly line, np=" << np );

        trlen = (int)xy0[0];
        pn = gnome_canvas_points_new (trlen);
        double *pxy = pn->coords;
        for( int i=0; i<trlen; ++i, pxy+=2){
                pxy[0] = xy0[1+2*i];
                pxy[1] = xy0[1+2*i+1];
                vinfo->Angstroem2W (pxy[0], pxy[1]);
        }
        abl[np] = gnome_canvas_item_new(gnome_canvas_root( GNOME_CANVAS(canvas)),
                                        GNOME_TYPE_CANVAS_LINE,
                                        "points", pn,
                                        "fill_color","blue",
                                        "width_pixels", OBJECT_LINE_WIDTH,
                                        NULL);
  
        SETUP_ITEM(abl[np]);
        gnome_canvas_item_lower(abl[np], 2);
  
        gtk_signal_connect(GTK_OBJECT(abl[np]), "event",
                           (GtkSignalFunc) VObject::item_event,
                           this);
        Update();
}

VObTrace::~VObTrace(){
        gnome_canvas_points_unref(pn);
        XSM_DEBUG(DBG_L2, "VObTrace::~VObTrace");
}

void VObTrace::Change(double *xy0){
        gnome_canvas_points_unref(pn);
        trlen = (int)xy0[0];
        pn = gnome_canvas_points_new (trlen);
        double *pxy = pn->coords;
        for( int i=0; i<trlen; ++i, pxy+=2){
                pxy[0] = xy0[1+2*i];
                pxy[1] = xy0[1+2*i+1];
                vinfo->Angstroem2W (pxy[0], pxy[1]);
        }
        gnome_canvas_item_set(abl[np], "points", pn, NULL);
}

void VObTrace::Update(){
        gchar *s1;
        gchar *mld = g_strconcat("Tracehead: ",
                                 s1=vinfo->makeXYinfo(xy[0],xy[1], &p2d[0]),
                                 NULL);
        g_free(s1);

        double *pxy = pn->coords;
        for( int i=0; i<np; ++i){
                *pxy++ = xy[2*i];
                *pxy++ = xy[1+2*i];
        }
        gnome_canvas_item_set(abl[np], "points", pn, NULL);

        gtk_statusbar_push(GTK_STATUSBAR(statusbar), statusid, mld);
        vinfo->sc->PktVal=np;
        g_free(mld);

        Activate ();
}



VObKsys::VObKsys(GtkWidget *canvas, double *xy0, Point2D *P2d, int pflg, VOBJ_COORD_MODE cmode, gchar *lab, double Marker_scale) 
        : VObject(canvas, xy0, 3, P2d, pflg, cmode, lab, Marker_scale){
        XSM_DEBUG (DBG_L3,  "VObKsys::VObKsys - adding Ksys" );
        GnomeCanvasPoints  *pn = gnome_canvas_points_new (3);
        pn->coords[0] = xy[0]; pn->coords[1] = xy[1]; 
        pn->coords[2] = xy[2]; pn->coords[3] = xy[3];
        pn->coords[4] = xy[4]; pn->coords[5] = xy[5];
        abl[3] = gnome_canvas_item_new(gnome_canvas_root( GNOME_CANVAS(canvas)),
                                       GNOME_TYPE_CANVAS_LINE,
                                       "points", pn,
                                       "fill_color","blue",
                                       "width_pixels", OBJECT_LINE_WIDTH,
                                       NULL);

        gnome_canvas_points_free (pn);
        SETUP_ITEM(abl[3]);
        gnome_canvas_item_lower(abl[3], 3);
  
        abl[4] = NULL;
        calc_grid ();
        SETUP_ITEM(abl[4]);
        gnome_canvas_item_lower(abl[4], 4);

        gtk_signal_connect(GTK_OBJECT(abl[3]), "event",
                           (GtkSignalFunc) VObject::item_event,
                           this);
        Update();
}

VObKsys::~VObKsys(){
        XSM_DEBUG(DBG_L2, "VObKsys::~VObKsys");
}

void VObKsys::calc_grid(){
        const int num_grid_lines = 11; // must be odd!
        int nl = 4*num_grid_lines;
        int i,j,k,l;
        double rx[2], ry[2];
        rx[0] = xy[2]-xy[0];
        rx[1] = xy[3]-xy[1];
        ry[0] = xy[2]-xy[4];
        ry[1] = xy[3]-xy[5];
        j = 0;
        l = num_grid_lines/2;
        GnomeCanvasPoints *pngrid = gnome_canvas_points_new (nl);

        for (i=-num_grid_lines/2; i<=num_grid_lines/2; ++i){
                k = i; 
                pngrid->coords[j++] = xy[2] + k*rx[0] + l*ry[0];
                pngrid->coords[j++] = xy[3] + k*rx[1] + l*ry[1];
                l = -l;
                pngrid->coords[j++] = xy[2] + k*rx[0] + l*ry[0];
                pngrid->coords[j++] = xy[3] + k*rx[1] + l*ry[1];
        }
        k = num_grid_lines/2;
        for (i=-num_grid_lines/2; i<=num_grid_lines/2; ++i){
                l = i; 
                pngrid->coords[j++] = xy[2] + k*rx[0] + l*ry[0];
                pngrid->coords[j++] = xy[3] + k*rx[1] + l*ry[1];
                k = -k;
                pngrid->coords[j++] = xy[2] + k*rx[0] + l*ry[0];
                pngrid->coords[j++] = xy[3] + k*rx[1] + l*ry[1];
        }
        // create grid object
        if (abl[4])
                gnome_canvas_item_set( abl[4],
                                       "points", pngrid,
                                       NULL);
        else
                abl[4] = gnome_canvas_item_new (gnome_canvas_root( GNOME_CANVAS(canvas)),
                                                GNOME_TYPE_CANVAS_LINE,
                                                "points", pngrid,
                                                "fill_color", "green",
                                                "width_pixels", 1,
                                                NULL);
        gnome_canvas_points_free (pngrid);
}

void VObKsys::update_grid(){
        calc_grid ();
}

void VObKsys::Update(){
        gchar *s1;
        gchar *phi = g_strdup_printf("phi=%g"UTF8_DEGREE, Phi()-Phi(xy[2]-xy[4], xy[3]-xy[5]));
        gchar *mld = g_strconcat("Line: o:",
                                 s1=vinfo->makeXYinfo(xy[2],xy[3], &p2d[1]),
                                 ", ", phi,
                                 NULL);
        g_free(s1);
        g_free(vinfo->makeXYinfo(xy[0],xy[1], &p2d[0]));
        g_free(vinfo->makeXYinfo(xy[4],xy[5], &p2d[2]));
        GnomeCanvasPoints  *pn = gnome_canvas_points_new (3);
        pn->coords[0] = xy[0]; pn->coords[1] = xy[1]; 
        pn->coords[2] = xy[2]; pn->coords[3] = xy[3];
        pn->coords[4] = xy[4]; pn->coords[5] = xy[5];
        gnome_canvas_item_set (abl[np], "points", pn, NULL);
        gnome_canvas_points_free (pn);
        calc_grid ();
        update_grid ();
  
        vinfo->sc->PktVal=3;
        vinfo->sc->set_data (MPOLY);

        gtk_statusbar_push(GTK_STATUSBAR(statusbar), statusid, mld);
        if(profile){
                profile->show();
                profile->NewData(vinfo->sc);
        }
        else
                gapp->xsm->MausMode(MPOLY);
        g_free(mld);
        g_free(phi);

        Activate ();
}

VObParabel::VObParabel(GtkWidget *canvas, double *xy0, Point2D *P2d, int pflg, VOBJ_COORD_MODE cmode, gchar *lab, double Marker_scale) 
        : VObject(canvas, xy0, 3, P2d, pflg, cmode, lab, Marker_scale){
        if(name) g_free(name);
        name = g_strdup("Parabel");
        GnomeCanvasPoints  *pn = gnome_canvas_points_new (3);
        pn->coords[0] = xy[0]; pn->coords[1] = xy[1]; 
        pn->coords[2] = xy[2]; pn->coords[3] = xy[3];
        pn->coords[4] = xy[4]; pn->coords[5] = xy[5];
        abl[3] = gnome_canvas_item_new(gnome_canvas_root( GNOME_CANVAS(canvas)),
                                       GNOME_TYPE_CANVAS_LINE,
                                       "points", pn,
                                       "fill_color","blue",
                                       "width_pixels", OBJECT_LINE_WIDTH,
                                       NULL);
  
        gnome_canvas_points_free (pn);
        SETUP_ITEM(abl[3]);
        gnome_canvas_item_lower(abl[3], 3);
  
        gtk_signal_connect(GTK_OBJECT(abl[3]), "event",
                           (GtkSignalFunc) VObject::item_event,
                           this);
        Update();
}

VObParabel::~VObParabel(){
        XSM_DEBUG(DBG_L2, "VObParabel::~VObParabel");
}


void VObParabel::Update(){
        double phi;
        gchar *s1, *s2, *s3, *s4;
        gchar *sphi = g_strdup_printf("phi=%g"UTF8_DEGREE, phi=Phi());
        gchar *mld = g_strconcat("Line: |",
                                 s1=vinfo->makeXYinfo(xy[0],xy[1], &p2d[0]),
                                 ",",
                                 s2=vinfo->makeXYinfo(xy[2],xy[3], &p2d[1]),
                                 ",",
                                 s3=vinfo->makeXYinfo(xy[4],xy[5], &p2d[2]),
                                 "|=",
                                 s4=vinfo->makeXinfo(Dist()), ", ", sphi,
                                 NULL);
        g_free(s4); g_free(s3); g_free(s2); g_free(s1); g_free(sphi);

#define NSEGS 20
        GnomeCanvasPoints *pn = gnome_canvas_points_new(NSEGS);
        double dx,x;
        double c = cos(phi/180.*M_PI);
        double s = sin(phi/180.*M_PI);
        double *pxy = pn->coords; 
        double p2[2], pt2[2];
        double skl;
        p2[0] = xy[4]-xy[2];
        p2[1] = xy[5]-xy[3];
        pt2[0] =  c*p2[0] + s*p2[1];
        pt2[1] = -s*p2[0] + c*p2[1];
        x  = c*(xy[0]-xy[2]) + s*(xy[1]-xy[3]);
        dx = (pt2[0]-x)/(NSEGS-1);
        skl= pt2[1]/pt2[0]/pt2[0];
        c = cos(-phi/180.*M_PI);
        s = sin(-phi/180.*M_PI);
        for( int i=0; i<NSEGS; ++i, x+=dx){
                *pxy++ = xy[2] + c*x + s*x*x*skl;
                *pxy++ = xy[3] - s*x + c*x*x*skl;
        }

        gnome_canvas_item_set(abl[np], "points", pn, NULL);
        gnome_canvas_points_unref(pn);

        vinfo->sc->PktVal=3;
        vinfo->sc->set_data (MPARABEL);
        gtk_statusbar_push(GTK_STATUSBAR(statusbar), statusid, mld);

        if(profile){
                profile->show();
                profile->NewData(vinfo->sc);
        }
        else
                gapp->xsm->MausMode (MPARABEL);
        g_free(mld);


        Activate ();
}

VObRectangle::VObRectangle(GtkWidget *canvas, double *xy0, Point2D *P2d, int pflg, VOBJ_COORD_MODE cmode, gchar *lab, double Marker_scale) 
        : VObject(canvas, xy0, 2, P2d, pflg, cmode, lab, Marker_scale){
        if(name) g_free(name);
        name = g_strdup("Rectangle");

        if(xsmres.antialiascanvas)
                abl[2] = gnome_canvas_item_new(gnome_canvas_root( GNOME_CANVAS(canvas)),
                                               gnome_canvas_rect_get_type(),
                                               "x1",xy[0],
                                               "y1",xy[1],
                                               "x2",xy[2],
                                               "y2",xy[3],
                                               "outline_color","blue",
                                               "fill_color_rgba", 0x00000030, // AA only
                                               "width_pixels", OBJECT_LINE_WIDTH,
                                               NULL);
        else
                abl[2] = gnome_canvas_item_new(gnome_canvas_root( GNOME_CANVAS(canvas)),
                                               gnome_canvas_rect_get_type(),
                                               "x1",xy[0],
                                               "y1",xy[1],
                                               "x2",xy[2],
                                               "y2",xy[3],
                                               "outline_color","blue",
                                               "width_pixels", OBJECT_LINE_WIDTH,
                                               NULL);

        gnome_canvas_item_lower(abl[2], 2);

        gtk_signal_connect(GTK_OBJECT(abl[2]), "event",
                           (GtkSignalFunc) VObject::item_event,
                           this);
}

VObRectangle::~VObRectangle(){};

void VObRectangle::Update(){
        gchar *s1, *s2, *s3;
        gchar *mld = g_strconcat("Rect: ",
                                 s1=vinfo->makeXYinfo(xy[0],xy[1], &p2d[0]),
                                 "-",
                                 s2=vinfo->makedXdYinfo(xy,xy+2),
                                 " A=",
                                 s3=vinfo->makeA2info(xy,xy+2),
                                 NULL);
        g_free(s3); g_free(s2); g_free(s1);
        g_free(vinfo->makeXYinfo(xy[2],xy[3], &p2d[1]));
        gnome_canvas_item_set(abl[np],
                              "x1",xy[0], "y1",xy[1],
                              "x2",xy[2], "y2",xy[3],
                              NULL);
        gtk_statusbar_push(GTK_STATUSBAR(statusbar), statusid, mld);
        vinfo->sc->PktVal=2;

        gapp->xsm->MausMode(MRECT);
        g_free(mld);

        Activate ();
}

VObCircle::VObCircle(GtkWidget *canvas, double *xy0, Point2D *P2d, int pflg, VOBJ_COORD_MODE cmode, gchar *lab, double Marker_scale) 
        : VObject(canvas, xy0, 2, P2d, pflg, cmode, lab, Marker_scale){
        if(name) g_free(name);
        name = g_strdup("Circle");
        Calc();
        abl[2] = gnome_canvas_item_new(gnome_canvas_root( GNOME_CANVAS(canvas)),
                                       gnome_canvas_ellipse_get_type(),
                                       "x1",xyrec[0],
                                       "y1",xyrec[1],
                                       "x2",xyrec[2],
                                       "y2",xyrec[3],
                                       "outline_color","blue",
                                       "width_pixels", OBJECT_LINE_WIDTH,
                                       NULL);

        gnome_canvas_item_lower(abl[2],2);

        gtk_signal_connect(GTK_OBJECT(abl[2]), "event",
                           (GtkSignalFunc) VObject::item_event,
                           this);
}

VObCircle::~VObCircle(){};

void VObCircle::Update(){
        Calc();
        gchar *s1, *s2;
        gchar *mld = g_strconcat("Circle: ",
                                 s1=vinfo->makeXYinfo(xy[0],xy[1], &p2d[0]),
                                 ", r=",
                                 s2=vinfo->makeDXYinfo(xy, xy+2),
                                 NULL);
        g_free(s2); g_free(s1);
        g_free(vinfo->makeXYinfo(xy[2],xy[3], &p2d[1]));
        gnome_canvas_item_set(abl[np],
                              "x1",xyrec[0], "y1",xyrec[1],
                              "x2",xyrec[2], "y2",xyrec[3],
                              NULL);
  
        gtk_statusbar_push(GTK_STATUSBAR(statusbar), statusid, mld);
        vinfo->sc->PktVal=2;
        vinfo->sc->set_data (MCIRC);

        if (profile){
                profile->show();
                profile->NewData(vinfo->sc);
        }
        else
                gapp->xsm->MausMode (MCIRC);

        g_free(mld);
        Activate ();
}


VObEvent::VObEvent(GtkWidget *canvas, double *xy0, Point2D *P2d, int pflg, VOBJ_COORD_MODE cmode, gchar *lab, double marker_scale)
        : VObject(canvas, xy0, 0, P2d, pflg, cmode, lab, marker_scale){
        if(name) g_free(name);
        name = g_strdup("Event");
        lock_object (TRUE);
        Update();
}

void VObEvent::Update(){
        gchar *s1;
        gchar *mld = g_strconcat("Event: ",
                                 s1=vinfo->makeXYZinfo(xy[0],xy[1], &p2d[0]),
                                 NULL);
        g_free(s1);
        gtk_statusbar_push(GTK_STATUSBAR(statusbar), statusid, mld);
        vinfo->sc->PktVal=1;
        vinfo->sc->set_data (MPOINT);

        if (vinfo->sc->view)
                vinfo->sc->view->update_event_info (scan_event);

        Activate ();

        g_free(mld);
}

VObEvent::~VObEvent(){};

---