// Points from naca2418.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/naca2418.dat

naca2418_points = [[1000,1.9],[950,15.5],[900,28.1],[800,50.8],[700,70.2],[600,86.4999],[500,98.9],[400,107.1],[300,108.8],[250,106.5],[200,101.5],[150,93.4],[100,80.5],[75,71.7],[50,60.3],[25,44.5],[12.5,32.8],[0,0],[12.5,-24.5],[25,-34.4],[50,-46.8],[75,-54.8],[100,-60.3],[150,-67.4],[200,-70.9],[250,-71.8],[300,-71.2],[400,-67.1001],[500,-59.9],[600,-50.4],[700,-39.7],[800,-28],[900,-15.3],[950,-8.7],[1000,-1.9]];

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