/* MACHINE-GENERATED ! */

frame top {
	loop i = 0, (fpy+fny)/FT-1

	__0: vec @(-B/2, 0mm)
	__1: vec @(B/2, 0mm)
	__2: vec __0(0mm, HL/2)
	__4: vec __0(0mm, -HL/2)
	__5: vec .(-HW/2, 0mm)
	__10: vec .(-CB, -CL)
	__6: vec __1(0mm, HL/2)
	__7: vec .(HW/2, 0mm)
	__11: vec .(CF, CR)
	rect __10 . w
	__8: vec __1(0mm, -HL/2)
	__9: vec .(-HW/2, 0mm)
	rect . __7 w
	__3: vec __2(HW/2, 0mm)
	rect __5 . w
	__12: vec __2(-HW/2, 0mm)
	__13: vec .(-CB, CR)
	__14: vec __1(FB, 0mm)
	__15: vec .(0mm, -fny)
	__20: vec .(0mm, (i+0.5)*FT)
	__21: vec .(FT, FT)
	line __20 . w/2
	__16: vec __14(FT, 0mm)
	__17: vec .(0mm, fpy)
	__18: vec __14(0mm, fpy)
	line . __15 w
	__19: vec __16(0mm, -fny)
	line __17 . w
}

package "xbrd"
unit mm

table
    { B, CB, CF, CL, CR }
    { 45mm, 25mm, 10mm, 5mm, 15mm }

table
    { HL, HW }
    { 9*100mil, 2*100mil }

table
    { FB, FT }
    { 15mm, 3mm }

table
    { fpy, fny }
    { 30mm, 20mm }

table
    { w, s }
    { 0.5mm, 5mm }

frame top @
measy "CL = " top.__10 >> top.__5 s
measx "CF = " top.__7 >> top.__11 CR+s
measx "B = " top.__0 >> top.__1 HL/2+CR+2*s
measy top.__10 >> top.__0 2*s
measy "HL = " top.__9 >> top.__6 s
measx top.__6 >> top.__11 CR+2*s
measx top.__10 >> top.__11 HL+CL+CR+3*s
measy top.__10 >> top.__11 3*s
measy "CR = " top.__12 >> top.__13 CB+s
measy top.__0 >> top.__13 CB+HW/2+2*s
measx "CB = " top.__13 >> top.__12 s
measx top.__13 >> top.__2 2*s
measx "HW = " top.__5 >> top.__3 -s
measx "FW = " top.__15 >> top.__19 -2*s
measx "FB = " top.__1 >> top.__14 -fny-2*s
measx top.__1 >> top.__16 -fny-3*s
measx top.__11 >> top.__15 -CR-HL/2-fny-s
measx top.__3 >> top.__9 CR+s