Clean up geometries

[tinchodias]

• implement Histogram
• Remove other unused geometries

[tinchodias]

Demo:

Screen.Recording.2025-05-27.at.16.00.03.mov

ramp := (0 to: 1 by: 0.15).
ramp := ramp ** 2.
orientations := #(beHorizontal beHorizontalInverted beVertical beVerticalInverted).
colors := Color wheel: orientations size.

width := 150.
height := 100.
gap := 10.
s := BlSpace new.
s extent: gap + (orientations size * (width + gap)) @ (50 + height).
s root layout: (BlLinearLayout new cellSpacing: gap; yourself).

orientations withIndexDo: [ :each :index |
		| cell g |
		cell := BlElement new.
		cell clipChildren: false.
		cell layout: BlLinearLayout vertical.
		cell border: (BlBorder paint: Color black width: 0.5).
		cell margin: (BlInsets vertical: gap).
		cell constraintsDo: [:c |
			c horizontal fitContent.
			c vertical fitContent ].
		
		g := BlHistogramGeometry new.
		g values: ramp.
		g perform: each.

		cell addChild: (BlElement new
			border: (BlBorder paint: Color black width: 1);
			width: width;
			height: height;
			background: (colors at: index);
			geometry: g;
			addEventHandlerOn: BlMouseEnterEvent do: [ :evt | evt target opacity: 0.5 ];
			addEventHandlerOn: BlMouseLeaveEvent do: [ :evt | evt target opacity: 1.0 ];
			yourself).

		cell addChild: (BlTextElement new
			text: each asString asRopedText;
			editorMeasurement;
			constraintsDo: [:c | c linear horizontal alignCenter ];
			yourself).

		s root addChild: cell ].

"s root exportAsPNG."
s show.