charts.lines: reduce the amount of data copying in draw-lines
parent
5c0fa9c94e
commit
8a87a8077e
|
@ -172,8 +172,8 @@ ALIAS: y second
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
: draw-line ( seq -- )
|
: draw-line ( seq -- )
|
||||||
dup dup length odd? [ [ 1 head* ] dip ] [ 1 head* ] if
|
dup [ 1 head-slice* ] over length odd? [ dip ] [ call ] if
|
||||||
1 tail append
|
1 tail-slice append
|
||||||
[ (line-vertices) gl-vertex-pointer GL_LINES 0 ] keep
|
[ (line-vertices) gl-vertex-pointer GL_LINES 0 ] keep
|
||||||
length glDrawArrays ;
|
length glDrawArrays ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue