Skriptcode in Zeichnen:
forall(pts,p,
p:"spur"=p:"spur" ++ [p.xy]
);
tr0=[[1,0],[0,1]];
tr1=[[-1,0],[0,1]];
tr2=[[-1,0],[0,-1]];
tr3=[[1,0],[0,-1]];
trs=[tr0,tr1,tr2,tr3];
forall(trs,t,
forall(pts,p,
connect((p:"spur")*t,color->p.color,size->2);
);
);
Skriptcode in Initialisieren:
pts=allpoints();
forall(pts,p,p:"spur"=[]);
Created with Cinderella