p0 := 0, 0, 0.6773065:

p1 := 0.36540985, 0, 0.57028075:

p2 :=-0.31189665, 0.19038045, 0.57028075:

p3 := 0.16703115, -0.325, 0.57028075:

p4 := 0.57028075, 0.19038045, 0.31189665:

p5 :=-0.5859542, 0.13461955, 0.31189665:

p6 :=-0.38757615, 0.45961955, 0.31189665:

p7 := 0.0913523, -0.5942391, 0.31189665:

p8 := 0.661635, 0.13461955, -0.05351307:

p9 := 0.4946019, 0.45961955, 0.05351307:

p10:=-0.661635, -0.13461955, 0.05351307:

p11:=-0.18270525, 0.65, 0.05351307:

p12:=-0.18270525, -0.65, 0.05351307:

p13:= 0.18270525, -0.65, -0.05351307:

p14:= 0.5859542, -0.13461955, -0.31189665:

p15:= 0.18270525, 0.65, -0.05351307:

p16:=-0.4946019, -0.45961955, -0.05351307:

p17:=-0.57028075, -0.19038045, -0.31189665:

p18:=-0.0913523, 0.5942391, -0.31189665:

p19:= 0.38757615, -0.45961955, -0.31189665:

p20:= 0.31189665, -0.19038045, -0.57028075:

p21:=-0.36540985, 0, -0.57028075:

p22:=-0.16703115, 0.325, -0.57028075:

p23:= 0, 0, -0.6773065:

 

Hexaeder_abgestumpft_Dreiecke:= [

p0, p3, p1,

p2, p6, p5,

p4, p8, p9,

p7, p12,p13,

p10,p17,p16,

p11,p15,p18,

p14,p19,p20,

p21,p22,p23

]:

 

Hexaeder_abgestumpft_Achtecke:= [

[p0, p1, p4, p9, p15,p11,p6, p2],

[p0, p2, p5, p10,p16,p12,p7, p3],

[p1, p3, p7, p13,p19,p14,p8, p4],

[p5, p6, p11,p18,p22,p21,p17,p10],

[p8, p14,p20,p23,p22,p18,p15,p9],

[p12,p16,p17,p21,p23,p20,p19,p13]

]:

 

Hexaeder_abgestumpft:= plot::Group3d(

   Name = "Hexaeder, abgestumpft",

   plot::SurfaceSet(Name="Dreiecke", Hexaeder_abgestumpft_Dreiecke, MeshListType = Triangles),

   plot::SurfaceSet(Name="Achteck",  Achteck, MeshListType = TriangleFan, FillColorFunction=RGB::Gold)             $ Achteck in Hexaeder_abgestumpft_Achtecke,

   plot::Polygon3d (Name="Achteck, Rand", [Achteck[3*i+1..3*i+3] $ i=0..7], Closed, LineColor = RGB::Black.[0.25]) $ Achteck in Hexaeder_abgestumpft_Achtecke,

   Scaling = Constrained

):

 

plot( plot::Rotate3d( w, w=0..2*PI, Frames=100, Hexaeder_abgestumpft),

      Header                = "Archimedischer Körper: Hexaeder, abgestumpft",

      Axes                  = None,

      BackgroundStyle       = Pyramid,

      Width                 = 120,

      Height                = 120,

      BorderWidth           = 0.2,

      Footer                = "erstellt mit MuPAD Pro 3 - schule.mupad.de",

      FooterFont            = [8, Italic],

      FooterAlignment       = Right,

      plot::Scene3d::Margin = 0

):