Tags:
create new tag
view all tags

.PIE SET LBL JN LN CLR

This subroutine sets the color of the lines that join the pie sector perimeter with the pie sector labels for all pie sectors, a range of pie sectors, an individual pie sector, or the "current" pie sector..


Usage:

      PASS         <color_spec_name>          FIELD            SHARE? N
      *        OR
      PASS         <color_value>              FIELD            SHARE? N    
      PASS         <beg_sect_no>              FIELD            SHARE? N
      PASS         <end_sect_no>              FIELD            SHARE? N
      GOSUB    0CD .PIE SET LBL JN LN CLR
      *        Check for error
      IF       0CD .PIE SET LBL JN LN CLR     NE

Description:

This subroutine sets the color of the lines that join the pie sector perimeter with the pie sector labels for all pie sectors, a range of pie sectors, an individual pie sector, or the "current" pie sector.

If a color parameter is not received or if the value received is blank, then the line color of the sector spec is cleared and the default color will be rendered.

If a color parameter is received, the system first assumes that the value received is a <color_spec_name> and checks to see if a color spec record has been previously initialized with that name. If a color spec record is found, then that color spec record is used as a prototype to create a color spec for the sector background color. If a color spec record is not found, then the system assumes that the value received is a literal <color_value> and uses the specified color to create a color spec for the line color.

If <beg_sect_no> is "ALL" or "0" and <end_sect_no> is not received or is blank, then <lbl_dist> applies to all pie

sectors.

If <beg_sect_no> and <end_sect_no> are both received and are both numeric integers, then <lbl_dist> applies to the range

of pie sectors from <beg_sect_no> thru <end_sect_no> and is stored in the corresponding pie sector specs.

If <beg_sect_no> is received and is a numeric integer and <end_sect_no> is not received or is blank, then <lbl_dist>

applies only to the <beg_sect_no> pie sector and is stored in the <beg_sect_no> pie sector spec.

If <beg_sect_no> and <end_sect_no> are both not received or are blank, then <lbl_dist> applies to the "current" pie sector and is stored in the "current" pie sector spec.

Any pie sector specs that are referenced but which do not exist are automatically created and initialized so that the <lbl_dist> can be stored.

The last pie sector spec updated becomes the "current" pie sector spec.

See ColorSpec for more information on working with colors.

Comments:

Read what other users have said about this page or add your own comments.


-- JeanNeron - 2011-10-05

Edit | Attach | Watch | Print version | History: r3 < r2 < r1 | Backlinks | Raw View | Raw edit | More topic actions
Topic revision: r3 - 2012-02-24 - JeanNeron
 
This site is powered by the TWiki collaboration platform Powered by PerlCopyright © 2008-2024 by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding TWiki? Send feedback