<< CSPlotter.m

Overtwisted contact structure in R^3

ymin = -1;  ymax = 1; 
    dy = (ymax - ymin)/3; 
xmin = 0;  xmax = 2  Pi ;  
    dx = (xmax - xmin)/18;
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}];
out  =  Show[%, Boxed -> False]

Export["OT2right.eps", out];
Export["OT2right.png", out];
Export["OT2right.pdf",  out];

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

Export["OT2left.eps", out];
Export["OT2left.png", out];
Export["OT2left.pdf",  out];