Page 1 of 1

Caldera Cone Templates?

Posted: Tue Feb 02, 2010 5:46 pm
by jdempsey
Anybody got any?

Especially for the SP700 or Heiny Pots?

Re: Caldera Cone Templates?

Posted: Tue Feb 02, 2010 6:27 pm
by jdempsey
bah nm I found a template generator.

Re: Caldera Cone Templates?

Posted: Tue Feb 02, 2010 10:21 pm
by Knotty
Care to share?

Re: Caldera Cone Templates?

Posted: Tue Feb 02, 2010 10:31 pm
by jdempsey
Here's a postscript template.. check the variables at the begining.. Supposedly there's a newer one that has a superior method of joining the two ends.. this one has the O.G. caldera cone finger-lock style connection.


%%BeginSetup
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%
% vary values here to suit your pan and burner setup
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%
% normal user parameters (in mm)
/panHeight 95 def % height of pan
/panDiam 115 def % diameter of pan outer walls immediately under rim
/burnerHeight 35 def % height of burner
/burnerOffset 0 def % gap between top of burner and pan: pick to optimise flame heat
/handleWidth 30 def % max width of pan handles
/handleDepth 55 def % measured from top of pan to lowest point on handle
/holesTop 12 def % number of vent holes at top
/holesBottom 20 def % number of vent holes at bottom
/holeDiam 8 def % diameter of vent holes
/fullSize 0 def % print a fullsize A3 page (0/1)
/pageTwo 0 def % set this to 1 to print a second offset page (0/1)

% expert parameters
/baseRatio 1.5 def % ratio of base diameter to pan diameter
/handleGap 5 def % gap around handle opening
/digits 4 def % number of interlocking fingers
/digitLength 10 def % length of fingers
/digitFeather 1 def % amount of feathering on fingers
/holeOffset 15 def % offset of holes from edges
/pageBorder 5 def % A3 page border
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% end of user variables
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% constants
/pi 3.14159265 def
/a3X 297 def
/a3Y 420 def

% derived values
/baseDiam panDiam baseRatio mul def
/totalHeight burnerHeight burnerOffset panHeight add add def
/sideLength totalHeight dup mul baseDiam panDiam sub 2 div dup mul add sqrt def
/angle baseDiam panDiam sub 180 mul sideLength div def
/innerRadius panDiam 180 mul angle div def
/outerRadius baseDiam 180 mul angle div def
/handleOpen handleWidth 2 div handleGap add def
/handleLength sideLength handleDepth mul totalHeight div def
/handleRadius innerRadius handleLength handleGap add add def
/handleTopAngle handleOpen 180 mul innerRadius div pi div def
/handleBottomAngle handleOpen 180 mul handleRadius div pi div def
/digitWidth outerRadius handleRadius sub digits dup add div digitFeather dup add sub def
/topHoleAngle angle handleTopAngle dup add sub holesTop div def
/bottomHoleAngle angle holesBottom div def
/xTranslate angle 2 div cos innerRadius mul pageBorder sub def
/yTranslate angle 2 div sin outerRadius mul digitLength add pageBorder add def
/xExtent outerRadius xTranslate sub def
/yExtent yTranslate dup add def
/xScale a3X xExtent div def
/yScale a3Y yExtent div def
/theScale xScale yScale gt {yScale} {xScale} ifelse def


% set A3 page device
<< /PageSize [841 1190] >> setpagedevice
%%Page: 1 1
%%BeginPageSetup
% convert to mm scaling
72 25.4 div dup scale

% reduce size to fit to A3 page
fullSize 1 ne {theScale dup scale} if

1 setlinecap
1 setlinejoin
%%EndPageSetup

% offset to make fit on page
pageTwo 1 ne
{xTranslate neg yTranslate translate}
{xTranslate neg pageBorder dup add translate}
ifelse

% draw top of stove
newpath
0 0 innerRadius angle 2 div handleTopAngle sub dup neg exch arc
stroke

% draw bottom of stove
newpath
0 0 outerRadius angle 2 div dup neg exch arc
stroke

% draw fingers
newpath
0 0 moveto
angle 2 div neg rotate
handleRadius 0 moveto
1 1 digits
{
pop
digitFeather digitLength neg rlineto
digitWidth 0 rlineto
digitFeather digitLength rlineto
digitFeather 0 rlineto
digitWidth 0 rlineto
digitFeather 0 rlineto
} for
stroke

% draw mating fingers
0 0 moveto
angle rotate
handleRadius 0 moveto
1 1 digits
{
pop
digitFeather 0 rlineto
digitWidth 0 rlineto
digitFeather 0 rlineto
digitFeather digitLength rlineto
digitWidth 0 rlineto
digitFeather digitLength neg rlineto
} for
stroke

% handle opening
0 0 innerRadius 0 handleTopAngle neg arc
currentpoint
newpath
moveto
0 0 handleRadius handleBottomAngle neg 0 arc
stroke

0 0 moveto
angle neg rotate
0 0 innerRadius 0 handleTopAngle arc
currentpoint
newpath
0 0 handleRadius 0 handleBottomAngle arc
lineto
stroke

% draw bottom holes
0 0 moveto
bottomHoleAngle 2 div neg rotate

1 1 holesBottom
{
pop
0 0 moveto
bottomHoleAngle rotate
newpath
outerRadius holeOffset sub 0 holeDiam 2 div 0 360 arc stroke
} for

% return to angle rotation
0 0 moveto
bottomHoleAngle holesBottom 0.5 sub mul neg rotate

% draw top holes
0 0 moveto
handleTopAngle topHoleAngle 2 div sub rotate

1 1 holesTop
{
pop
0 0 moveto
topHoleAngle rotate
newpath
innerRadius holeOffset add 0 holeDiam 2 div 0 360 arc stroke
} for

% return to angle rotation
0 0 moveto
topHoleAngle holesTop 0.5 sub mul handleTopAngle add neg rotate

% return to zero rotation
0 0 moveto
angle 2 div rotate
fullSize 1 eq
{outerRadius 0 lineto stroke}
if

showpage
%%Trailer

Re: Caldera Cone Templates?

Posted: Tue Feb 02, 2010 11:02 pm
by Ridgerunner
Hear is a link that might help....

http://www.youtube.com/watch?v=VerP7-aiEBw

Re: Caldera Cone Templates?

Posted: Thu Feb 04, 2010 3:44 pm
by zelph
Dana could look at that and have no problem reading it :D

Re: Caldera Cone Templates?

Posted: Sat Feb 06, 2010 10:19 am
by DarenN
jdempsey wrote:Anybody got any?

Especially for the SP700 or Heiny Pots?
in this old thread i posted a tutorial:

viewtopic.php?f=41&t=569

Daren.......