Re: fuzzy set analysis or hypermatematica

Two part fuzzy logic in Mathematica:
the IFS that works in true basic failed.
I came up with this by a little experimentation.
I call is a "dual kite" because of the shapes of the output.
There seems to be an eight fold pattern in the resulting picture;
probably a result of the 1/Sqrt[2] ratio.

Clear[f, dlst, pt, cr, ptlst]
dlst = Table[ Random[Integer, {1, 2}], {n, 25000}];
f[1, {x_, y_}] := {1 - Abs[-x + y], 1 - Abs[x + y - 1]}/Sqrt[2]
f[2, {x_, y_}] := {Abs[-x + y], Abs[x + y - 1]}/Sqrt[2]
pt = {-0.1, 0.1};
cr[n_] = If[n - 1 == 0, RGBColor[0, 0, 1], If[n - 2 == 0, RGBColor[0, 1,
0], If[n - 3 == 0, RGBColor[1, 0, 0], RGBColor[0, 0, 0]]]];
ptlst = Table[{cr[dlst[[j]]], Point[pt = f[dlst[[j]], Sequence[pt]]]},
{j, Length[dlst]}];

Show[Graphics[Join[{PointSize[.001]},
ptlst]], AspectRatio -> Automatic, PlotRange -> All]
.