#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);plot(0.2,0.5,3);plot(0.48,0.5,2);stroke();
newpath();linety(1);spline(0.48,0.5,0.6,0.48,0.7,0.4,0.85,0.2,-1);
                    spline(0.48,0.5,0.6,0.48,0.7,0.4,0.85,0.2,0);
                    spline(0.48,0.5,0.6,0.48,0.7,0.4,0.85,0.2,1);

                    spline(0.48,0.3,0.52,0.305,0.6,0.28,0.8,0.15,-1);
                    spline(0.48,0.3,0.52,0.305,0.6,0.28,0.8,0.15,0);
                    spline(0.48,0.3,0.52,0.305,0.6,0.28,0.8,0.15,1);

                    wallr(0.2,0.1,0.48,0.1,28);
                    walll(0.48,0.3,0.48,0.1,20);
                    wallr(0.48,0.3,0.52,0.3,4);
                    walll(0.52,0.1,0.52,0.3,20);
                    wallr(0.52,0.1,0.8,0.1,28);stroke();

newpath();linety(2);plot(0.48,0.5,3);plot(0.9,0.5,2);stroke();
newpath();linety(2);plot(0.52,0.3,3);plot(0.9,0.3,2);stroke();

newpath();linety(1);plot(0.23,0.48,3);plot(0.4,0.48,2);stroke();
newpath();linety(1);plot(0.24,0.47,3);plot(0.39,0.47,2);stroke();
newpath();linety(1);plot(0.25,0.46,3);plot(0.38,0.46,2);stroke();


newpath();linety(1);msmi(0.85,0.3,0.85,0.5,0.07);stroke();
text(0.83,0.383,"H");

setrgb(1.0,0.0,0.0);
circ(0.48,0.5,0.004);stroke();
circ(0.6,0.48,0.004);stroke();
circ(0.7,0.4,0.004);stroke();
circ(0.85,0.2,0.004);stroke();
setrgb(0.0,0.0,1.0);
circ(0.48,0.3,0.004);stroke();
circ(0.52,0.305,0.004);stroke();
circ(0.6,0.28,0.004);stroke();
circ(0.8,0.15,0.004);stroke();

fin();
}