// Points from e428.dat in the archive: http://m-selig.ae.illinois.edu/ads/archives/coord_seligFmt.tar.gz
// Not necessarily in the same order as in: http://m-selig.ae.illinois.edu/ads/coord/e428.dat

e428_points = [[1000,0],[987.18,1.1999],[950,4.9],[892,10.4],[814.9999,17.6],[724,26.6],[624,36.6],[520,46.3],[417,54.1],[318,58.9],[227,59.8],[149,57.7],[116,54.9],[86.9999,50.5],[62.6,44.5],[42,37.1999],[25,28.9],[13,20],[4,10.9],[0.2,2.3],[1,-5.9],[8,-14.3],[19,-22.7],[34,-30.7],[54,-37.7],[77,-43.6],[105,-48.1],[136,-51.1],[171.9999,-52.5],[254,-51],[301,-49],[401,-43.3],[506,-35.4],[613,-26.3],[715,-17.5001],[809,-10.2001],[888,-5],[949,-2],[987,-0.6]];

linear_extrude(height=20)
scale([15, 15])
translate([0,0])
scale (0.001)
polygon(points=e428_points);