#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
#include "pssuby.h"
//--------//--------//--------//--------//--------//--------//--------//--------
void main()
{
init();
viewport(0.2,0.2,0.8,0.8);xyworld(0.0,0.0,1.0,1.0);
newpath();linety(2);plot(0.0,0.0,3);plot(0.0,1.0,2);plot(1.0,1.0,2);plot(1.0,0.0,2);closepath();stroke();

newpath();linety(1);walll(0.1,0.2,0.1,0.35,15);stroke();
newpath();linety(2);rect(0.1,0.25,0.9,0.3);stroke();
newpath();linety(1);plot(0.1,0.3,3);plot(0.11,0.3,2);stroke();
newpath();linety(1);plot(0.1,0.25,3);plot(0.11,0.25,2);stroke();
newpath();linety(1);
spline(0.11,0.3,0.37,0.285,0.64,0.24,0.9,0.15,-1);
spline(0.11,0.3,0.37,0.285,0.64,0.24,0.9,0.15,0);
spline(0.11,0.3,0.37,0.285,0.64,0.24,0.9,0.15,1);
stroke();
newpath();linety(1);plot(0.9,0.15,3);plot(0.883,0.1075,2);stroke();
newpath();linety(1);
spline(0.11,0.25,0.37,0.235,0.64,0.19,0.883,0.1075,-1);
spline(0.11,0.25,0.37,0.235,0.64,0.19,0.883,0.1075,0);
spline(0.11,0.25,0.37,0.235,0.64,0.19,0.883,0.1075,1);
stroke();
newpath();arrowa(0.9,0.4,0.9,0.15,0.01);stroke();
text(0.89,0.42,"P");

newpath();text(0.11,0.3+0.02,"a1");stroke();
newpath();text(0.37,0.285+0.02,"a2");stroke();
newpath();text(0.64,0.24+0.02,"a3");stroke();
newpath();text(0.9+0.02,0.15+0.02,"a4");stroke();

newpath();text(0.11,0.25-0.05,"b1");stroke();
newpath();text(0.37,0.235-0.05,"b2");stroke();
newpath();text(0.64,0.19-0.05,"b3");stroke();
newpath();text(0.883,0.1075-0.05,"b4");stroke();

setrgb(1.0,0.0,0.0);
newpath();circ(0.11,0.3,0.005);stroke();
newpath();circ(0.37,0.285,0.005);stroke();
newpath();circ(0.64,0.24,0.005);stroke();
newpath();circ(0.9,0.15,0.005);stroke();

setrgb(0.0,0.0,1.0);
newpath();circ(0.11,0.25,0.005);stroke();
newpath();circ(0.37,0.235,0.005);stroke();
newpath();circ(0.64,0.19,0.005);stroke();
newpath();circ(0.883,0.1075,0.005);stroke();

fin();
}