ui.gadgets.plot: Use the new slate
parent
22f2a0d856
commit
52085a4e49
extra/ui/gadgets/plot
|
@ -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 ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue