X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fimages%2Fviewer%2Fviewer.factor;h=faed31a0e5db95178796e408ddc066e2617e39be;hp=0b46cce42d33b75326b5f25bc9a70a71732e8bf9;hb=7b9491066cd4176d133f62d519f0e546a3a9a17c;hpb=83e8cdae1c5d1188e5018734674baa8c2d75f7a6 diff --git a/extra/images/viewer/viewer.factor b/extra/images/viewer/viewer.factor index 0b46cce42d..faed31a0e5 100644 --- a/extra/images/viewer/viewer.factor +++ b/extra/images/viewer/viewer.factor @@ -10,7 +10,7 @@ TUPLE: image-gadget < gadget { image image } ; M: image-gadget pref-dim* image>> dim>> ; -: draw-image ( tiff -- ) +: draw-image ( image -- ) 0 0 glRasterPos2i 1.0 -1.0 glPixelZoom [ dim>> first2 GL_RGBA GL_UNSIGNED_BYTE ] [ bitmap>> ] bi glDrawPixels ;