Nice work Sylvia. I am exploring your code for some of my work. I have most of it running on Mathematica 12 on the Mac. I am having trouble with the Hatching block of code here.
Module[{strokeLength, strokeOrient, dens, stroke},
Function[{x, y},
dens = densityFunc[x, y];
strokeLength = .03 dens^.3 (1 + .1 RandomReal[{-1, 1}]);
strokeOrient = ?/
3 + ?/6 (1 - (2 dens - 1)^2)^20 RandomReal[{-1, 1}];
stroke = strokeLength Through[{Cos, Sin}[strokeOrient]];
{{x, y} - stroke, {x, y} + stroke}
] @@@ refinedPts // Line // Graphics[{AbsoluteThickness[0], #}] &
]
For some reason there are two ? (Question marks) showing up on my browser at Line 5 and Line 6!! Could you help identify what variables these question marks correspond to? I suspect they are the source of my issue. Thanks
Murali
