;  *********************************************************************
;  *                        Louvered Shutters                          *
;  *                          by Greg Larson                           *
;  *********************************************************************
;
; General CADD Pro v6.1.92 Windows  (503) 364-8577     homedezyne@aol.com
/xmd,++,/pmt,1,'Enter window width: ',#,/vrl,5,~;
/pmt,2,'Enter window height: ',#,/vrl,8,~;
/pmt,3,'Enter shutter width: ',#,/vrl,11,~;
/vrl,6,$r(11)-2,/vrl,7,$r(11)-4;            set horizontal line lengths
/vrl,9,$r(8)-2,/vrl,10,($r(8)-6)/2;           set vertical line lengths
mo,lc,1,lt,0;
re,tk,$x(2),$y(2),mr,$r(5)/2+1,0,0,0-$r(8),pu,$r(11),$r(8);     draw outer rectangle
re,tk,-2,-2,pu,0-$r(7),0-$r(10);          draw inner rectangle 1
re,tk,0,-2,pu,$r(7),0-$r(10);          draw inner rectangle 2
/vin,10,($r(10)/1)+1,/vrl,13,$r(10)/$i(10);  calc vert grid
/vin,7,($r(7)/1)+1,/vrl,12,$r(7)/$i(7);      calc horiz grid
oc,tk,-1,0,pu,0,0,0,$R(13),$i(10)-1;       copy horiz grid
oc,tk,0,$r(10)+2,pu,0,0,0,$R(13),$i(10)-1;       copy horiz grid
mo,lc,1,lt,0;
re,tk,$x(2),$y(2),mr,0-($r(5)/2+1+$R(11)),0,0,0-$r(8),pu,$r(11),$r(8); draw outer rectangle
re,tk,-2,-2,pu,0-$r(7),0-$r(10);          draw inner rectangle 1
re,tk,0,-2,pu,$r(7),0-$r(10);          draw inner rectangle 2
/vin,10,($r(10)/1)+1,/vrl,13,$r(10)/$i(10);  calc vert grid
/vin,7,($r(7)/1)+1,/vrl,12,$r(7)/$i(7);      calc horiz grid
oc,tk,-1,0,pu,0,0,0,$R(13),$i(10)-1;       copy horiz grid
oc,tk,0,$r(10)+2,pu,0,0,0,$R(13),$i(10)-1;       copy horiz grid
/msp,--,/xmd,--,#;