draw-gadget* ( gadget -- )
Factor handbook » UI framework » Implementing new gadgets » Customizing gadget appearance » Implementing custom drawing logic

Next:

find-gl-context ( gadget -- )

Vocabulary
ui.render

Inputs

gadget

a gadget

Outputs
None

Generic word contract
Draws the gadget by making OpenGL calls. The top-left corner of the gadget should be drawn at the location stored in the origin variable.

Notes
This word should not be called directly. To force a gadget to redraw, call relayout-1.

Definition

IN: ui.render

GENERIC: draw-gadget* ( gadget -- )

Methods

USING: L-system accessors colors opengl opengl.demo-support
opengl.gl ui.render ;

M:: L-system draw-gadget* ( L-SYSTEM -- )
    COLOR: black gl-clear GL_FLAT glShadeModel
    GL_PROJECTION glMatrixMode
    glLoadIdentity -1 1 -1 1 1.5 200 glFrustum
    GL_MODELVIEW glMatrixMode
    glLoadIdentity L-SYSTEM camera>> do-camera-look-at
    GL_FRONT_AND_BACK GL_LINE glPolygonMode
    COLOR: white gl-color GL_LINES glBegin { 0 0 0 } gl-vertex
    { 0 0 1 } gl-vertex
    glEnd L-SYSTEM pedestal>> 0 0 1 glRotated
    L-SYSTEM display-list>> glCallList ;


USING: accessors images.viewer.private images.viewer.scaling
images.viewer.scaling.private kernel opengl.textures ui.gadgets
ui.render ;

M: autoscaling-image-gadget draw-gadget*
    dup image>> [
        [ pref-dim ]
        [ image-gadget-texture draw-scaled-texture ]
        [ trigger-root-relayout ] tri
    ] [ drop ] if ;


USING: accessors colors kernel locals.backend sequences
ui.gadgets.charts ui.gadgets.charts.axes
ui.gadgets.charts.axes.private ui.gadgets.charts.lines
ui.gadgets.charts.utils ui.render ;

M: axis draw-gadget*
    dup parent>> dup chart? [
        2 load-locals COLOR: black -1 get-local default-color
        0 get-local -1 get-local chart-dims [ axis-pos ] keep
        first2 swap scale
        0 get-local dim>> first2 -1 get-local axis-line
        draw-line 2 drop-locals
    ] [ 2drop ] if ;


USING: kernel ui.gadgets.debug ui.render ;

M: bad-gadget draw-gadget* "Lulz" throw ;


USING: combinators gamelib.ui ui.render ;

M: board-gadget draw-gadget*
    { [ draw-background-color ] [ draw-all ] } cleave ;


USING: accessors boids ui.render ;

M: boids-gadget draw-gadget* boids>> draw-boids ;


USING: accessors cairo-demo kernel opengl.gl ui.render ;

M: cairo-demo-gadget draw-gadget*
    0 0 glRasterPos2i 1.0 -1.0 glPixelZoom
    [ 384 256 GL_RGBA GL_UNSIGNED_BYTE ] dip
    image-array>> glDrawPixels ;


USING: accessors cairo-gadgets destructors kernel opengl.gl
sequences ui.render ;

M: cairo-gadget draw-gadget*
    [
        [ dim>> ] [ render-cairo ] bi 0 0 glRasterPos2i
        1.0 -1.0 glPixelZoom
        [ first2 GL_BGRA GL_UNSIGNED_BYTE ] dip glDrawPixels
    ] with-destructors ;


USING: accessors ui.gadgets.tables.private ui.render ;

M: column-headers draw-gadget* table>> draw-column-titles ;


USING: kernel namespaces ui.gadgets.editors
ui.gadgets.editors.private ui.gadgets.line-support ui.render ;

M: editor draw-gadget*
    dup draw-default-text? [
        [ draw-default-text ] [ draw-caret ]
        [ draw-preedit-underlines ] tri
    ] [
        dup compute-selection selected-lines [
            [ draw-lines ] [ draw-caret ]
            [ draw-preedit-underlines ] tri
        ] with-variable
    ] if ;


USING: accessors math.vectors opengl.gl sequences
ui.gadgets.frame-buffer ui.render ;

M:: frame-buffer draw-gadget* ( FRAME-BUFFER -- )
    FRAME-BUFFER dim>> { 0 1 } v* first2 glRasterPos2i
    FRAME-BUFFER draw-pixels FRAME-BUFFER update-frame-buffer
    glFlush FRAME-BUFFER read-pixels ;


USING: kernel ui.gadgets ui.render ;

M: gadget draw-gadget* drop ;


USING: game-of-life kernel ui.render ;

M: grid-gadget draw-gadget*
    [ update-grid ] [ draw-cells ] [ draw-lines ] tri ;


USING: accessors combinators minesweeper ui.render ;

M: grid-gadget draw-gadget*
    {
        [ draw-hint ]
        [ cells>> #mines-remaining ]
        [ draw-mines ]
        [ draw-smiley ]
        [ elapsed-time ]
        [ draw-timer ]
        [ draw-cells ]
    } cleave ;


USING: accessors kernel ui.gadgets.icons ui.pens ui.render ;

M: icon draw-gadget*
    dup image>> [ draw-interior ] [ drop ] if* ;


USING: generic images.viewer images.viewer.private kernel
ui.render ;

M: image-control draw-gadget*
    [ ?update-texture ]
    [ M\ image-control draw-gadget* (call-next-method) ] bi ;


USING: accessors images.viewer images.viewer.private kernel
opengl.textures ui.render ;

M: image-gadget draw-gadget*
    dup image>> [
        [ dim>> ] [ image-gadget-texture ] bi
        draw-scaled-texture
    ] [ drop ] if ;


USING: accessors kernel opengl.gl roms.space-invaders ui.render
;

M: invaders-gadget draw-gadget*
    0 0 glRasterPos2i 1.0 -1.0 glPixelZoom
    [ 224 256 GL_RGB GL_UNSIGNED_BYTE ] dip
    cpu>> bitmap>> glDrawPixels ;


USING: accessors jamshred jamshred.gl kernel sequences ui.render
;

M: jamshred-gadget draw-gadget*
    [ jamshred>> ] [ dim>> first2 draw-jamshred ] bi ;


USING: fonts kernel ui.gadgets.labels ui.gadgets.labels.private
ui.render ui.text ;

M: label draw-gadget*
    [ >label< ] keep
    [ label-background [ font-with-background ] when* ]
    [ label-foreground [ font-with-foreground ] when* ] bi-curry
    compose dip draw-text ;


USING: accessors colors kernel locals.backend sequences
ui.gadgets.charts ui.gadgets.charts.lines
ui.gadgets.charts.lines.private ui.gadgets.charts.utils
ui.render ;

M: line draw-gadget*
    dup parent>> dup chart? [
        2 load-locals
        0 get-local chart-axes COLOR: black -1 get-local
        [ default-color ] [ data>> ] bi dupd clip-data
        swap second [ drawable-chunks ] keep flip-y-axis
        0 get-local chart-dim first2 0 get-local [
            load-local
            0 get-local chart-axes first2 1 drop-locals
        ] curry dip swap scale-chunks [ draw-line ] each
        2 drop-locals
    ] [ 2drop ] if ;


USING: accessors kernel math.rectangles namespaces opengl
ui.gadgets.lists ui.render ;

M: list draw-gadget*
    origin get [
        dup color>> gl-color selected-rect
        [ rect-bounds gl-fill-rect ] when*
    ] with-translation ;


USING: maze ui.gadgets.canvas ui.render ;

M: maze draw-gadget* [ n draw-maze ] draw-canvas ;


USING: kernel math nehe.2 opengl.demo-support opengl.gl
opengl.glu ui.render ;

M: nehe2-gadget draw-gadget*
    drop GL_PROJECTION glMatrixMode
    glLoadIdentity 45.0 width height /
    >float 0.1 100.0 gluPerspective GL_MODELVIEW glMatrixMode
    glLoadIdentity GL_SMOOTH glShadeModel
    0.0 0.0 0.0 0.0 glClearColor 1.0 glClearDepth
    GL_DEPTH_TEST glEnable GL_LEQUAL glDepthFunc
    GL_PERSPECTIVE_CORRECTION_HINT GL_NICEST glHint
    GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT bitor glClear
    glLoadIdentity -1.5 0.0 -6.0 glTranslatef GL_TRIANGLES [
        0.0 1.0 0.0 glVertex3f -1.0 -1.0 0.0 glVertex3f
        1.0 -1.0 0.0 glVertex3f
    ] do-state 3.0 0.0 0.0 glTranslatef GL_QUADS [
        -1.0 1.0 0.0 glVertex3f 1.0 1.0 0.0 glVertex3f
        1.0 -1.0 0.0 glVertex3f -1.0 -1.0 0.0 glVertex3f
    ] do-state ;


USING: kernel math nehe.3 opengl.demo-support opengl.gl
opengl.glu ui.render ;

M: nehe3-gadget draw-gadget*
    drop GL_PROJECTION glMatrixMode
    glLoadIdentity 45.0 width height /
    >float 0.1 100.0 gluPerspective GL_MODELVIEW glMatrixMode
    glLoadIdentity GL_SMOOTH glShadeModel
    0.0 0.0 0.0 0.0 glClearColor 1.0 glClearDepth
    GL_DEPTH_TEST glEnable GL_LEQUAL glDepthFunc
    GL_PERSPECTIVE_CORRECTION_HINT GL_NICEST glHint
    GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT bitor glClear
    glLoadIdentity -1.5 0.0 -6.0 glTranslatef GL_TRIANGLES [
        1.0 0.0 0.0 glColor3f 0.0 1.0 0.0 glVertex3f
        0.0 1.0 0.0 glColor3f -1.0 -1.0 0.0 glVertex3f
        0.0 0.0 1.0 glColor3f 1.0 -1.0 0.0 glVertex3f
    ] do-state 3.0 0.0 0.0 glTranslatef 0.5 0.5 1.0 glColor3f
    GL_QUADS [
        -1.0 1.0 0.0 glVertex3f 1.0 1.0 0.0 glVertex3f
        1.0 -1.0 0.0 glVertex3f -1.0 -1.0 0.0 glVertex3f
    ] do-state ;


USING: accessors kernel math nehe.4 opengl.demo-support
opengl.gl opengl.glu ui.render ;

M: nehe4-gadget draw-gadget*
    GL_PROJECTION glMatrixMode
    glLoadIdentity 45.0 width height /
    >float 0.1 100.0 gluPerspective GL_MODELVIEW glMatrixMode
    glLoadIdentity GL_SMOOTH glShadeModel
    0.0 0.0 0.0 0.0 glClearColor 1.0 glClearDepth
    GL_DEPTH_TEST glEnable GL_LEQUAL glDepthFunc
    GL_PERSPECTIVE_CORRECTION_HINT GL_NICEST glHint
    GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT bitor glClear
    glLoadIdentity -1.5 0.0 -6.0 glTranslatef
    dup rtri>> 0.0 1.0 0.0 glRotatef GL_TRIANGLES [
        1.0 0.0 0.0 glColor3f 0.0 1.0 0.0 glVertex3f
        0.0 1.0 0.0 glColor3f -1.0 -1.0 0.0 glVertex3f
        0.0 0.0 1.0 glColor3f 1.0 -1.0 0.0 glVertex3f
    ] do-state glLoadIdentity 1.5 0.0 -6.0 glTranslatef
    dup rquad>> 1.0 0.0 0.0 glRotatef 0.5 0.5 1.0 glColor3f
    GL_QUADS [
        -1.0 1.0 0.0 glVertex3f 1.0 1.0 0.0 glVertex3f
        1.0 -1.0 0.0 glVertex3f -1.0 -1.0 0.0 glVertex3f
    ] do-state [ 0.2 + ] change-rtri [ 0.15 - ] change-rquad
    drop ;


USING: accessors kernel math nehe.5 opengl.demo-support
opengl.gl opengl.glu ui.render ;

M: nehe5-gadget draw-gadget*
    GL_PROJECTION glMatrixMode
    glLoadIdentity 45.0 width height /
    >float 0.1 100.0 gluPerspective GL_MODELVIEW glMatrixMode
    glLoadIdentity GL_SMOOTH glShadeModel
    0.0 0.0 0.0 0.0 glClearColor 1.0 glClearDepth
    GL_DEPTH_TEST glEnable GL_LEQUAL glDepthFunc
    GL_PERSPECTIVE_CORRECTION_HINT GL_NICEST glHint
    GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT bitor glClear
    glLoadIdentity -1.5 0.0 -6.0 glTranslatef
    dup rtri>> 0.0 1.0 0.0 glRotatef GL_TRIANGLES [
        1.0 0.0 0.0 glColor3f 0.0 1.0 0.0 glVertex3f
        0.0 1.0 0.0 glColor3f -1.0 -1.0 1.0 glVertex3f
        0.0 0.0 1.0 glColor3f 1.0 -1.0 1.0 glVertex3f
        1.0 0.0 0.0 glColor3f 0.0 1.0 0.0 glVertex3f
        0.0 0.0 1.0 glColor3f 1.0 -1.0 1.0 glVertex3f
        0.0 1.0 0.0 glColor3f 1.0 -1.0 -1.0 glVertex3f
        1.0 0.0 0.0 glColor3f 0.0 1.0 0.0 glVertex3f
        0.0 1.0 0.0 glColor3f 1.0 -1.0 -1.0 glVertex3f
        0.0 0.0 1.0 glColor3f -1.0 -1.0 -1.0 glVertex3f
        1.0 0.0 0.0 glColor3f 0.0 1.0 0.0 glVertex3f
        0.0 0.0 1.0 glColor3f -1.0 -1.0 -1.0 glVertex3f
        0.0 1.0 0.0 glColor3f -1.0 -1.0 1.0 glVertex3f
    ] do-state glLoadIdentity 1.5 0.0 -7.0 glTranslatef
    dup rquad>> 1.0 0.0 0.0 glRotatef GL_QUADS [
        0.0 1.0 0.0 glColor3f 1.0 1.0 -1.0 glVertex3f
        -1.0 1.0 -1.0 glVertex3f -1.0 1.0 1.0 glVertex3f
        1.0 1.0 1.0 glVertex3f 1.0 0.5 0.0 glColor3f
        1.0 -1.0 1.0 glVertex3f -1.0 -1.0 1.0 glVertex3f
        -1.0 -1.0 -1.0 glVertex3f 1.0 -1.0 -1.0 glVertex3f
        1.0 0.0 0.0 glColor3f 1.0 1.0 1.0 glVertex3f
        -1.0 1.0 1.0 glVertex3f -1.0 -1.0 1.0 glVertex3f
        1.0 -1.0 1.0 glVertex3f 1.0 1.0 0.0 glColor3f
        1.0 -1.0 -1.0 glVertex3f -1.0 -1.0 -1.0 glVertex3f
        -1.0 1.0 -1.0 glVertex3f 1.0 1.0 -1.0 glVertex3f
        0.0 0.0 1.0 glColor3f -1.0 1.0 1.0 glVertex3f
        -1.0 1.0 -1.0 glVertex3f -1.0 -1.0 -1.0 glVertex3f
        -1.0 -1.0 1.0 ~21 more~
    ] do-state [ 0.2 + ] change-rtri [ 0.15 - ] change-rquad
    drop ;


USING: accessors arrays colors kernel math opengl pong ranges
sequences ui.render ui.text ;

M:: pong-gadget draw-gadget* ( PONG -- )
    COLOR: gray80 gl-color 15 390 20 <range>
    [ 197 2array { 10 6 } gl-fill-rect ] each
    COLOR: black gl-color { 0 0 } { 10 400 } gl-fill-rect
    { 390 0 } { 10 400 } gl-fill-rect PONG computer>> 0 2array
    PADDLE-DIM gl-fill-rect PONG player>> 390 2array
    PADDLE-DIM gl-fill-rect
    PONG ball>> pos>> BALL-DIM gl-fill-rect PONG game-over?>> [
        FONT 48 >>size PONG ball>> pos>> second 200 <
        "YOU WIN!" "YOU LOSE!" ?
        [ text-width 390 swap - 2 / 100 2array ]
        [ [ draw-text ] 2curry with-translation ] 2bi
    ] [
        PONG timer>> thread>> [
            FONT 24 >>size
            { "    N - New Game" "SPACE - Pause" }
            [ text-width 390 swap - 2 / 100 2array ]
            [ [ draw-text ] 2curry with-translation ] 2bi
        ] unless
    ] if ;


USING: accessors images.viewer.private images.viewer.scaling
kernel opengl.textures ui.gadgets ui.render ;

M: scaling-image-gadget draw-gadget*
    dup image>> [
        [ pref-dim ]
        [ image-gadget-texture draw-scaled-texture ] bi
    ] [ drop ] if ;


USING: combinators kernel opengl.gl ui.gadgets.slate
ui.gadgets.worlds ui.render ;

M: slate draw-gadget*
    GL_PROJECTION glMatrixMode
    glPushMatrix glLoadIdentity establish-coordinate-system
    GL_MODELVIEW glMatrixMode
    glPushMatrix glLoadIdentity setup-viewport draw-slate
    GL_PROJECTION glMatrixMode
    glPopMatrix glLoadIdentity GL_MODELVIEW glMatrixMode
    glPopMatrix glLoadIdentity dup find-world dup
    { [ drop 0 ] [ width ] [ height ] [ drop 0 ] } cleave
    -1 1 glOrtho setup-viewport drop drop ;


USING: accessors kernel namespaces opengl snake-game.game
snake-game.ui ui.render ;

M: snake-gadget draw-gadget*
    [ textures>> game-textures ] keep [
        snake-game>>
        [ food-loc>> [ draw-food ] when* ] [
            [ snake-loc>> ] [ snake-dir>> opposite-dir ]
            [ snake>> ] tri draw-snake
        ] bi
    ] curry [ [ draw-background { 10 10 } ] ] dip
    [ with-translation ] curry compose with-variable ;


USING: accessors arrays kernel math math.order
math.splines.viewer math.splines.viewer.private
opengl.demo-support opengl.gl sequences ui.render ;

M:: spline-gadget draw-gadget* ( gadget -- )
    0 0 0 glColor3f gadget [ polynomials>> ] [ steps>> ] bi
    eval-polynomials :> pts pts [ first ] [ max ] map-reduce
    :> x-max pts [ first ] [ min ] map-reduce :> x-min pts
    [ second ] [ max ] map-reduce :> y-max pts
    [ second ] [ min ] map-reduce :> y-min pts [
        [
            first x-min - x-max x-min - /
            gadget spline-dim>> first *
        ] [
            second y-min - y-max y-min - /
            gadget spline-dim>> second *
        ] bi 2array
    ] map :> pts GL_LINE_STRIP [
        pts
        [ first2 neg gadget spline-dim>> second + glVertex2f ]
        each
    ] do-state ;


USING: combinators kernel namespaces sequences ui.gadgets
ui.gadgets.line-support ui.gadgets.tables
ui.gadgets.tables.private ui.render ;

M: table draw-gadget*
    dup control-value empty?
    [ drop ] [
        dup line-height \ line-height [
            {
                [ draw-selected-row ]
                [ draw-lines ]
                [ draw-column-lines ]
                [ draw-focused-row ]
                [ draw-moused-row ]
            } cleave
        ] with-variable
    ] if ;


USING: accessors kernel sequences tetris tetris.gl ui.render ;

M: tetris-gadget draw-gadget*
    [ [ dim>> first2 ] [ tetris>> ] bi draw-tetris ] keep
    update-status ;


USING: accessors colors namespaces opengl processing.shapes
trails ui.render ;

M:: trails-gadget draw-gadget* ( GADGET -- )
    T{ rgba { red 1 } { green 1 } { blue 1 } { alpha 0.4 } }
    fill-color set
    T{ rgba { red 0 } { green 0 } { blue 0 } { alpha 0 } }
    stroke-color set COLOR: black gl-clear GADGET points>>
    [ dot ] each-percent ;


USING: kernel ui.gadgets.paragraphs ui.render ;

M: word-break-gadget draw-gadget* drop ;