rd	1	#
		da $1
                read {N 1 L1bx 2 L1by 3 L1bz 4}
                set lN=lg(N)
                set lbx=lg(L1bx)
                set lby=lg(L1by)
                set lbz=lg(L1bz)
pl      1  	#
		define TeX_strings 1
                #
                expand 1.5
                lweight 3
	        #
	        rd $1
                limits lN -9 -6
                ticksize -1 0 -1 0                
                location $($gx1 + 2000) $($gx2 + 600) $gy1 $gy2
                box
                ltype 0
                # L1_bx
                connect lN lbx
                ptype 3 3
                points lN lbx
                # L1_by
                connect lN lby
                ptype 40 3
                points lN lby
                # L1_bz
                connect lN lbz
                ptype 4 3
                points lN lbz
                #
                xla N
                yla L1
                location $($gx1 - 2000) $($gx2 - 600) $gy1 $gy2
pla      1      #
                define TeX_strings 1
                #
                expand 1.5
                lweight 3
                #
                rd $1
                limits lN -9 -6
                ticksize -1 0 -1 0
                location $($gx1 + 2000) $($gx2 + 600) $gy1 $gy2
                box
                ltype 1
                # L1_bx
                connect lN lbx
                ptype 3 3
                points lN lbx
                # L1_by
                connect lN lby
                ltype 0 
                ptype 40 3
                points lN lby
                # L1_bz
                ltype 1
                connect lN lbz
                ptype 4 3
                points lN lbz
                #
                location $($gx1 - 2000) $($gx2 - 600) $gy1 $gy2
                

