ui.gadgets.plot: Use the new slate

db4
Eduardo Cavazos 2008-07-31 16:13:27 -05:00
parent 22f2a0d856
commit 52085a4e49
1 changed files with 5 additions and 3 deletions

View File

@ -47,12 +47,14 @@ M: function plot-function ( plot function -- plot )
[ [ drop 0 ] [ y-min>> ] bi 2array ]
[ [ drop 0 ] [ y-max>> ] bi 2array ] bi line* ;
M: plot draw-gadget* ( plot -- )
dup call-next-method
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
USING: ui.gadgets.slate ;
M: plot draw-slate ( plot -- plot )
2 glLineWidth
draw-axis
plot-functions
drop
fill-mode
1 glLineWidth ;