# style=cc1: Cross and circle I.

present=8
ranget=[-pi:pi]

R=1.5
r=$[sqrt($R)]
ind=!randitem 1,2
sh=!randint 1,2
conj1=!item $sh of and,or
conj2=!item $sh of or,and

ineq=x*y < 0 ; x^2+y^2 < $R,\
x*y < 0 ; x^2+y^2 > $R,\
x*y > 0 ; x^2+y^2 < $R,\
x*y > 0 ; x^2+y^2 > $R,\
x*y < 0 # x^2+y^2 < $R,\
x*y < 0 # x^2+y^2 > $R,\
x*y > 0 # x^2+y^2 < $R,\
x*y > 0 # x^2+y^2 > $R

plotf=0,t;,t,0;,$r*cos(t),$r*sin(t);\
0,t;,t,0;,$r*cos(t),$r*sin(t);\
0,t;,t,0;,$r*cos(t),$r*sin(t);\
0,t;,t,0;,$r*cos(t),$r*sin(t);\
0,t;,t,0;,$r*cos(t),$r*sin(t);\
0,t;,t,0;,$r*cos(t),$r*sin(t);\
0,t;,t,0;,$r*cos(t),$r*sin(t);\
0,t;,t,0;,$r*cos(t),$r*sin(t);

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

