void
MarkCanvas::select(bool move_to)
{
if (g_selected_mark != NULL)
g_selected_mark->deselect();
g_selected_mark = this;
// re-computation is necessary after searching. for now let me
// re-compute location every time - 10/31/94 kamiya
#ifdef JBM
compute_location();
if (f_draw_mark == NULL)
{
view_port &vp = f_viewport_agent->tml_viewport();
f_draw_mark =
vp.mark_region (f_model_range.get_start(), f_model_range.get_end(),
vp.get_ftbl()->ptr_2_tml_dp_inv);
}
#endif
// Send a message to anyone listening that a Mark has been selected.
// Generally this will be the NodeWindowAgent since it needs to
// senzitize some menu entries.
MarkSelectionChanged message;
message.f_selection_type = MarkSelectionChanged::SELECT;
message.f_move_to = move_to ;
send_message (message);
// Tell the MarkIcon so that it can hightlight itself.
if (f_mark_icon != NULL)
f_mark_icon->select (this);
}
//---------------------------------------------------------------------------------------
GmoShapeArticulation* ArticulationEngraver::create_shape(ImoArticulation* pArticulation,
UPoint pos, Color color,
GmoShape* pParentShape)
{
m_pArticulation = pArticulation;
m_placement = pArticulation->get_placement();
m_pParentShape = pParentShape;
m_fAbove = determine_if_above();
int iGlyph = find_glyph();
double fontSize = determine_font_size();
UPoint position = compute_location(pos);
ShapeId idx = 0;
m_pArticulationShape =
LOMSE_NEW GmoShapeArticulation(pArticulation, idx, iGlyph, position,
color, m_libraryScope, fontSize);
add_voice();
if (m_pArticulation->is_articulation_symbol()
&& m_pArticulation->get_articulation_type() != k_articulation_breath_mark
&& m_pArticulation->get_articulation_type() != k_articulation_caesura
)
{
center_on_parent();
}
return m_pArticulationShape;
}
void BlobDetectorNew::compute_all(Mat& image_in)
{
x_min_result = 9999;
x_max_result = 0;
y_min_result = 9999;
y_max_result = 0;
image_atlas = Mat::zeros(image_in.rows, image_in.cols, CV_16UC1);
delete blobs;
blobs = new vector<BlobNew>();
blob_max_size_actual = BlobNew();
blob_max_size = &blob_max_size_actual;
const int width_const = image_in.cols;
const int height_const = image_in.rows;
for (int i = 0; i < width_const; ++i)
for (int j = 0; j < height_const; ++j)
{
const uchar gray = image_in.ptr<uchar>(j, i)[0];
if (gray < 255)
compute_location(image_in, gray, i, j, true, true);
}
}
//---------------------------------------------------------------------------------------
GmoShapeCodaSegno* CodaSegnoEngraver::create_shape(ImoSymbolRepetitionMark* pRepetitionMark,
UPoint pos, Color color,
GmoShape* pParentShape)
{
m_pRepetitionMark = pRepetitionMark;
m_pParentShape = pParentShape;
int iGlyph = find_glyph();
double fontSize = determine_font_size();
UPoint position = compute_location(pos);
ShapeId idx = 0;
m_pCodaSegnoShape =
LOMSE_NEW GmoShapeCodaSegno(pRepetitionMark, idx, iGlyph, position,
color, m_libraryScope, fontSize);
center_on_parent();
return m_pCodaSegnoShape;
}
//---------------------------------------------------------------------------------------
GmoShapeFermata* FermataEngraver::create_shape(ImoFermata* pFermata, UPoint pos,
Color color, GmoShape* pParentShape)
{
m_pFermata = pFermata;
m_placement = pFermata->get_placement();
m_pParentShape = pParentShape;
m_fAbove = determine_if_above();
int iGlyph = find_glyph();
double fontSize = determine_font_size();
UPoint position = compute_location(pos);
ShapeId idx = 0;
m_pFermataShape = LOMSE_NEW GmoShapeFermata(pFermata, idx, iGlyph, position,
color, m_libraryScope, fontSize);
add_voice();
center_on_parent();
return m_pFermataShape;
}
int main (int argc, char **argv)
{
Dbptr master_db, dbtmp;
char dbname[512]; /* dbtmp name assigned by maketmpdb */
char *orbname;
char *pffile=NULL;
Pf *pf; /* Input pf object handle */
Arr *arr_sta;
Arr *arr_a; /*Array object associative array -- purely a place holder*/
Arr *arr_phase;
int i;
char *statefile=NULL;
Point origin;
int orbin,orbout; /* We establish both a read and write connection
on seperate sockets so we can use orbreap on
the input */
int quit=0,last_pktid;
double last_pkttime;
int exhume_rcode; /* value returned by exhume*/
char *packet=0;
int orid_used;
Location_options o;
RTlocate_Options rt_opts;
ORB_Hypocenter hyp;
/* This initialization is necessary for the orb_arrivals_in routine
to work correctly on the first pass*/
hyp.assocs = NULL;
elog_init(argc, argv);
elog_notify (0, "$Revision$ $Date$") ;
if(argc < 2) usage(argv[0]);
orbname = argv[1];
for(i=2;i<argc;++i)
{
if(!strcmp(argv[i],"-pf"))
{
++i;
pffile = argv[i];
}
else if(!strcmp(argv[i],"-S"))
{
++i;
statefile = argv[i];
}
else
{
/* For this kind of program it seems wise to make it a fatal error to
have the arguments botched */
elog_complain(0,"Unrecognized argument %s\n",argv[i]);
usage(argv[0]);
}
}
/* set default this way*/
if(pffile == NULL) pffile = strdup(DEFAULT_PFFILE);
if(statefile == NULL) statefile = strdup(DEFAULT_STATEFILE);
/* parse parameter file and form all the genloc control and
internal static data structures */
i = pfread(pffile,&pf);
if(i != 0) elog_die(1,"Pfread error\n");
o = parse_options_pf (pf);
arr_sta = load_station_table(pf);
arr_a = load_array_table(pf);
arr_phase = parse_phase_parameter_file(pf);
/* Note this is a slightly different use of these variables
than that used by other genloc routines. Here we use it
like a coordinate system origin to select range of distances
to use. We actually reset these again in the location function,
but check them here to make sure these variables are in the
parameter space. pfget_double will cause the program to die
if these aren't defined.*/
origin.lat = pfget_double(pf,"center_latitude");
origin.lon = pfget_double(pf,"center_longitude");
origin.z = 0.0;
rt_opts = parse_rt_options(pf);
if(dbopen(rt_opts.work_db,"r+",&master_db ) == dbINVALID)
elog_die(1,"Unable to open master database %s\n",
rt_opts.work_db);
/* Now we open the orb server connections */
if( (orbin=orbopen(orbname,"r&")) < 0)
elog_die(0,"Cannot open ring buffer %s for reading\n",orbname);
if(orbselect(orbin,"/db/event|/db/origin|/db/assoc|/db/arrival") < 0)
elog_die(0,"Cannot select any db records from ring buffer %s\n",
orbname);
/* These are the state saving routines. quit is set nonzero
whenever the program catches a signal. We call bury below when
this happens. exhume_state is a function because I expect
it could be used again */
exhume_rcode = exhume ( statefile, 0, 0, 0 );
exhume_state(exhume_rcode);
if ( orbresurrect ( orbin, &last_pktid, &last_pkttime ) == 0 )
elog_complain( 0, "resurrection successful: repositioned to pktid #%d\n", last_pktid ) ;
else
{
orbseek (orbin, ORBOLDEST);
last_pktid = orbtell(orbin);
elog_complain( 0, "resurrection unsuccessful\nStarting at beginning of current orb at packet id %d\n",last_pktid ) ;
}
/* The following is basically a trick to create a db pointer that
never references any tables. This is the preferred approach for
orbpkt2db records which utilize the scratch record of this database
pointer. The fact that we destroy the file this creates turns
out to be a feature of datascope we can exploit here. */
if (maketmpdb ("css3.0", &dbtmp, dbname) < 0) {
elog_complain(0, "maketmpdb() error.\n");
exit (1);
}
/* This little routine initilizes the null record for each table
used here. This was necessary because we assemble records in the
scratch record. This sets proper nulls in fields that are not
referenced by this program. */
if(initialize_scratch_records(dbtmp) == dbINVALID)
elog_complain(0,"Warning: errors initializing null records in tables. May generate invalid data in some fields\n");
/*
unlink (dbname);
*/
if( (orbout=orbopen(orbname,"w&")) < 0)
elog_die(0,"Cannot open ring buffer %s for writing\n",orbname);
/* This loop is broken only by an error. We call bury after each
event is processed saving the current packet id. This should
effectively skip events that cause orbgenloc to die for some
reason. */
while(1)
{
int return_code;
return_code = orb_arrivals_in(orbin, dbtmp, &hyp,
&last_pktid,rt_opts);
if(return_code)
{
if(return_code < 0)
elog_complain(0,"Error reading db records from orb\nCurrent event skipped\n");
else
elog_complain(0,"Sequencing error reading db packets from orbassoc.\nOne or more events were probably skipped\n");
continue;
}
if(bury())
elog_complain(0,
"bury failed writing statefile %s\n",statefile);
compute_location(o,rt_opts,arr_sta,arr_a,arr_phase,
pf,master_db, dbtmp, hyp, orbout);
/* when last_pktid is -1 orb_arrivals_in does not do
an orbseek, so we always reset it here */
last_pktid = -1;
/* This is the only appropriate place to release
this space. This block is malloced in orb_arrivals_in*/
free(hyp.assocs);
hyp.assocs = NULL;
}
}
