     ] if ;
 
 :: fix-right-chunk ( left right ymin ymax -- right' )
-    left last :> left-point right first :> right-point
+    left last :> left-point
+    right first :> right-point
     right-point y { [ ymin = ] [ ymax = ] } 1|| [
         right
     ] [

!    ] if ; inline

: scale-chunks ( chunks xwidth xmin,xmax yheight ymin,ymax -- chunks' )
    scale-mapper [ scale-mapper ] dip swap
    '[ [ first2 @ swap @ swap 2array ] map ] map ;

PRIVATE>

: draw-line ( seq -- )
    dup [ 1 head-slice* ] over length odd? [ dip ] [ call ] if
    1 tail-slice append
    [ (line-vertices) gl-vertex-pointer GL_LINES 0 ] keep
    length glDrawArrays ;


        dupd [ first ] dip clip-by-first
        dup empty? [ nip ] [
            [ second ] dip [ second-in-bounds? ] keep swap
            [ drop { } ] unless
        ] if
    ] if ;

