6.0

98
Language Reference
4
%====================================================
%Local variables
%====================================================
define(&SB,measure,0)
define(&EB,measure,0)
define(&Scaling,measure,0)
define(&R,measure,&W/2)
%====================================================
&Scaling := (&H-&HB)/&W
gsave()
if(&Scaling<0.01)
&Scaling := 0.01
endif()
if(&Scaling>1)
&Scaling := 1
endif()
scale(1,&Scaling)
setstyle(&Style1)
&HB := &HB / &Scaling
translate(&R,&R)
if(&E > 180)
if(&E > 360)
&EB := 360
elseif()
&EB := &E
endif()
%=================================================
if(&S < 180)
&SB := 180
elseif()
&SB := &S
endif()
%=================================================
setfillcolor([getcyan(&c),getmagenta(&c),getyellow(&c),if(getblack(&c)>50,1
00,getblack(&c)+20)])
moveto(cos(&SB) * &R,neg(sin(&SB) * &R))