- 最后登录
- 2017-6-30
- 在线时间
- 165 小时
- 阅读权限
- 10
- 注册时间
- 2017-1-28
- 积分
- 37
- 帖子
- 13
- 精华
- 0
- UID
- 1342981
- 性别
- 保密
- 兴趣爱好
- 结构
- 积分
- 37
- 帖子
- 13
- 精华
- 0
- UID
- 1342981
- 性别
- 保密
- 兴趣爱好
- 结构
|
- <?xml version="1.0" encoding="windows-1251"?>
- <xml Data_Version="2">
- <Interface>
- <Name>Cubic Chopasaurus</Name>
- <Class>TChopasaurus</Class>
- <Menu>Other Cubes\Cubic Chopasaurus</Menu>
- <Inventor>Tony Fisher</Inventor>
- <Programmer>Skallos</Programmer>
- </Interface>
- <Script>
- mAngle := ArcTan(0.5);
- As := sin(mAngle);
- Ac := cos(mAngle);
- sAngle := PI * 2 / 5;
- R := 0.7;
- Rout := sqrt(3) / 4 * (1 + sqrt(5));
- Rin := 0.5 * sqrt(2.5 + 1.1 * sqrt(5));
- dAngle := Arcsin(Rin / Rout);
- dAngle2 := dAngle - 2 * Arcsin(1 / 2 / Rout);
- Rsin := R * sin(dAngle);
- Rcos := R * cos(dAngle);
- R2sin := R * sin(dAngle2);
- R2cos := R * cos(dAngle2);
-
- D := (Rsin + R2sin) / 2 - 0.05;
- for i := 0 to 4 do begin
- x[i] := Rcos * sin(sAngle * (i - 0.5));
- y[i] := Rcos * cos(sAngle * (i - 0.5));
- z[i] := Rsin;
- end;
- for i := 5 to 9 do begin
- x[i] := R2cos * sin(sAngle * (i - 0.5));
- y[i] := R2cos * cos(sAngle * (i - 0.5));
- z[i] := R2sin;
- end;
- for i := 10 to 14 do begin
- x[i] := R2cos * sin(sAngle * i);
- y[i] := R2cos * cos(sAngle * i);
- z[i] := -R2sin;
- end;
- for i := 15 to 19 do begin
- x[i] := Rcos * sin(sAngle * i);
- y[i] := Rcos * cos(sAngle * i);
- z[i] := -Rsin;
- end;
- </Script>
- <!-- dummy angle -->
- <Axes TurningAngles = "Pi" PlaneDistances = "0" >
- <Axis NormVector = "x[0]; y[0]; z[0]" />
- <Axis NormVector = "x[1]; y[1]; z[1]" />
- <Axis NormVector = "x[2]; y[2]; z[2]" />
- <Axis NormVector = "x[3]; y[3]; z[3]" />
- <Axis NormVector = "x[4]; y[4]; z[4]" />
- <Axis NormVector = "x[5]; y[5]; z[5]" />
- <Axis NormVector = "x[6]; y[6]; z[6]" />
- <Axis NormVector = "x[7]; y[7]; z[7]" />
- <Axis NormVector = "x[8]; y[8]; z[8]" />
- <Axis NormVector = "x[9]; y[9]; z[9]" />
- </Axes>
- <Figure>
- <Part>
- <Vertices>
- <Vector X = "x[0]" Y = "y[0]" Z = "z[0]"/>
- <Vector X = "x[2]" Y = "y[2]" Z = "z[2]"/>
- <Vector X = "x[8]" Y = "y[8]" Z = "z[8]"/>
- <Vector X = "x[9]" Y = "y[9]" Z = "z[9]"/>
- <Vector X = "x[10]" Y = "y[10]" Z = "z[10]"/>
- <Vector X = "x[11]" Y = "y[11]" Z = "z[11]"/>
- <Vector X = "x[17]" Y = "y[17]" Z = "z[17]"/>
- <Vector X = "x[19]" Y = "y[19]" Z = "z[19]"/>
- </Vertices>
- <Faces>
- <Face Color = "0000C8" VertexIndexes = "0;1;5;4"/>
- <Face Color = "FFFF00" VertexIndexes = "3;2;1;0"/>
- <Face Color = "C80000" VertexIndexes = "0;4;7;3"/>
- <Face Color = "FF800A" VertexIndexes = "2;6;5;1"/>
- <Face Color = "009600" VertexIndexes = "2;3;7;6"/>
- <Face Color = "FFFFFF" VertexIndexes = "7;4;5;6"/>
- </Faces>
- </Part>
- <SplitByAxes/>
- <RemoveGrayParts/>
- </Figure>
- </xml>
复制代码 |
|