! 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
Here's an example of something fun that Ferret can do; thanks to
our colleague Andrew Wittenberg of GFDL.
Here's the script with minimal comments. You're invited to challenge
yourself by working through the commands to see what they do.
The Ferret Developers
