2020-02-14 12:12 PM
xb = 0.25 yb = 0.12 cb = 0.065 sb = 0.01 movex = xb+sb lenA = (A/xb+sb) - fra(A/xb+sb)+1 if fra(B/xb+sb)<=0.5 then lenH = (B/xb+sb) - fra(B/xb+sb) else lenH = (B/xb+sb) - fra(B/xb+sb)+1 endif gosub "brick" del 1 addx movex gosub "brick" end "brick": movez = cb+sb i= movez ii=0 do if fra(ii/2)>0 then addz i brick xb,yb,cb del top else add xb/2,0,i brick xb,yb,cb del top endif i = i+movez ii=ii+1 while i<=lenH return
Solved! Go to Solution.
2020-02-14 10:31 PM
2020-02-14 07:09 PM
_rWallLength = 0.00 !<-- to initialise your variables _rWallHeight = 0.00 do addz _rWallHeight do add _rWallLength brick rBrickLength, rBrickWidth, rBrickHeight _rWallLength = _rWallLength + _rBrickStepLength while (_rWallLength + _rBrickStepLength ) < rWallLength _rWallLength = 0.00 _rWallHeight = _rWallHeight + _rBrickStepHeight while (_rWallHeight + _rBrickStepHeight ) < rWallHeightYour bricks will be stacked on over another in a perfect stacked bond
2020-02-14 07:27 PM
_iXRowIndex = 1 _iZRowIndex = 1 do if ((_iXRowIndex mod (2)) > 0) then addz _rWallHeight if ((_iXRowIndex mod (2)) < 1) then addz _rHalfBrickLength, 0.00, _rWallHeight do add _rWallLength brick rBrickLength, rBrickWidth, rBrickHeight _rWallLength = _rWallLength + _rBrickStepLength while (_rWallLength + _rBrickStepLength ) < rWallLength _rWallLength = 0.00 _iRowIndex = _iRowIndex + 1 _rWallHeight = _rWallHeight + _rBrickStepHeight if ((_iXRowIndex mod (2)) < 1) then addx -_rHalfBrickLength while (_rWallHeight + _rBrickStepHeight ) < rWallHeight
2020-02-14 08:47 PM
2020-02-14 10:31 PM