steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

charts: use clip-data in draw-gadget*

char-rename
Alexander Iljin 2017-01-13 13:59:07 +03:00 committed by John Benediktsson
parent 72c1ccba96
commit b357c62122
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
charts.factor
View File

@ -83,7 +83,7 @@ PRIVATE>
! Return the bottom-left and top-right corners of the visible area. ! Return the bottom-left and top-right corners of the visible area.
: chart-axes ( chart -- seq ) : chart-axes ( chart -- seq )
drop { { 0 300 } { 300 0 } } ; drop { { 0 300 } { 0 300 } } ;
! There are several things to do to present data on the screen. ! There are several things to do to present data on the screen.
! Map the data coordinates to the screen coordinates. ! Map the data coordinates to the screen coordinates.
@ -92,9 +92,9 @@ PRIVATE>
M: line draw-gadget* M: line draw-gadget*
dup parent>> dup chart? [ dup parent>> dup chart? [
chart-axes drop chart-axes swap
[ color>> gl-color ] [ color>> gl-color ] [ data>> ] bi
[ data>> draw-line ] bi clip-data [ draw-line ] unless-empty
] [ 2drop ] if ; ] [ 2drop ] if ;
! chart new line new COLOR: blue >>color { { 0 100 } { 100 0 } { 100 50 } { 150 50 } { 200 100 } } >>data add-gadget gadget. ! chart new line new COLOR: blue >>color { { 0 100 } { 100 0 } { 100 50 } { 150 50 } { 200 100 } } >>data add-gadget gadget.