fork of su-shapes