Drill turbine blower (openscad)

Made in OpenSCAD. 

You need two bearings (I used 16x5mm) 
and an axle (5mm). 
Dimensions can be easily modified in the OpenSCAD script. 

The funnel part needs supports for the center as seen from the images. 

Bearing should fit tight enought on the axle. 

Add a metal tube in the end for igniting coals for grilling etc. 

First time making a fan blade and the design could be better. 
It's a simple shape and in no way optimized aerodynamically. 
Also I thought the funnel shaped fan would be a good idea but 
it seems to blow air too much to the side instead of in the funnel.
 

Here is also the openscad script (same as under files):

$fn=240;
// Funnel part
rotate_extrude(angle= 360,convexity=10){
   polygon([
       [62,0],
       [46.5,20],
       [37,50],
       [20,80],
       [9.5,100],
       [10,120],
       [11,120],
       [13,100],
       [21,80],
       [38,50],
       [47.5,20],
       [64,0],
   ]);
}
// Bearing socket
translate([0,0,25]) 
difference(){
   cylinder(20,r=10);
   translate([0,0,-0.5]) cylinder(21,r=8.1);
}
// Supports
for(i = [0:5]) {
   rotate([0,0,360/5 * i])
   //translate([10,0,50])
   rotate([90,0,0])
   linear_extrude(1, center=true)
   polygon([
       [9.8,40],
       [28.7,65],
       [37.2,50],
       [9.8,26],
   ]);
}
// Internal cone
translate([0,0,45])
rotate_extrude(angle= 360,convexity=10){
   polygon([
       [0,0],
       [0,20],
       [2,18],
       [4,15.5],
       [6,12],
       [8,8],
       [9,5],
       [10,0],
       [8,0],
       [6,2],
       [9,2],
       [7,8],
       [4,13],
       [0,18],
   ]);
}
// Fan part
difference(){
   union(){
       for(i = [0:5]) {
           rotate([0,0,360/5 * i])
           translate([0,-4,0]) 
           linear_extrude(20, twist=36,convexity=10,slices=120,scale=0.7,$fn=80)
           translate([30,2,0]) 
           square([60,2],center=true);
   }
   cylinder(20, r=10);

   }
   union(){
       cylinder(42, r=2.6,center=true);
       translate([0,0,12])cylinder(22, 2.6, 3);
   }
   difference(){
       linear_extrude(50,scale=0.5)circle(100);
       translate([0,0,-0.5]) linear_extrude(51,scale=0.48)circle(60);
   }
}