1
function [stk,txt,top]=sci_copper()
5
stk=list('min(ones(32,3),graycolormap()*diag([1.2500 0.7812 0.4975]))','0','32','3','1')
7
if isname(stk(top)(1)) then
13
stk=list('min(ones('+n+',3),graycolormap('+n+')*diag([1.2500 0.7812 0.4975]))','0',n,'3','1')