Put the grill in shelves. Please suggest.

[Anonymous]

Hello
I use GOSUB and Loops control grill able put in all shelves. But it don't work. How I put the grill in shelves ?

Thank,

[Anonymous]

Shelf picture

[Frank Beister]

You have missed to include the grid into the first loop:

GOSUB 1000     !Frame


FOR j=off1-frame_thk  TO zzyzx-0.04 step Lshelf
ADDz j+frame_thk*2

GOSUB 1500     !Sheft


FOR I=off1+frame_thk*2 TO A-frame_thk step Lspace
ADDx I+frame_thk/2 
	
MULz -1
ROTx 20
ADDy 0.29
ADDz -0.29
Addy frame_thk*2
Resol 18
CYLIND 0.10,0.005
Rotz -90
Addz 0.10
ELBOW 0.01,70,0.005
Addx 0.01
Roty 70
Addx -0.01
CYLIND 0.28,0.005
DEL 11
NEXT I

Del 1
NEXT j

This works.

[Anonymous]

Thank for help.