7.5

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()
margin(cos(&SB) * &R,neg(sin(&SB) * &R)-(0.05/&Scaling))
endif()
%====================================================
scale(1,1/&Scaling)
if(and(gt(&SB,90),lt(&SB,270)))
showright(&L+' ')
elseif()
show(' '+&L)
endif()
grestore()
©2010 Objectif Lune Inc - 424 -