Louvre window problem

[Anonymous]

I tried put the louvre in the frame.
But it's exceed.

How can I mend this problem?

3D script


!Louvre window

GOSUB 100


FOR I=0+gs_frame_width TO B-gs_frame_width step Lspace
ADDy I
ROTx Lang
GOSUB 200
DEL 2
NEXT I

END: !-------------------------------------------------
100:
!Frame
MATERIAL gs_frame_mat
PEN gs_frame_pen
PRISM_ 5+5 , gs_frame_thk,
-A/2, 0, 15,
A/2, 0, 15,
A/2, B, 15,
-A/2, B, 15,
-A/2, 0, -1,
-A/2+gs_frame_width, 0+gs_frame_width, 15,
A/2-gs_frame_width, 0+gs_frame_width, 15,
A/2-gs_frame_width, B-gs_frame_width, 15,
-A/2+gs_frame_width, B-gs_frame_width, 15,
-A/2+gs_frame_width, 0+gs_frame_width, -1
RETURN

200:
!Louvre
MATERIAL Lmat
ADDx -A/2+gs_frame_width
ADDz gs_frame_thk/2-Lthk
BLOCK Lwid-gs_frame_width*2,Ldep,Lthk
DEL 2
RETURN

[Anonymous]

Try this:

off1=Lthk*SIN(Lang)
off2=Ldep*COS(Lang)
Create a new parameter nb ! number of louvres
Delete the parameter Lspace, declare it as a variable, function of nb
Lspace=(B-gs_frame_width*2-off1-off2)/(nb-1)

FOR I=off1+gs_frame_width TO B-gs_frame_width+0.001 step Lspace
It should work.

If you prefer to keep Lspace, declare nb as a variable, and calculate it with the INT() function.
You will have to calculate a new adjusted value for Lspace, Lspace2 for eg.

[Anonymous]

Thank, Olivier