	real x(99),y(99)

	call pgbegin(0,"?",1,1)
	call pgsci(0)
	call pgenv(0.,9.,0.,16.5,1,1)
	call pgsci(1)

	call pgsls(2)
	x(1)=0.21
	x(2)=3.88
	y(1)=6.9
	y(2)=y(1)
	call pgline(2,x,y)

	call pgslw(3)
	call pgsls(1)


	x(1)=0.
        y(1)=0.
        x(2)=x(1)
        y(2)=15.48
        x(3)=0.21
        y(3)=y(2)
        x(4)=x(3)
        y(4)=0.
        x(5)=x(1)
        y(5)=y(1)
	call pgline(5,x,y)

        x(1)=0.21
        y(1)=0.12
        x(2)=2.85
        y(2)=y(1)
        x(3)=x(2)
        y(3)=1.0
        x(4)=7.42
	y(4)=y(3)
        x(5)=x(4)
        y(5)=7.0
	x(6)=6.33
	y(6)=y(5)
	x(7)=x(6)
	y(7)=7.42
	x(8)=6.12
	y(8)=y(7)
	x(9)=x(8)
	y(9)=7.0
	x(10)=3.89
	y(10)=y(9)
	x(11)=x(10)
	y(11)=6.2
	x(12)=4.1
	y(12)=y(11)
	x(13)=x(12)
	y(13)=6.8
	x(14)=7.21
	y(14)=y(13)
	x(15)=x(14)
	y(15)=1.21
	x(16)=6.8
	y(16)=y(15)
	x(17)=x(16)
	y(17)=1.1
	x(18)=5.25
	y(18)=y(17)
	x(19)=x(18)
	y(19)=1.21
	x(20)=4.1
        y(20)=y(19)
	x(21)=x(20)
	y(21)=5.45
	x(22)=3.89
	y(22)=y(21)
	x(23)=x(22)
	y(23)=1.72
	x(24)=2.43
	y(24)=y(23)
	x(25)=x(24)
	y(25)=1.51
	x(26)=2.72
	y(26)=y(25)
	x(27)=x(26)
	y(27)=0.25
	x(28)=x(1)
	y(28)=y(27)
	call pgline(28,x,y)

	x(1)=2.80
	y(1)=1.1
	x(2)=3.88
	y(2)=y(1)
	x(3)=x(2)
	y(3)=1.51
	x(4)=x(1)
	y(4)=y(3)
	x(5)=x(1)
	y(5)=y(1)
	call pgline(5,x,y)

	x(1)=0.21
	y(1)=1.51
	x(2)=0.45
	y(2)=y(1)
	x(3)=x(2)
	y(3)=1.72
	x(4)=x(1)
	y(4)=y(3)
	call pgline(4,x,y)

	x(1)=0.45
	y(1)=1.62
	x(2)=2.43
	y(2)=y(1)
	call pgline(2,x,y)

	x(1)=5.02
	y(1)=6.8
	x(2)=x(1)
	y(2)=6.2
	x(3)=5.1
	y(3)=y(2)
	x(4)=x(3)
	y(4)=y(1)
	call pgline(4,x,y)

	x(1)=7.21
	y(1)=4.8
	x(2)=5.02
	y(2)=y(1)
	x(3)=x(2)
	y(3)=5.55
	x(4)=5.1
	y(4)=y(3)
	x(5)=x(4)
	y(5)=4.88
	x(6)=x(1)
	y(6)=y(5)
	call pgline(6,x,y)

	x(1)=0.21
	y(1)=8.55
	x(2)=2.72
	y(2)=y(1)
	x(3)=x(2)
	y(3)=9.35
	x(4)=2.51
	y(4)=y(3)
	x(5)=x(4)
	y(5)=8.76
	x(6)=x(1)
	y(6)=y(5)
	call pgline(6,x,y)
	
	x(1)=3.65
	y(1)=8.55
	x(2)=4.5
	y(2)=y(1)
	x(3)=x(2)
	y(3)=8.76
	x(4)=3.73
	y(4)=y(3)
	x(5)=x(4)
	y(5)=12.85
	x(6)=5.27
	y(6)=y(5)
	x(7)=x(6)
	y(7)=16.08
	x(8)=4.52
	y(8)=y(7)
	x(9)=x(8)
	y(9)=15.87
	x(10)=5.06
	y(10)=y(9)
	x(11)=x(10)
	y(11)=13.06
	x(12)=x(1)
	y(12)=y(11)
	x(13)=x(1)
	y(13)=y(1)
	call pgline(13,x,y)

	x(1)=6.06
	y(1)=11.8
	x(2)=6.35
	y(2)=y(1)
	x(3)=x(2)
	y(3)=8.16
	x(4)=6.14
	y(4)=y(3)
	x(5)=x(4)
	y(5)=8.55
	x(6)=5.15
	y(6)=y(5)
	x(7)=x(6)
	y(7)=8.76
	x(8)=6.14
	y(8)=y(7)
	x(9)=x(8)
	y(9)=11.59
	x(10)=x(1)
	y(10)=y(9)
	x(11)=x(1)
	y(11)=y(1)
	call pgline(11,x,y)

	x(1)=5.27
	y(1)=13.0
	x(2)=6.28
	y(2)=y(1)
	x(3)=x(2)
	y(3)=11.8
	call pgline(3,x,y)
	x(1)=5.27
	y(1)=12.92
	x(2)=6.20
	y(2)=y(1)
	x(3)=x(2)
	y(3)=11.8
	call pgline(3,x,y)
	x(1)=6.06
	y(1)=11.8
	x(2)=5.32
	y(2)=y(1)
	x(3)=x(2)
	y(3)=11.74
	x(4)=x(1)
	y(4)=y(3)
	call pgline(4,x,y)	

	x(1)=3.73
	y(1)=11.8
	x(2)=4.62
	y(2)=y(1)
	x(3)=x(2)
	y(3)=11.74
	x(4)=x(1)
	y(4)=y(3)
	call pgline(4,x,y)

	x(1)=3.73
	y(1)=11.42
	x(2)=4.2
	y(2)=y(1)
	x(3)=x(2)
	y(3)=11.74
	call pgline(3,x,y)
	x(1)=3.73
	y(1)=11.48
	x(2)=4.14
	y(2)=y(1)
	x(3)=x(2)
	y(3)=11.74
	call pgline(3,x,y)

	x(1)=5.68
	y(1)=8.78
	x(2)=x(1)
	y(2)=9.04
	x(3)=6.12
	y(3)=y(2)
	call pgline(3,x,y)
	x(1)=5.72
	y(1)=8.78
	x(2)=x(1)
	y(2)=9.00
	x(3)=6.12
	y(3)=y(2)
	call pgline(3,x,y)

	x(1)=1.98
	y(1)=14.81
	x(2)=2.51
	y(2)=y(1)
	x(3)=x(2)
	y(3)=16.08
	x(4)=3.26
	y(4)=y(3)
	x(5)=x(4)
	y(5)=15.87
	x(6)=2.72
	y(6)=y(5)
	x(7)=x(6)
	y(7)=11.7
	x(8)=2.51
	y(8)=y(7)
	x(9)=x(8)
	y(9)=14.6
	x(10)=x(1)
	y(10)=y(9)
	x(11)=x(1)
	y(11)=y(1)
	call pgline(11,x,y)


	x(1)=0.21
	y(1)=14.81
	x(2)=0.71
	y(2)=y(1)
	x(3)=x(2)
	y(3)=14.6
	x(4)=x(1)
	y(4)=y(3)
	call pgline(4,x,y)

	x(1)=0.21
	y(1)=15.32
	x(2)=2.51
	y(2)=y(1)
	call pgline(2,x,y)


	x(1)=0.71
	y(1)=14.81
	x(2)=2.01
	y(2)=y(1)
	call pgline(2,x,y)
	x(1)=0.71
	y(1)=14.71
	x(2)=2.01
	y(2)=y(1)
	call pgline(2,x,y)


	x(1)=3.25
	x(2)=4.51
	y(1)=16.08
	y(2)=y(1)
	call pgline(2,x,y)


	x(1)=3.25
	x(2)=4.51
	y(1)=15.98
	y(2)=y(1)
	call pgline(2,x,y)


	x(1)=2.51
	x(2)=x(1)
	x(3)=2.72
	x(4)=x(3)
	x(5)=x(1)
	y(1)=10.0
	y(2)=10.92
	y(3)=y(2)
	y(4)=y(1)
	y(5)=y(1)
	call pgline(5,x,y)


	x(1)=0.21
	x(2)=2.51
	y(1)=10.72
	y(2)=y(1)
	call pgline(2,x,y)


	x(1)=0.21
	x(2)=2.51
	y(1)=10.82
	y(2)=y(1)
	call pgline(2,x,y)

	x(1)=1.7
	y(1)=10.72
	x(2)=x(1)
	y(2)=10.05
	x(3)=1.76
	y(3)=y(2)
	x(4)=x(3)
	y(4)=y(1)
	call pgline(4,x,y)


	x(1)=1.7
	y(1)=8.8
	x(2)=x(1)
	y(2)=9.4
	x(3)=1.76
	y(3)=y(2)
	x(4)=x(3)
	y(4)=y(1)
	call pgline(4,x,y)

	x(1)=3.8
	x(2)=4.25
	x(3)=x(2)
	x(4)=x(1)
	x(5)=x(1)
	y(1)=12.52
	y(2)=y(1)
	y(3)=12.75
	y(4)=y(3)
	y(5)=y(1)
	call pgline(5,x,y)

	x(1)=2.72
	x(2)=2.81
	x(3)=x(2)
	x(4)=x(1)
	y(1)=12.06
	y(2)=y(1)
	y(3)=11.97
	y(4)=y(3)
	call pgline(4,x,y)


	x(1)=3.58
	x(2)=3.49
	x(3)=x(2)
	x(4)=x(1)
	call pgline(4,x,y)



	call pgsch(0.6)
	call pgtext(0.5,0.9,"4.50")
	 call pgtext(0.8,0.6,"3.0x1.5")
	call pgtext(0.5,4.,"26.68")
	 call pgtext(0.8,3.7,"4.38x6.09")
	call pgtext(1.2,9.7,"6.16")
	 call pgtext(1.5,9.4,"2.76x2.23")
	call pgtext(0.5,13.,"12.25")
	 call pgtext(0.8,12.7,"2.75x4.44")
	call pgtext(3.3,14.,"10.25")
	 call pgtext(3.6,13.7,"2.76x3.36")
	call pgtext(4.5,12.2,"3.32")
	 call pgtext(4.7,11.9,"2.81x1.18")
	call pgtext(4.3,9.9,"9.39")
	 call pgtext(4.6,9.6,"2.77x3.39")
	call pgtext(3.0,7.6,"13.45")
	 call pgtext(3.3,7.3,"6.92x1.92")
	call pgtext(2.8,10.0,"4.43")
	 call pgtext(2.8,9.7,"1.1x4.4")
	call pgtext(4.1,5.9,"2.63")
	 call pgtext(4.1,5.6,"1.07x2.46")
	call pgtext(5.7,5.9,"5.36")
	 call pgtext(6.0,5.6,"2.44x2.20")
	call pgtext(5.0,2.9,"15.46")
         CALL PGTEXT(5.3,2.6,"3.66X4.22")

	call pgend
	end
        
