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

naca2421_points = [[1000,2.2],[950,17.6],[900,31.8],[800,57.4],[700,79.4],[600,97.9],[500,112.2],[400,121.6],[300,123.8],[250,121.5],[200,115.9],[150,107],[100,92.7999],[75,82.9],[50,70],[25,52.1],[12.5,38.7],[0,0],[12.5,-28.2],[25,-40.2],[50,-55.1],[75,-64.8],[100,-71.8],[150,-80.5],[200,-85.2],[250,-86.7],[300,-86.2],[400,-81.6001],[500,-73.1],[600,-61.7],[700,-48.7],[800,-34.4],[900,-18.8],[950,-10.6],[1000,-2.2]];

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