SetDirectory["~/writing/WIP/contact/plots/"]

<<CSPlotter.m

Standard structures in R^3

DD=3.5;
xmin=-DD; xmax=DD; dx=(xmax-xmin)/14;
ymin=-DD; ymax=DD; dy=(ymax-ymin)/14;
scale=dy;

conormalright[x_,y_,z_]={0,x,-1};
conormalleft[x_,y_,z_]={0,-x,-1};

Table[contactelement[{x,y,0},conormalleft[x,y,0],scale],{x,xmin,xmax,dx},{y,ymin,ymax,dy}];
outR=Show[%,coords[xmax+1,ymax+1,3.9],Boxed->False]

(* Export["standardleft.pdf",out];*)

Table[contactelement[{x,y,0},conormalright[x,y,0],scale],{x,xmin,xmax,dx},{y,ymin,ymax,dy}];
outL =Show[%,coords[xmax+1,ymax+1,3.9],Boxed->False]

(* Export["standardright.pdf", out];*)

both=Show[GraphicsArray[{outR, outL}]]

Export["standardRL.pdf", both]

Rotating contact structures

ymin=-4; ymax=4;dy=(ymax-ymin)/14; 
xmin=0; xmax=2Pi ; dx=(xmax-xmin)/16;
scale = dx ;

conormalright[x_,y_,z_]={0,-Sin[x],Cos[x]};
conormalleft[x_,y_,z_]={0,Sin[x],Cos[x]};

Table[contactelement[{x,y,0},conormalright[x,y,0],scale],{x,xmin,xmax,dx},{y,ymin,ymax,dy}];
outR1 = Show[%,coords[xmax+1,ymax+1,4],Boxed->False]

Table[contactelement[{x,y,0},conormalleft[x,y,z],scale],{x,xmin,xmax,dx},{y,ymin,ymax,dy}];
outR2=Show[%,coords[xmax+1,ymax+1,4],Boxed->False]

bothRot=Show[GraphicsArray[{outR2, outR1}]]

Export["RotatingStructures.pdf",bothRot]