1.8.2. DRAWING 2 AXES AND A CURVE WITH ANNOTATION ON THE POINTS

#include <phigure.h>

main()
{
	Pfloat	zoom=0.8;
	Pint	ws_id=1, view_ind=1, 
		scene_id=10, segment_id=11, x_axis_id=12, y_axis_id=13;
	Ppoint_list segments;
	static	Ptext_align annot_align = {PHOR_CTR,PVERT_BASE};

	static	Plimit viewport  = {0.,1.,0.,1.}, domain={10.,20.,10.,20.};
	static	Ppoint points[5] = { {11.,12.}, {14.,14.}, {16.,13.},
	{18.,16.}, {19.,15.} };
	static	Ppoint center_view = {0.5,0.5};
	static	Pvec   offset = {0.,0.02};
	static	Ppoint3 axis_orig={10.,10.,0.0};

	static	Pint struct_ids[3];
	static	Pint_list struct_id_list = {3,struct_ids};

/* open PHIGURE and an X-Window type workstation (8887) */
	topen_phigure (PDEF_ERR_FILE);
	topen_ws (ws_id,PDEF_ERR_FILE,8887);

/* define 2D working domain */
	tdomain(&domain);

/* build a structure with PHIGS */
	popen_struct (segment_id);
	segments.num_points = 5;
	segments.points = points;
	ppolyline (&segments);
	pset_anno_align (&annot_align);
	panno_text_rel (&points[0],&offset,"p0");
	panno_text_rel (&points[1],&offset,"p1");
	panno_text_rel (&points[2],&offset,"p2");
	panno_text_rel (&points[3],&offset,"p3");
	panno_text_rel (&points[4],&offset,"p4");
	pclose_struct ();

/* build two axes */
	txy_linear_axis (x_axis_id, &axis_orig, 20., 0.0);
	tyx_linear_axis (y_axis_id, &axis_orig, 20., 0.0);

/* define scene */
	struct_ids[0] = segment_id;
	struct_ids[1] = x_axis_id;
	struct_ids[2] = y_axis_id;
	tscene (scene_id,&struct_id_list,view_ind);

/* define centered 2D view */
	tview2_center (ws_id,view_ind,&center_view,zoom,&viewport);

/* plot on the workstation */
	ppost_struct(ws_id,scene_id,1.);
	predraw_all_structs(ws_id,PFLAG_ALWAYS);

/* close workstation and PHIGURE */
	tclose_ws (ws_id);
	tclose_phigure ();
}