id=0
ROTX 90

SECT_FACESTYLE fcs_crr
GOSUB "carrier"
GOSUB "ext_end"

SECT_FACESTYLE fcs_stp
GOSUB "steps"
GOSUB "step_end"
END

"carrier":
IF unn THEN
GROUP "carrier"
ENDIF
PRISM 5 , wdt ,
0 , -thk ,
0 , 0 ,
stp*stps , rsr*stps ,
stp*stps , rsr*stps - thk ,
0 , -thk
IF unn THEN
GROUP_END
!GROUP_PLACE "carrier"
ENDIF

IF unn THEN
GROUP "carrier_steps"
ENDIF
FOR n = 1 TO stps
GOSUB "step_carrier"
TRANS stp , rsr , 0
NEXT
RESTORE stps
IF unn THEN
GROUP_END
!GROUP_PLACE "carrier_steps"
ENDIF

IF unn THEN
res=""
res=GROUP_UNION("carrier_steps","carrier")
GROUP_PLACE res
ENDIF

RETURN

"ext_end":
ang = ATAN ( rsr / stp )
dx = ( thk - end_thk ) / TAN ( ang )
dy = ( thk - end_thk )

TRANS stps * stp,stps * rsr,0

HANDLE 0,0,0,id,"ext_end",1
HANDLE ext_end,0,0,id,"ext_end",2
HANDLE -1,0,0,id,"ext_end",3
id=id+1

PRISM 4 , wdt ,
0 , 0 ,
ext_end , 0 ,
ext_end , -end_thk ,
dx , -end_thk,
0 , -end_thk - dy,
0 , 0
RESTORE 1
RETURN

"steps":
IF unn THEN
GROUP "steps"
ENDIF
FOR n = 1 TO stps
GOSUB "step"
TRANS stp , rsr , 0
NEXT
RESTORE stps
IF unn THEN
GROUP_END
!GROUP_PLACE "steps"
ENDIF

IF unn THEN
GROUP "risers"
ENDIF
FOR n = 1 TO stps
GOSUB "riser"
TRANS stp , rsr , 0
NEXT
RESTORE stps
IF unn THEN
GROUP_END
!GROUP_PLACE "risers"
ENDIF

IF unn THEN
res=""
res=GROUP_UNION("steps","risers")
GROUP_PLACE res
ENDIF

RETURN

"step_carrier":

PRISM 4 , wdt ,
0 , 0 ,
0 , rsr ,
stp , rsr ,
0 , 0
RETURN

"step":
PRISM 5 , wdt ,
-rst-nos,rsr ,
-rst-nos,rsr+stt ,
stp,rsr+stt ,
stp,rsr ,
-rst-nos,rsr
RETURN

"riser":
PRISM 5 , wdt ,
-rst , stt ,
-rst , rsr ,
0 , rsr ,
0 , stt,
-rst , stt
RETURN

"step_end":
TRANS stps * stp,stps * rsr,0
PRISM 5 , wdt ,
0,0,
ext_end,0,
ext_end,stt,
0,stt,
0,0
RESTORE 1
RETURN

Insert

IF unn THEN
GROUP "ext_end"
ENDIF

and

IF unn THEN
GROUP_END
!GROUP_PLACE "ext_end"
res = GROUP_UNION ( res , "ext_end" )
GROUP_PLACE res
ENDIF

at top and end of subroutine "ext_end".

Comment out
!GROUP_PLACE res
at End of subroutine "carrier"

GROUP res holds now the carrier, and can unified with extend_end
at end of subroutine "ext_end".

Hi Nemo, another question ....is it possible to merge 2 groups (1+2) each created with separate x,y,z systems as you see in the sketch? For example, in the case of the stair, it would be like adding a run at 90 degrees from the one already created.

It's possible. Why not?

I would suggest you, to do the transformations (of the coordinate-system) between GROUP and GROUP_END.

Hi Nemo, I have problem to merge....it's possible merge groups with this metod? I place group 1 pink color ( union of triangle+sub triangle) then place group 2 blue color (union of trangle+sub triangle) and then merge 1+2 ? Thank you for help.

Well, I think you have a problem with using the same code to generate the staircase twice, and getting 2 different GROUPS. This is how it works:

grp="run01"
GOUSB "CreateRun
TRANS x,y,z
ROTZ 90
grp="Run02"
GOUSB "CreateRun

res=GROUP_UNION("Lauf01","Lauf02")
GROUP_PLACE res
END

"CreateRun":

Create run with PRISM and GROUP_UNION here
....
res=GROUP_UNION(stairs,carrier)

GROUP grp
GROUP_PLACE res
GROUP_END
RETURN

Regards.

Jörg

Thank you for specification! I try to do but, for me, it's not very clear.