begintemplate Cone

public soma 
create soma

proc init(){ local x, y, z
    create soma
	if (numarg() == 3) {
		x = $1
		y = $2 
		z = $3
	} else {
		x = 0
		y = 0
		z = 0
	}
 
	soma {
		L= 12 
		{ pt3dclear() pt3dadd(x, y, z-L, 1) pt3dadd(x, y, z, 1) }
		nseg=9
		diam=4  
		cm=16  

		insert CPR
		insert Kv_cone
		insert h_cone

	}
} // end init

endtemplate Cone