6.0

99
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()
endfunction()
GE (function)
Compares two expressions of any type and returns true if the first is greater than or equal to the second,
false otherwise. This is the functional equivalent to the >= operator.
Syntax
ge( expression1, expression2 ) Boolean value
Arguments
expression1, expression2 — Values of any type. Both expressions must be of the same type.