function [stk,txt,top]=sci_triang()
// Copyright INRIA
txt=[]
N=stk(top-1)(1)
stk=list('window'+rhsargs(['''tr''',N])+'''','0',stk(top)(1),'1','1')

