We extended Mondrian with patterns
| view | view := Mondrian.ViewRenderer new. view rectangleShape. view shape fillColor: CodeFoo.Color red. view shape patternColor: CodeFoo.Color black. view shape patternName: [ :each ]. view shape width: 120. view shape height: 80. view nodes: #(gray diagonal inverseDiagonal fancy) . view open.
cheers, AA & Hani