Cloned SEACAS for EXODUS library with extra build files for internal package management.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

20 lines
369 B

$ {include("common.h")}
$ {len1 = sqrt(8.5^2 - 7.428^2)}
$ {len2 = FR1 - rad1 - len1}
$ {th = 0.090}
spline {th}
LEFT 0.0
right 0.0
$ {intr = 73} {_i=0}
{Loop(73)}
{_x = _i/(72) * len1} {sqrt( (8.5+th/2)^2 - _x^2)} $ {_i++}
{endloop}
$ {_i=1}
{loop(27)}
{_x = len1 + (_i/27) * len2} {7.428+th/2} $ {_i++}
{endloop}
end
sideset back 11
revolve x -90
shift y -7.338
EXIT