Entry point
|
Entry from the calling conditional procedure.
DRVAL1 and DRVAL2 are passed from the calling procedure
|
Get the Calling Object
|
Get the object which is calling main procedure DEPARE03 and input parameters DRVAL1 and DRVAL2
|
TWO_SHADES == 'ON'?
|
Has the mariner selected the 'two-colour shading' for depth zones?
|
'DRVAL1' >= 0 && 'DRVAL2' > 0?
|
Is 'DRVAL1' greater than or equal to '0' metres (low water line) and is 'DRVAL2' greater than '0' metres?
|
SELECT Colour='DEPVS'
|
Select colour name 'DEPVS'
|
'DRVAL1' >= SFC && 'DRVAL2 > SFC?
|
Is 'DRVAL1' greater than or equal to the value of the 'SAFETY CONTOUR' as selected by the mariner and is 'DRVAL2' greater than the value of the 'SAFETY CONTOUR'?
|
SELECT Colour='DEPDW', SHALLOW=FALSE
|
Select colour name 'DEPDW' and set local variable SHALLOW equal to 'FALSE'
|
SELECT Colour='DEPIT'; SHALLOW=TRUE
|
Select colour name 'DEPIT' (intertidal area) and set local variable SHALLOW equal to 'TRUE'.
|
'DRVAL1' >= 0 && 'DRVAL2' > 0 ?
|
Is 'DRVAL1' greater than or equal to '0' metres (low water line) and is 'DRVAL2' greater than '0' metres?
|
SELECT Colour='DEPVS'
|
Select colour name 'DEPVS'
|
'DRVAL1' >= SHC && 'DRVAL2' > SHC?
|
Is 'DRVAL1' greater than or equal to the value of the 'SHALLOW CONTOUR' as selected by the mariner and is 'DRVAL2' greater than the value of the 'SHALLOW CONTOUR'?
|
SELECT Colour='DEPMS'
|
Select colour name 'DEPMS'
|
'DRVAL1' >= SFC && 'DRVAL2' > SFC?
|
Is 'DRVAL1' greater than or equal to the value of the 'SAFETY CONTOUR' as selected by the mariner and is 'DRVAL2' greater than the value of the 'SAFETY CONTOUR'?
|
SELECT Color='DEPMD', SHALLOW=FALSE
|
Select colour name 'DEPMD' and set local variable SHALLOW=FALSE
|
'DRVAL1' >= DEEP_CONTOUR && 'DRVAL2' > DEEP_CONTOUR?
|
Is 'DRVAL1' greater than or equal to the value of the DEEP_CONTOUR as selected by the mariner and is 'DRVAL2' greater than the value of the DEEP_CONTOUR?
|
SELECT Colour='DEPDW', SHALLOW=FALSE
|
Select colour name 'DEPDW' and set local variable SHALLOW=FALSE
|
AC(Colour)
|
Draw the area object with an opaque colour fill.
Use the colour which was selected last.
|
SHALLOW_PATTERN == 'ON' && SHALLOW == TRUE?
|
Has the mariner decided to make shallow areas more prominent ('SHALLOW_PATTERN' on) and is 'SHALLOW' set to true?
|
AP(DIAMOND1)
|
Draw the fill pattern 'DIAMOND1' from the symbol library and show it on top of the area's colour fill.
|
Return
|
Return to the calling procedure
|