EPPLER 657 AIRFOIL
// Points from e657.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/e657.dat

e657_points = [[1000,0],[996.38,0.95],[986.07,3.9899],[970.08,8.99],[948.89,15.37],[922.55,22.91],[891.4601,31.7599],[856.32,41.91],[817.88,53.17],[776.93,65.22],[734.26,77.61],[690.6,89.77],[646.63,100.8],[602.31,109.72],[557.22,116.29],[511.41,120.73],[465.18,123.25],[418.95,124.02],[373.24,123.13],[328.51,120.65],[285.2,116.64],[243.75,111.19],[204.56,104.38],[168.01,96.35],[134.42,87.21],[104.1,77.1199],[77.31,66.27],[54.26,54.86],[35.13,43.15],[20.0499,31.41],[9.11,20.01],[2.39,9.4],[0.67,4.67],[0.1299,1.98],[0.01,0.2999],[0.06,-1.26],[0.17,-1.99],[0.33,-2.68],[0.5599,-3.31],[0.9,-3.91],[1.33,-4.5],[1.84,-5.1001],[3.08,-6.29],[4.59,-7.46],[7.3,-9.21],[13.1,-12.15],[28.58,-17.43],[49.38,-22.01],[75.2599,-25.83],[105.97,-28.86],[141.2,-31.13],[180.56,-32.67],[223.63,-33.53],[269.91,-33.78],[318.86,-33.48],[369.89,-32.66],[422.39,-31.37],[475.69,-29.62],[529.18,-27.35],[582.3,-24.5701],[634.48,-21.26],[685.16,-17.44],[733.87,-12.95],[788.45,-7.78],[825.47,-2.76],[867.46,1.27],[905.57,3.79],[938.63,4.6],[965.37,3.81],[984.7,2.13],[996.2,0.61]];

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