# SRcoboctaFrame.slf
# Offset surface to make Leonardo-frames of the RegPolys
#####################################################################


################## INITIALIZATIONS #########################

tclinit {
  package require slideui

  set winName .slfWindow

  toplevel .slfWindow.uiOffset
  CreateSLIDEOffsetObject oOffset
  set widget [CreateSLIDEOffsetUI .slfWindow.uiOffset oOffset]
  pack $widget

  toplevel .slfWindow.gRoot
  CreateSLIDEObjectObject gRoot
  set widget [CreateSLIDEGroupUI .slfWindow.gRoot gRoot]
  pack $widget
}
 

######## GEOMETRY ###############

mesh mPatchA

#srcubocta
vertex v0 ( 	 -1  -0.414214  -0.414214) endvertex
vertex v1 ( 	 -0.414214  -1  -0.414214) endvertex
vertex v2 ( 	 -0.414214  -0.414214  -1) endvertex
vertex v3 ( 	 -1  -0.414214  0.414214) endvertex
vertex v4 ( 	 -0.414214  -0.414214  1) endvertex
vertex v5 ( 	 -0.414214  -1  0.414214) endvertex
vertex v6 ( 	 -0.414214  1  -0.414214) endvertex
vertex v7 ( 	 -1  0.414214  -0.414214) endvertex
vertex v8 ( 	 -0.414214  0.414214  -1) endvertex
vertex v9 ( 	 0.414214  -1  -0.414214) endvertex
vertex va ( 	 1  -0.414214  -0.414214) endvertex
vertex vb ( 	 0.414214  -0.414214  -1) endvertex
vertex vc ( 	 -0.414214  1  0.414214) endvertex
vertex vd ( 	 -0.414214  0.414214  1) endvertex
vertex ve ( 	 -1  0.414214  0.414214) endvertex
vertex vf ( 	 0.414214  -0.414214  1) endvertex
vertex v10 ( 	 1  -0.414214  0.414214) endvertex
vertex v11 ( 	 0.414214  -1  0.414214) endvertex
vertex v12 ( 	 1  0.414214  -0.414214) endvertex
vertex v13 ( 	 0.414214  1  -0.414214) endvertex
vertex v14 ( 	 0.414214  0.414214  -1) endvertex
vertex v15 ( 	 0.414214  1  0.414214) endvertex
vertex v16 ( 	 1  0.414214  0.414214) endvertex
vertex v17 ( 	 0.414214  0.414214  1) endvertex
(*
vertex v18 ( 	 -1  -0.414214  -0.414214) endvertex
vertex v19 ( 	 -0.414214  -1  -0.414214) endvertex
vertex v1a ( 	 -0.414214  -0.414214  -1) endvertex
vertex v1b ( 	 -1  -0.414214  0.414214) endvertex
vertex v1c ( 	 -0.414214  -0.414214  1) endvertex
vertex v1d ( 	 -0.414214  -1  0.414214) endvertex
vertex v1e ( 	 -0.414214  1  -0.414214) endvertex
vertex v1f ( 	 -1  0.414214  -0.414214) endvertex
vertex v20 ( 	 -0.414214  0.414214  -1) endvertex
vertex v21 ( 	 0.414214  -1  -0.414214) endvertex
vertex v22 ( 	 1  -0.414214  -0.414214) endvertex
vertex v23 ( 	 0.414214  -0.414214  -1) endvertex
vertex v24 ( 	 -0.414214  1  0.414214) endvertex
vertex v25 ( 	 -0.414214  0.414214  1) endvertex
vertex v26 ( 	 -1  0.414214  0.414214) endvertex
vertex v27 ( 	 0.414214  -0.414214  1) endvertex
vertex v28 ( 	 1  -0.414214  0.414214) endvertex
vertex v29 ( 	 0.414214  -1  0.414214) endvertex
vertex v2a ( 	 1  0.414214  -0.414214) endvertex
vertex v2b ( 	 0.414214  1  -0.414214) endvertex
vertex v2c ( 	 0.414214  0.414214  -1) endvertex
vertex v2d ( 	 0.414214  1  0.414214) endvertex
vertex v2e ( 	 1  0.414214  0.414214) endvertex
vertex v2f ( 	 0.414214  0.414214  1) endvertex
*)
facet f0 	(v9 v1 v2 vb)endfacet
facet f1 	(v8 v2 v0 v7)endfacet
facet f2 	(v14 v8 v6 v13)endfacet
facet f3 	(v12 va vb v14)endfacet
facet f4 	(v3 v0 v1 v5)endfacet
facet f5 	(v11 v9 va v10)endfacet
facet f6 	(vf v4 v5 v11)endfacet
facet f7 	(ve v3 v4 vd)endfacet
facet f8 	(vc v6 v7 ve)endfacet
facet f9 	(v17 vf v10 v16)endfacet
facet fa 	(v15 vc vd v17)endfacet
facet fb 	(v16 v12 v13 v15)endfacet

facet fc 	(v16 v15 v17)endfacet
facet fd 	(v13 v12 v14)endfacet
facet fe 	(v10 vf v11)endfacet
facet ff 	(vd vc ve)endfacet
facet f10 	(va v9 vb)endfacet
facet f11 	(v7 v6 v8)endfacet
facet f12 	(v4 v3 v5)endfacet
facet f13 	(v1 v0 v2)endfacet

facet f14 	(v12 v16 v10 va)endfacet
facet f15 	(vc v15 v13 v6)endfacet
facet f16 	(vf v17 vd v4)endfacet
facet f17 	(v3 ve v7 v0)endfacet
facet f18 	(v9 v11 v5 v1)endfacet
facet f19 	(v8 v14 vb v2)endfacet
(*
facet f1a 	(v21 v19 v1a v23)endfacet
facet f1b 	(v20 v1a v18 v1f)endfacet
facet f1c 	(v2c v20 v1e v2b)endfacet
facet f1d 	(v2a v22 v23 v2c)endfacet
facet f1e 	(v1b v18 v19 v1d)endfacet
facet f1f 	(v29 v21 v22 v28)endfacet
facet f20 	(v27 v1c v1d v29)endfacet
facet f21 	(v26 v1b v1c v25)endfacet
facet f22 	(v24 v1e v1f v26)endfacet
facet f23 	(v2f v27 v28 v2e)endfacet
facet f24 	(v2d v24 v25 v2f)endfacet
facet f25 	(v2e v2a v2b v2d)endfacet
facet f26 	(v2e v2d v2f) endfacet
facet f27 	(v2b v2a v2c) endfacet
facet f28 	(v28 v27 v29) endfacet
facet f29 	(v25 v24 v26) endfacet
facet f2a 	(v22 v21 v23) endfacet
facet f2b 	(v1f v1e v20) endfacet
facet f2c 	(v1c v1b v1d) endfacet
facet f2d 	(v19 v18 v1a) endfacet
facet f2e 	(v2a v2e v28 v22)endfacet
facet f2f 	(v24 v2d v2b v1e)endfacet
facet f30 	(v27 v2f v25 v1c)endfacet
facet f31 	(v1b v26 v1f v18)endfacet
facet f32 	(v21 v29 v1d v19)endfacet
facet f33 	(v20 v2c v23 v1a)endfacet
*)
endmesh

#######################################################

offset oOffset
  lod {expr $oOffset(lod)}
  shading {expr $oOffset(shading)}

  type {expr $oOffset(type)}

  height {expr $oOffset(height)}
  width {expr $oOffset(width)}
  drawcontrols {expr $oOffset(drawcontrols)}

  instance mPatchA
  endinstance
endoffset

#######################################################

group oMySurface
    instance oOffset
      surface YEL
    endinstance
endgroup


surface RED color ( 1 0 0 ) endsurface
surface YEL color ( 1 1 0 ) endsurface
surface GRN color ( 0 1 0 ) endsurface

include "view.slf"