remove graphics from unmaintained

diff --git a/unmaintained/graphics/authors.txt b/unmaintained/graphics/authors.txt
deleted file mode 100644 (file)
index 7c1b2f2..0000000
--- a/unmaintained/graphics/authors.txt
+++ /dev/null
@@ -1 +0,0 @@
-Doug Coleman

diff --git a/unmaintained/graphics/bitmap/authors.txt b/unmaintained/graphics/bitmap/authors.txt
deleted file mode 100755 (executable)
index 7c1b2f2..0000000
--- a/unmaintained/graphics/bitmap/authors.txt
+++ /dev/null
@@ -1 +0,0 @@
-Doug Coleman

diff --git a/unmaintained/graphics/bitmap/bitmap.factor b/unmaintained/graphics/bitmap/bitmap.factor
deleted file mode 100755 (executable)
index d2ddad0..0000000
--- a/unmaintained/graphics/bitmap/bitmap.factor
+++ /dev/null
@@ -1,134 +0,0 @@
-! Copyright (C) 2007 Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
-
-USING: alien arrays byte-arrays combinators summary
-io.backend graphics.viewer io io.binary io.files kernel libc
-math math.functions namespaces opengl opengl.gl prettyprint
-sequences strings ui ui.gadgets.panes io.encodings.binary ;
-IN: graphics.bitmap
-
-! Currently can only handle 24bit bitmaps.
-! Handles row-reversed bitmaps (their height is negative)
-
-TUPLE: bitmap magic size reserved offset header-length width
-    height planes bit-count compression size-image
-    x-pels y-pels color-used color-important rgb-quads color-index array ;
-
-: raw-bitmap>string ( str n -- str )
-    {
-        { 32 [ "32bit" throw ] }
-        { 24 [ ] }
-        { 16 [ "16bit" throw ] }
-        { 8 [ "8bit" throw ] }
-        { 4 [ "4bit" throw ] }
-        { 2 [ "2bit" throw ] }
-        { 1 [ "1bit" throw ] }
-    } case ;
-
-ERROR: bitmap-magic ;
-
-M: bitmap-magic summary
-    drop "First two bytes of bitmap stream must be 'BM'" ;
-
-: parse-file-header ( bitmap -- )
-    2 read >string dup "BM" = [ bitmap-magic ] unless
-        over set-bitmap-magic
-    4 read le> over set-bitmap-size
-    4 read le> over set-bitmap-reserved
-    4 read le> swap set-bitmap-offset ;
-
-: parse-bitmap-header ( bitmap -- )
-    4 read le> over set-bitmap-header-length
-    4 read le> over set-bitmap-width
-    4 read le> over set-bitmap-height
-    2 read le> over set-bitmap-planes
-    2 read le> over set-bitmap-bit-count
-    4 read le> over set-bitmap-compression
-    4 read le> over set-bitmap-size-image
-    4 read le> over set-bitmap-x-pels
-    4 read le> over set-bitmap-y-pels
-    4 read le> over set-bitmap-color-used
-    4 read le> swap set-bitmap-color-important ;
-
-: rgb-quads-length ( bitmap -- n )
-    [ bitmap-offset 14 - ] keep bitmap-header-length - ;
-
-: color-index-length ( bitmap -- n )
-    [ bitmap-width ] keep [ bitmap-planes * ] keep
-    [ bitmap-bit-count * 31 + 32 /i 4 * ] keep
-    bitmap-height abs * ;
-
-: parse-bitmap ( bitmap -- )
-    dup rgb-quads-length read over set-bitmap-rgb-quads
-    dup color-index-length read swap set-bitmap-color-index ;
-
-: load-bitmap ( path -- bitmap )
-    normalize-path binary [
-        T{ bitmap } clone
-        dup parse-file-header
-        dup parse-bitmap-header
-        dup parse-bitmap
-    ] with-file-reader
-    dup bitmap-color-index over bitmap-bit-count
-    raw-bitmap>string >byte-array over set-bitmap-array ;
-
-: save-bitmap ( bitmap path -- )
-    binary [
-        "BM" write
-        dup bitmap-array length 14 + 40 + 4 >le write
-        0 4 >le write
-        54 4 >le write
-
-        40 4 >le write
-        dup bitmap-width 4 >le write
-        dup bitmap-height 4 >le write
-        dup bitmap-planes 1 or 2 >le write
-        dup bitmap-bit-count 24 or 2 >le write
-        dup bitmap-compression 0 or 4 >le write
-        dup bitmap-size-image 4 >le write
-        dup bitmap-x-pels 4 >le write
-        dup bitmap-y-pels 4 >le write
-        dup bitmap-color-used 4 >le write
-        dup bitmap-color-important 4 >le write
-        dup bitmap-rgb-quads write
-        bitmap-color-index write
-    ] with-file-writer ;
-
-M: bitmap draw-image ( bitmap -- )
-    dup bitmap-height 0 < [
-        0 0 glRasterPos2i
-        1.0 -1.0 glPixelZoom
-    ] [
-        0 over bitmap-height abs glRasterPos2i
-        1.0 1.0 glPixelZoom
-    ] if
-    [ bitmap-width ] keep
-    [
-        [ bitmap-height abs ] keep
-        bitmap-bit-count {
-            ! { 32 [ GL_BGRA GL_UNSIGNED_INT_8_8_8_8 ] } ! broken
-            { 24 [ GL_BGR GL_UNSIGNED_BYTE ] }
-        } case
-    ] keep bitmap-array glDrawPixels ;
-
-M: bitmap width ( bitmap -- ) bitmap-width ;
-M: bitmap height ( bitmap -- ) bitmap-height ;
-
-: bitmap. ( path -- )
-    load-bitmap <graphics-gadget> gadget. ;
-
-: bitmap-window ( path -- gadget )
-    load-bitmap <graphics-gadget> [ "bitmap" open-window ] keep ;
-
-: test-bitmap24 ( -- )
-    "resource:extra/graphics/bitmap/test-images/thiswayup24.bmp" bitmap. ;
-
-: test-bitmap8 ( -- )
-    "resource:extra/graphics/bitmap/test-images/rgb8bit.bmp" bitmap. ;
-
-: test-bitmap4 ( -- )
-    "resource:extra/graphics/bitmap/test-images/rgb4bit.bmp" bitmap. ;
-
-: test-bitmap1 ( -- )
-    "resource:extra/graphics/bitmap/test-images/1bit.bmp" bitmap. ;
-

diff --git a/unmaintained/graphics/bitmap/test-images/1bit.bmp b/unmaintained/graphics/bitmap/test-images/1bit.bmp
deleted file mode 100644 (file)
index 2f244c1..0000000
Binary files a/unmaintained/graphics/bitmap/test-images/1bit.bmp and /dev/null differ

diff --git a/unmaintained/graphics/bitmap/test-images/rgb4bit.bmp b/unmaintained/graphics/bitmap/test-images/rgb4bit.bmp
deleted file mode 100644 (file)
index 0c6f00d..0000000
Binary files a/unmaintained/graphics/bitmap/test-images/rgb4bit.bmp and /dev/null differ

diff --git a/unmaintained/graphics/bitmap/test-images/rgb8bit.bmp b/unmaintained/graphics/bitmap/test-images/rgb8bit.bmp
deleted file mode 100644 (file)
index bc95c0f..0000000
Binary files a/unmaintained/graphics/bitmap/test-images/rgb8bit.bmp and /dev/null differ

diff --git a/unmaintained/graphics/bitmap/test-images/thiswayup24.bmp b/unmaintained/graphics/bitmap/test-images/thiswayup24.bmp
deleted file mode 100644 (file)
index 202fb15..0000000
Binary files a/unmaintained/graphics/bitmap/test-images/thiswayup24.bmp and /dev/null differ

diff --git a/unmaintained/graphics/tags.txt b/unmaintained/graphics/tags.txt
deleted file mode 100644 (file)
index 04b54a0..0000000
--- a/unmaintained/graphics/tags.txt
+++ /dev/null
@@ -1 +0,0 @@
-bitmap graphics

diff --git a/unmaintained/graphics/viewer/authors.txt b/unmaintained/graphics/viewer/authors.txt
deleted file mode 100755 (executable)
index 7c1b2f2..0000000
--- a/unmaintained/graphics/viewer/authors.txt
+++ /dev/null
@@ -1 +0,0 @@
-Doug Coleman

diff --git a/unmaintained/graphics/viewer/viewer.factor b/unmaintained/graphics/viewer/viewer.factor
deleted file mode 100644 (file)
index 938dc61..0000000
--- a/unmaintained/graphics/viewer/viewer.factor
+++ /dev/null
@@ -1,26 +0,0 @@
-! Copyright (C) 2007 Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
-
-USING: arrays kernel math math.functions namespaces opengl
-ui.gadgets ui.render ;
-IN: graphics.viewer
-
-TUPLE: graphics-gadget image ;
-
-GENERIC: draw-image ( image -- )
-GENERIC: width ( image -- w )
-GENERIC: height ( image -- h )
-
-M: graphics-gadget pref-dim*
-    graphics-gadget-image
-    [ width ] keep height abs 2array ;
-
-M: graphics-gadget draw-gadget* ( gadget -- )
-    origin get [
-        graphics-gadget-image draw-image
-    ] with-translation ;
-
-: <graphics-gadget> ( bitmap -- gadget )
-    \ graphics-gadget construct-gadget
-    [ set-graphics-gadget-image ] keep ;
-