Louvre window problem
Anonymous
Not applicable
Options
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
2004-08-11
12:11 PM
- last edited on
2023-05-24
12:50 PM
by
Rubia Torres
2004-08-11
12:11 PM
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
2 REPLIES 2
Anonymous
Not applicable
Options
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
2004-08-11 04:46 PM
2004-08-11
04:46 PM
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.
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
Not applicable
Options
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
2004-08-20 10:24 AM
2004-08-20
10:24 AM
Thank, Olivier
