utils: add various gimp files to a centralized location

utils/gimp/Apple II Lores.gpl

@@ -0,0 +1,20 @@
+GIMP Palette
+Name: Apple II Lores
+Columns: 0
+#
+  0   0   0 Untitled
+227  30  96 Untitled
+ 96  78 189 Untitled
+255  68 253 Untitled
+  0 163  96 Untitled
+156 156 156 Untitled
+ 20 207 253 Untitled
+208 195 255 Untitled
+255 106  60 Untitled
+157 157 157 Untitled
+255 160 208 Untitled
+ 20 245  60 Untitled
+208 221 141 Untitled
+114 255 208 Untitled
+255 255 255 Untitled
+

utils/gimp/README

@@ -0,0 +1,5 @@
+
+roto.scm:	script-fu for rotoscoping Riven files
+	copy to ~/.config/GIMP/2.10/scripts or equivalent
+
+

utils/gimp/hgr.pal

@@ -0,0 +1,10 @@
+GIMP Palette
+Name: Apple II HGR
+Columns: 0
+#
+  0   0   0	Black
+ 27 203   1	Green
+228  52 254	Purple
+255 255 255	White
+205  91   1	Orange
+ 27 154 254	Blue

utils/gimp/roto.scm

@@ -0,0 +1,66 @@
+;; Basic script-fu template.
+;; 
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License.
+
+(define (script-fu-roto img drawable)
+    (gimp-image-undo-group-start img)
+    (gimp-context-push)
+
+    ;; Do stuff here
+
+    (gimp-image-scale img 280 201)
+    (gimp-image-crop img 280 192 0 0)
+    (gimp-image-grid-set-spacing img 7 4)
+    (gimp-image-grid-set-foreground-color img '(54 5 5))
+
+	(gimp-floating-sel-anchor
+		(car (gimp-edit-paste drawable TRUE)))
+
+    ; create a new image:
+ 
+	; car returns first item of list
+
+;        (theImage (car
+ ;                   (gimp-image-new
+  ;                               280
+   ;                              192
+    ;                             RGB
+     ;                           )
+      ;                     )
+;	)
+
+	;create a new layer for the image:
+;        (theLayer
+ ;       	(car
+  ;              	(gimp-layer-new
+   ;                     	img
+    ;                       	280
+     ;                      	192
+      ;                     	RGB-IMAGE
+       ;                    	"layer 1"
+        ;                   	100
+         ;                 	LAYER-MODE-NORMAL
+	;		)
+	;	)
+;	)
+  
+ ;   (gimp-image-insert-layer img theLayer 0 0)
+
+    (gimp-context-pop)
+    (gimp-image-undo-group-end img)
+    (gimp-displays-flush)
+)
+
+(script-fu-register "script-fu-roto"
+                    _"<Image>/Filters/Generic/vmw-roto"
+                    _"rotoscoping"
+                    "Vince Weaver"
+                    "Copyright Owner"
+                    "2024"
+                    "*"    ; type of image, e.g. "RGB*", or "" for Xtns
+                    ; List all parameters here, starting with
+                    ; image and drawable if this script takes them:
+                    SF-IMAGE       "Image"              0
+                    SF-DRAWABLE    "Drawable"           0
+)