7.6

%====================================================
%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()
%=================================================
set-
fill-
color([getcyan(&c),getmagenta(&c),getyellow(&c),if(getblack(&c)>50,100,getblack(&c)+20)])
moveto(cos(&SB) * &R,neg(sin(&SB) * &R))
rlineto(0,&HB)
arc(0,&HB,&R,&SB,&EB)
rlineto(0,neg(&HB))
closepath()
strokeandfill()
endif()
%====================================================
setfillcolor(&c)
pie(0,0,&R,&S,&E)
strokeandfill()
&SB := (&S+&E)/2
%====================================================
if(gt(&SB,180))
margin(cos(&SB) * &R,neg(sin(&SB) * &R)+&HB+(0.2/&Scaling))
elseif()
©2010 Objectif Lune Inc - 564 -