path := FileLocator temp.
allFilesUnderPath := path asFileReference allChildren.
b := RTMondrian new.
 
b shape circle
		color: Color gray trans;
		if: [ :aFile | aFile path basename endsWith: '.png' ] color: Color red trans.
	b nodes: allFilesUnderPath.
	b edges connectFrom: #parent.
	b normalizer
				normalizeSize: #size min: 10 max: 150 using: #sqrt.
	b layout cluster.
	b