MACRO pointillism1 ecoff gv mcoWIDTH 10 gv mcoDM 1 gv mcoWIDTH ^DWidth of shading (10): gv mcoDM ^DDensity modifier (1=normal, .5=half density, 2=double density) (1): gv mcoSPACING mcoWIDTH/30*(1/mcoDM) ge mcoentity ^DSelect object to draw shading along: iferr mcodone gp mcoP1 % 0 mcoentity line mcoP1 ^DWhich side to shade?; selbyp erase gp mcoP2 @0,0 gbrng mcoTEST1 mcoP1 % 1 mcoentity gbrng mcoTEST2 mcoP1 mcoP2 ifn mcoTEST1-mcoTEST2 mcoCONTROL1 gv mcoSIDE -1 go mcoCONTROL2 :mcoCONTROL1 gv mcoSIDE -1 ifn mcoTEST1-mcoTEST2+180 mcoCONTROL2 gv mcoSIDE 1 :mcoCONTROL2 gdist mcoentitylen % 0 mcoentity % 1 mcoentity gv mcoentitylen mcoentitylen*100 gv mcounit 100/mcoentitylen gv mcoD1Cur 0 :mcoloop gp mcoP1 % mcoD1Cur*mcounit mcoentity gbrng mcoB1 mcoP1 % (mcoD1Cur*mcounit)+.01 mcoentity RANDOM mcoRAND1 RANDOM mcoRAND2 RANDOM mcoRAND3 RANDOM mcoRAND4 point ref mcoP1