# style=c1: Cross I.

present=4
ranget=[-8:8]

ind=!randitem 1,2
!if $ind=1
 !distribute item x^2,y^2 into xx,yy
!else
 !distribute item abs(x),abs(y) into xx,yy
!endif

ineq=x*y < 0,\
 x*y > 0,\
 $xx < $yy,\
 $xx > $yy

plotf=0,t;,t,0;\
0,t;,t,0;\
t,t;,t,-t;\
t,t;,t,-t;

sh=!shuffle 4
ineq=!item $sh of $ineq
plotf=!line $sh of $plotf

