and, here is the script: ! setup def sym c1 poly/ov/noax/nol/pal= set win/as=1.3/si=0.3 1; go magnify ! define variables let xd = x[gx=1:5000:1]; let v = randu(3*xd) let xv = 2*randu(5*xd)-1; let yv = 2*randu(2*xd)-1 let m = IF yv GT -.8 AND yv LT .8-2*abs(xv) THEN 1 ! background fill/nol/nok/noa/pal=inverse_bluescale/lev=100 y[gy=-1:1:1]+0*x[gx=-1:1:1] ! tree ($c1)green .8*{-1,0,1,-1},.8*{-1,1,-1,-1} ($c1)brown .1*{-1,1,1,-1,-1},.1*{-1,-1,1,1,-1}-.9 ! colored balls go polymark ($c1)rnb2/lev=16 m*xv yv v circle 1 ! white highlights go polymark ($c1)white m*xv-.004 yv+.007 v circle .2 ! snowflakes let xd = x[gx=1:400:1]; let xv = 2*randu(8*xd)-1 go polymark ($c1)white xv yv 1 hexagon .5 ! greetings def sym c1 @CRHappy Holidays label .01 .845 0 0 .6 "@c013($c1)"; label 0 .85 0 0 .6 "@c014($c1)" def sym c1 @CRto all ferreters label .01 -.955 0 0 .4 "@c013($c1)"; label 0 -.95 0 0 .4 "@c014($c1)" Ansley Manke wrote: Hi all |