Create PatternLib.tcl