void
*user_objs(void) /* return ptr. to object list which then will get */
/* converted to an obj. prc. object list. */
{
BITMOBJ *line1;
BRAOBJ *tree;
short i, y1, y2;
short c;
line1 = c_line(42, SCRNTOP + 28, 0); /* build first line */
tree = bt((BRAOBJ *) NULL, SCRNTOP + 28, 16, line1);
/*
* build the other 24 lines
*/
for (i = 0, c = 40, y1 = 16, y2 = 192; i < 24; i++, y1 += 16, y2 +=16) {
line1 = c_line(42, SCRNTOP + 28 + y1, c);
tree = bt((BRAOBJ *) tree, SCRNTOP + 28 + y1, 16, line1);
c += 40;
c = (c > 128) ? 0 : c;
}
return (void *) tree;
}
void
*user_objs(void)
{
BITMOBJ *line1, *line2;
BRAOBJ *tree;
short i, y1, y2;
short c;
#if 0
tchar1 = (char *) PHalloc(128L, 16L);
bldchr(65, tchar1, 0xffff);
chr_obj.data = (unsigned long) tchar1;
return &bra1_obj;
#endif
#if 0
scrn_obj.data = (unsigned long) v_bas_ad;
bird1_obj.data = (unsigned long) bird1;
lotus_obj.data = (unsigned long) LOTUS;
lotus_obj.link = (unsigned long) c_bras(SCRNTOP + 28);
#endif
/*
return (void *) c_bras(SCRNTOP + 28);
*/
line1 = c_line(42, SCRNTOP + 28, 0);
tree = bt((BRAOBJ *) NULL, SCRNTOP + 28, 16, line1);
for (i = 0, c = 40, y1 = 16, y2 = 192; i < 25; i++, y1 += 16, y2 +=16) {
line1 = c_line(42, SCRNTOP + 28 + y1, c);
tree = bt((BRAOBJ *) tree, SCRNTOP + 28 + y1, 16, line1);
/*
line2 = c_line(42, SCRNTOP+ 28 + y2, c);
tree = bt((BRAOBJ *) tree, SCRNTOP + 28 + y2, 16, line2);
*/
c += 40;
c = (c > 128) ? 0 : c;
}
return (void *) tree;
#if 0
line1 = c_line(42, SCRNTOP + 28, 1);
line2 = c_line(42, SCRNTOP + 28 + 12, 41);
bra_obj.next = (unsigned long) line1;
bra_obj.link = (unsigned long) line2;
#endif
#if 0
return &scrn_obj;
#endif
}
/*
* Draw a background.
*/
void c_bkgft1(float ypos, char *label, float yb, float yt) {
c_set(0.,1.,0.,1.,0.,1.,0.,1.,1);
/*
* Plot the curve label using font 21 (Helvetica).
*/
c_pcseti("fn",21);
c_plchhq(0.17,ypos-0.2,label,0.03,0.,-1.0);
/*
* Draw a horizontal line at Y=0. using color index 2.
*/
c_set(0.13,0.93,ypos-0.28,ypos,0.0,1., yb, yt, 1);
gset_line_colr_ind(2);
c_line(0.,0.,1.,0.);
c_sflush();
gset_line_colr_ind(1);
/*
* Set Gridal parameters.
*
*
* Set lty to indicate that the Plotchar routine PLCHHQ should be used.
*/
c_gaseti("lty",1);
c_pcseti("fn",21);
/*
* Size and format for X axis labels.
*/
c_gasetr("xls",0.02);
c_gasetc("xlf","(f3.1)");
/*
* Size and format for X axis labels.
*/
c_gasetr("yls",0.02);
c_gasetc("ylf","(f5.1)");
/*
* Length of major tick marks for the X and Y axes.
*/
c_gasetr("xmj",0.02);
c_gasetr("ymj",0.02);
}
void c_bkgft4(float xleft, float xright, float ybot, float ytop,
float ypos_bot, float ypos_top, char *label, float lab_size,
float lab_posx, float lab_posy, int zero_line) {
c_set(0.,1.,0.,1.,0.,1.,0.,1.,1);
c_pcseti("fn",21);
c_plchhq(lab_posx,lab_posy,label,lab_size,0.,0.0);
c_set(0.17,0.87,ypos_bot,ypos_top,xleft,xright, ybot, ytop, 1);
if (zero_line != 0) {
gset_line_colr_ind(2);
c_line(xleft, 0., xright, 0.);
c_sflush();
gset_line_colr_ind(1);
}
c_gaseti("lty",1);
c_pcseti("fn",21);
c_gasetr("xls",0.02);
c_gasetc("xlf","(f4.1)");
c_gasetr("yls",0.02);
c_gasetc("ylf","(f5.1)");
c_gasetr("xmj",0.02);
c_gasetr("ymj",0.02);
}
