「Script!3Dで立体を作ろう(11)」で作った「三角底面体作図テスト04」を少しだけ変えて「三角錐作図テスト04」を作ります。「DTUBE」を「DCONE」に変えただけです。
// 三角錐作図テスト04
#VAR
　col = 212　;*線色
　n = 6　　　;*個数
　l1 = 20　　;*底面/底辺長さ
　l2 = 40　　;*底面/斜辺長さ
　ax = 0　　　;*上面/偏心X
　ay = 0　　　;*上面/偏心Y
　h = 50　　　;*高さ
　i
　j
　r
　x
　an
　a
#DRAW
　PEN　col
　INIMATR
　CAL　r = l1/2/Sin(PI/n)
　CAL　x = r*Cos(PI/n)
　CAL　an = 2.0*PI/n
　CAL　a = 0
　CAL　j = 0
　#WHILE (j < n)
　　MATRIXO　0,0,0
　　RLZMATR　a
　　MATRIXL　x,0,0
　　DCONEY3　i,l1,l2,l2,h, ax,ay, 1,0
　　CAL　a = an
　　CAL　j = j + 1
　#END
これを実行すると下図のようになります。
20090223d

個数を「24」にしてみました。
20090223e

高さを「200」にしてみました。
20090223f

上面/偏心Xを「-60」にしてみました。
20090223g

上面/偏心Xを「200」にしてみました。
20090223h