#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
#include "pssuby.h"
//--------//--------//--------//--------//--------//--------//--------//--------
void main()
{
double x1[4]={0.4,0.5,0.5,0.6},y1[4]={0.4,0.4,0.33,0.33},y2[4]={0.2,0.2,0.27,0.27};
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);plot(0.1,0.4,3);plot(0.3,0.4,2);plot(0.3,0.65,2);stroke();
newpath();linety(1);plot(0.33,0.65,3);plot(0.33,0.4,2);plot(x1[0],y1[0],2);curvton(x1,y1,4);plot(0.7,0.33,2);plot(0.7,0.6,2);stroke();
newpath();linety(1);plot(0.73,0.6,3);plot(0.73,0.33,2);plot(0.9,0.33,2);stroke();
newpath();linety(1);plot(0.1,0.2,3);plot(x1[0],y2[0],2);curvton(x1,y2,4);plot(0.9,0.27,2);stroke();

newpath();linety(1);plot(0.3,0.55,3);plot(0.33,0.55,2);stroke();
newpath();linety(1);plot(0.305,0.545,3);plot(0.325,0.545,2);stroke();
newpath();linety(1);plot(0.310,0.54,3);plot(0.32,0.54,2);stroke();

newpath();linety(1);plot(0.7,0.45,3);plot(0.73,0.45,2);stroke();
newpath();linety(1);plot(0.705,0.445,3);plot(0.725,0.445,2);stroke();
newpath();linety(1);plot(0.71,0.44,3);plot(0.72,0.44,2);stroke();

newpath();linety(2);plot(0.33,0.55,3);plot(0.60,0.55,2);stroke();
newpath();linety(2);plot(0.45,0.45,3);plot(0.7,0.45,2);stroke();

newpath();linety(1);linewidth(0.5);msmi(0.52,0.45,0.52,0.55,0.05);stroke();
text(0.55,0.48,"H");

setrgb(1.0,0.0,0.0);
circ(x1[0],y1[0],0.004);fill();
circ(x1[1],y1[1],0.004);fill();
circ(x1[2],y1[2],0.004);fill();
circ(x1[3],y1[3],0.004);fill();
setrgb(0.0,0.0,1.0);
circ(x1[0],y2[0],0.004);fill();
circ(x1[1],y2[1],0.004);fill();
circ(x1[2],y2[2],0.004);fill();
circ(x1[3],y2[3],0.004);fill();

newpath();linety(2);setrgb(1.0,0.0,0.0);plot(x1[0],y1[0],3);plot(x1[1],y1[1],2);plot(x1[2],y1[2],2);plot(x1[3],y1[3],2);stroke();
newpath();linety(2);setrgb(0.0,0.0,1.0);plot(x1[0],y2[0],3);plot(x1[1],y2[1],2);plot(x1[2],y2[2],2);plot(x1[3],y2[3],2);stroke();


fin();
}