Truncated Icosidodecahedron

CS RESET
FACE PCOFF
 
; variables
MAKE "a610 142.62 ; dihedral angle 6-10
MAKE "a410 148.28 ; dihedral angle 4-10
MAKE "a46 159.095 ; dihedral angle 4-6
 
; methods
TO polygon :side
    PD
    REPEAT :side [FD 1 RT 360/:side]
    PU
END
 
TO square
    PD
    SETMAT 0 5
    TL 180 + :a410
    polygon 4
    TR 180 + :a410
    PU
END
 
TO hexagon
    PD
    SETMAT 0 25
    TR 180 - :a610
    polygon 6
    TL 180 - :a610
    PU
END
 
TO decagon
    PD
    SETMAT 0 9
    polygon 10
    PU
END
 
TO dec_move
    FD 1 
    LT 36
END
 
TO dec_move_r
    FD 1
    RT 36
END
 
TO reposition
    RT 90 RD 180 - :a410 FD 1 RD 180 - :a410 LT 90 ; repositioning turtle
    decagon
END
 
TO ring :faces
  REPEAT :faces [square dec_move hexagon dec_move]
END
 
; main construction
CLEAN HOME
FACE
PCOFF
 
decagon
 
RT 180 ; orients turtle in correct direction
RU 180 ;
 
ring 5
 
REPEAT 2 [
RT 90 RD 180 - :a410 FD 1 RD 180 - :a410 LT 90 ; repositioning turtle
 
decagon
 
RT 180 - 36 FD 1 LT 36
 
ring 3 square]
 
RT 180 + 36 REPEAT 2 [dec_move_r] FD 1 LT 90 - 36 RD 180 - :a410 FD 1 RD 180 - :a410 LT 90 - 36
 
decagon
 
RT 180 - 36 REPEAT 2 [dec_move]
 
ring 3 square
 
reposition
 
RT 180 - 36 dec_move
 
ring 1 square
 
reposition
 
RT 180 - 36 dec_move
 
ring 2 square
 
reposition
 
RT 180 - 36 dec_move
ring 1 square
 
reposition
 
RT 180 - 36 dec_move
 
ring 2 square
 
reposition
 
RT 180 - 36 dec_move
 
square
 
reposition
 
RT 180 - 36 dec_move
 
ring 1 square
 
reposition
 
REPEAT 2 [dec_move_r] RT 180 BK 1
 
ring 1
 
RT 90 RD 180 - :a410 FD 1 RD 180 - :a410 RT 90 - 36 dec_move
 
square
 
reposition