Changeset 110 for widgets/pie-chart.r
- Timestamp:
- 12/24/07 07:12:10 (11 months ago)
- Files:
-
- 1 modified
-
widgets/pie-chart.r (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
widgets/pie-chart.r
r76 r110 12 12 [explode n] when n is the number of pixels 13 13 } 14 size: 50x50 14 15 feel: make default-feel [ 15 16 redraw: make function! [face act pos /local plot total angle pie-size label-offset label-distance label-size] [ … … 47 48 degrees: 270 ; default start angle (note that 0 is horizontal) 48 49 init: make function! [] [ 50 data: reduce data 49 51 explode: any [select options 'explode 0] 50 52 if select options 'start [
