#include "colors.inc"
#include "woods.inc"
#include "finish.inc"

#declare bleistift=
union { 
    // Griff
    prism {
        4,
        20,
        7,
        <cos(radians(0)),sin(radians(0))>,
        <cos(radians(60)),sin(radians(60))>,
        <cos(radians(120)),sin(radians(120))>,
        <cos(radians(180)),sin(radians(180))>,
        <cos(radians(240)),sin(radians(240))>,
        <cos(radians(300)),sin(radians(300))>,
        <cos(radians(360)),sin(radians(360))>
        texture {
            pigment { Green }
            finish { Phong_Dull }
        }
    }
    
    // Spitze
    intersection {
        prism {
            0,
            4,
            7,
            <cos(radians(0)),sin(radians(0))>,
            <cos(radians(60)),sin(radians(60))>,
            <cos(radians(120)),sin(radians(120))>,
            <cos(radians(180)),sin(radians(180))>,
            <cos(radians(240)),sin(radians(240))>,
            <cos(radians(300)),sin(radians(300))>,
            <cos(radians(360)),sin(radians(360))>
            texture {
                pigment { Green }
                finish { Phong_Dull }
            }
        }
        cone {
             <0,1,0>,1/4,
            <0,4,0>,1
            texture { T_Wood13 }
        }   
    }    
    // Mine
    cone {
        <0,0,0>,0/4,
        <0,1,0>,1/4
        texture {
            pigment { Gray10 }
            finish { phong 1 phong_size 60}
        }    
    }
}