Floating bar

Proc Graph0() : Graph
	
	make/t/o categoryWave={"A","B","C","D","E","F","G"}
	make/o lower={510,620,740,670,790,790,800}
	make/o upper={650,770,790,940,900,900,1000}
	upper -= lower
	
	PauseUpdate; Silent 1		// building window...
	Display /W=(35,44,346,350)/VERT upper,lower vs categoryWave
	ModifyGraph gFont="Helvetica Neue",width=255.118,height=255.118
	ModifyGraph rgb(upper)=(0,0,65535)
	ModifyGraph hbFill(upper)=2
	ModifyGraph toMode(upper)=2
	ModifyGraph hideTrace(lower)=1
	ModifyGraph tick(left)=3,tick(bottom)=2
	ModifyGraph mirror=2
	ModifyGraph nticks(bottom)=10
	ModifyGraph standoff=0
	ModifyGraph catGap(left)=0.6
	ModifyGraph manTick(bottom)={500,250,0,0},manMinor(bottom)={1,0}
	SetAxis/A/R left
	SetAxis bottom 400,1020
EndMacro