I wanted to make it parametric, so I ported it to SCAD.Please modify and use it as needed by each of you.