summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat
-rw-r--r--hexmap.scm1214
1 files changed, 612 insertions, 602 deletions
diff --git a/hexmap.scm b/hexmap.scm
index ed5efbe..a425ee2 100644
--- a/hexmap.scm
+++ b/hexmap.scm
@@ -1,602 +1,612 @@
-; hexmap.scm
-; by Jérémy Zurcher <jeremy@asynk.ch>
-; based on hex_grid by Rob Antonishen
-
-; Version 1.0 (2015)
-;
-
-; Description
-;
-; build hex map with nice options
-;
-
-; Issues
-;
-; for
-;
-
-; License:
-;
-; This program is free software; you can redistribute it and/or modify
-; it under the terms of the GNU General Public License as published by
-; the Free Software Foundation; either version 2 of the License, or
-; (at your option) any later version.
-;
-; This program is distributed in the hope that it will be useful,
-; but WITHOUT ANY WARRANTY; without even the implied warranty of
-; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-; GNU General Public License for more details.
-;
-; The GNU Public License is available at
-; http://www.gnu.org/copyleft/gpl.html
-
-(define (search l x y)
- (if (null? l)
- #f
- (if (and (= (vector-ref (car l) 0) x)
- (= (vector-ref (car l) 1) y))
- #t
- (search (cdr l) x y)
- )
- )
-)
-
-(define (maybe_add l x y)
- (set! x (/ (trunc (* x 1000)) 1000))
- (set! y (/ (trunc (* y 1000)) 1000))
- (if (search l x y)
- l
- (list* (vector x y) l)
- )
-)
-
-(define (crawl_hex_edges edges mask pressure)
- (if (not (null? edges))
- (begin
- (gimp-airbrush mask pressure 2 (car edges))
- (crawl_hex_edges (cdr edges) mask pressure)
- )
- )
-)
-
-(define (erase_hex_edges edges mask size)
- (gimp-context-set-brush-size (* 1.4 size))
- (gimp-context-set-foreground "black")
- (gimp-context-set-opacity 80)
- (gimp-context-set-brush "2. Hardness 025")
- (crawl_hex_edges edges mask 80)
-)
-
-(define (build_border_path border_edges border_path)
- (let*
- (
- (i 0)
- (y 0)
- (s (length border_edges))
- (n (* s 3))
- (v (make-vector n 0))
- )
- (while (< i s)
- (vector-set! v y (list-ref border_edges i))
- (vector-set! v (+ y 1) (list-ref border_edges (+ i 1)))
- (vector-set! v (+ y 2) (list-ref border_edges i))
- (vector-set! v (+ y 3) (list-ref border_edges (+ i 1)))
- (vector-set! v (+ y 4) (list-ref border_edges i))
- (vector-set! v (+ y 5) (list-ref border_edges (+ i 1)))
- (set! i (+ i 2))
- (set! y (+ y 6))
- )
- (gimp-vectors-stroke-new-from-points border_path 0 n v TRUE)
- )
-)
-
-(define (build_h_border_edges border_edges vx vy x y xBorder yBorder bRight bBottom)
- (if (and (>= x 0) (>= y 0) (<= x xBorder) (<= y yBorder))
- ; top ?
- (if (= y 0)
- (if (or (equal? bRight #t) (< x xBorder))
- (set! border_edges (append border_edges
- (list
- (vector-ref vx 4)
- (vector-ref vy 4)
- (vector-ref vx 3)
- (vector-ref vy 3)
- (vector-ref vx 2)
- (vector-ref vy 2)
- (vector-ref vx 1)
- (vector-ref vy 1)
- ))
- )
- (set! border_edges (append border_edges
- (list
- (vector-ref vx 4)
- (vector-ref vy 4)
- (vector-ref vx 5)
- (vector-ref vy 5)
- ))
- )
- )
- ; else bottom ?
- (if (= y yBorder)
- (if (= x 0)
- (set! border_edges (list*
- (vector-ref vx 7)
- (vector-ref vy 7)
- (vector-ref vx 6)
- (vector-ref vy 6)
- (vector-ref vx 5)
- (vector-ref vy 5)
- (vector-ref vx 4)
- (vector-ref vy 4)
- (vector-ref vx 3)
- (vector-ref vy 3)
- border_edges)
- )
- (if (< x xBorder)
- (set! border_edges (list*
- (vector-ref vx 7)
- (vector-ref vy 7)
- (vector-ref vx 6)
- (vector-ref vy 6)
- (vector-ref vx 5)
- (vector-ref vy 5)
- (vector-ref vx 4)
- (vector-ref vy 4)
- border_edges)
- )
- (if (equal? bRight #t)
- (set! border_edges (list*
- (vector-ref vx 2)
- (vector-ref vy 2)
- (vector-ref vx 1)
- (vector-ref vy 1)
- (vector-ref vx 6)
- (vector-ref vy 6)
- (vector-ref vx 5)
- (vector-ref vy 5)
- (vector-ref vx 4)
- (vector-ref vy 4)
- border_edges)
- )
- (set! border_edges (list*
- (vector-ref vx 4)
- (vector-ref vy 4)
- border_edges)
- )
- )
- )
- )
- ; else left ?
- (if (= x 0)
- (set! border_edges (list*
- (vector-ref vx 4)
- (vector-ref vy 4)
- (vector-ref vx 3)
- (vector-ref vy 3)
- border_edges)
- )
- ; else right ?
- (if (= x xBorder)
- (if (equal? bRight #t)
- (set! border_edges (append border_edges
- (list
- (vector-ref vx 2)
- (vector-ref vy 2)
- (vector-ref vx 1)
- (vector-ref vy 1)
- ))
- )
- (set! border_edges (append border_edges
- (list
- (vector-ref vx 4)
- (vector-ref vy 4)
- (vector-ref vx 5)
- (vector-ref vy 5)
- ))
- )
- )
- )
- )
- )
- )
- )
- border_edges
-)
-
-(define (build_v_border_edges border_edges vx vy x y xBorder yBorder bRight bBottom)
- (if (and (>= x 0) (>= y 0) (<= x xBorder) (<= y yBorder))
- ; top ?
- (if (= y 0)
- ; top left
- (if (= x 0)
- (set! border_edges (append border_edges
- (list
- (vector-ref vx 1)
- (vector-ref vy 1)
- (vector-ref vx 2)
- (vector-ref vy 2)
- (vector-ref vx 3)
- (vector-ref vy 3)
- (vector-ref vx 4)
- (vector-ref vy 4)
- (vector-ref vx 5)
- (vector-ref vy 5)
- ))
- )
- (if (= x xBorder)
- (set! border_edges (append border_edges
- (list
- (vector-ref vx 4)
- (vector-ref vy 4)
- (vector-ref vx 5)
- (vector-ref vy 5)
- (vector-ref vx 6)
- (vector-ref vy 6)
- (vector-ref vx 7)
- (vector-ref vy 7)
- ))
- )
- (set! border_edges (append border_edges
- (list
- (vector-ref vx 4)
- (vector-ref vy 4)
- (vector-ref vx 5)
- (vector-ref vy 5)
- ))
- )
- )
- )
- ; else bottom ?
- (if (= y yBorder)
- (if (equal? bBottom #t)
- (if (= x 0)
- (set! border_edges (list*
- (vector-ref vx 6)
- (vector-ref vy 6)
- (vector-ref vx 1)
- (vector-ref vy 1)
- (vector-ref vx 2)
- (vector-ref vy 2)
- (vector-ref vx 3)
- (vector-ref vy 3)
- (vector-ref vx 4)
- (vector-ref vy 4)
- border_edges)
- )
- (if (< x xBorder)
- (set! border_edges (list*
- (vector-ref vx 6)
- (vector-ref vy 6)
- (vector-ref vx 7)
- (vector-ref vy 7)
- border_edges)
- )
- (set! border_edges (list*
- (vector-ref vx 4)
- (vector-ref vy 4)
- (vector-ref vx 5)
- (vector-ref vy 5)
- (vector-ref vx 6)
- (vector-ref vy 6)
- (vector-ref vx 7)
- (vector-ref vy 7)
- border_edges)
- )
- )
- )
- (if (< x xBorder)
- (set! border_edges (list*
- (vector-ref vx 5)
- (vector-ref vy 5)
- (vector-ref vx 4)
- (vector-ref vy 4)
- border_edges)
- )
- (set! border_edges (list*
- (vector-ref vx 4)
- (vector-ref vy 4)
- border_edges)
- )
- )
- )
- ; else left ?
- (if (= x 0)
- (set! border_edges (list*
- (vector-ref vx 1)
- (vector-ref vy 1)
- (vector-ref vx 2)
- (vector-ref vy 2)
- (vector-ref vx 3)
- (vector-ref vy 3)
- (vector-ref vx 4)
- (vector-ref vy 4)
- border_edges)
- )
- ; else right ?
- (if (= x xBorder)
- (set! border_edges (append border_edges
- (list
- (vector-ref vx 4)
- (vector-ref vy 4)
- (vector-ref vx 5)
- (vector-ref vy 5)
- (vector-ref vx 6)
- (vector-ref vy 6)
- (vector-ref vx 7)
- (vector-ref vy 7)
- ))
- )
- )
- )
- )
- )
- )
- border_edges
-)
-
-(define (build_grid grid_path border_path width height sideLength orientation xOff yOff)
- (let*
- (
- (w (- width xOff))
- (h (- height yOff))
- (x (if (> xOff 0) -1 0))
- (y (if (> yOff 0) -1 0))
- (vx (make-vector 8 0))
- (vy (make-vector 8 0))
- (hex_edges '())
- (border_edges '())
- (hX 0)
- (hY 0)
- (xAdd 0)
- (yAdd 0)
- (xLast 0)
- (yLast 0)
- (xBorder 0)
- (yBorder 0)
- (bRight #t)
- (bBottom #t)
- )
-
- (if (= orientation 0)
- ; horizontal
- (begin
- (set! xLast (trunc (/ w (* sideLength 3.0))))
- (set! yLast (trunc (/ h (* sideLength 1.73205))))
- (set! xBorder (trunc (/ (- w xOff) (* sideLength 3.0))))
- (set! yBorder (- yLast 1))
- (set! bRight (if (> (- w xOff (* xBorder sideLength 3.0)) sideLength) #t #f))
- ; (set! bBottom #t)
- (set! hX (vector (* sideLength 3.0) (* sideLength 2.0) (* sideLength 1.5) (* sideLength 0.5) 0 (* sideLength 0.5) (* sideLength 1.5) (* sideLength 2.0)))
- (set! hY (vector (* sideLength 1.73205 0.5) (* sideLength 1.73205 0.5) 0 0 (* sideLength 1.73205 0.5) (* sideLength 1.73205) (* sideLength 1.73205) (* sideLength 1.73205 0.5)))
- )
- (begin
- (set! xLast (trunc (/ w (* sideLength 1.73205))))
- (set! yLast (trunc (/ h (* sideLength 3.0))))
- (set! xBorder (- xLast 1))
- (set! yBorder (trunc (/ (- h yOff) (* sideLength 3.0))))
- ; (set! bRight #t)
- (set! bBottom (if (> (- h yOff (* yBorder sideLength 3.0)) sideLength) #t #f))
- (set! hX (vector (* sideLength 1.73205 0.5) (* sideLength 1.73205 0.5) 0 0 (* sideLength 1.73205 0.5) (* sideLength 1.73205) (* sideLength 1.73205) (* sideLength 1.73205 0.5)))
- (set! hY (vector (* sideLength 3.0) (* sideLength 2.0) (* sideLength 1.5) (* sideLength 0.5) 0 (* sideLength 0.5) (* sideLength 1.5) (* sideLength 2.0)))
- )
- )
-
- (while (<= y yLast)
- (while (<= x xLast)
- (if (= orientation 0)
- ; horizontal
- (begin
- (set! xAdd (+ (* x sideLength 3.0) xOff))
- (set! yAdd (+ (* y sideLength 1.73205) yOff))
- )
- (begin
- (set! xAdd (+ (* x sideLength 1.73205) xOff))
- (set! yAdd (+ (* y sideLength 3.0) yOff))
- )
- )
- (vector-set! vx 0 (+ (vector-ref hX 0) xAdd))
- (vector-set! vx 1 (+ (vector-ref hX 1) xAdd))
- (vector-set! vx 2 (+ (vector-ref hX 2) xAdd))
- (vector-set! vx 3 (+ (vector-ref hX 3) xAdd))
- (vector-set! vx 4 (+ (vector-ref hX 4) xAdd))
- (vector-set! vx 5 (+ (vector-ref hX 5) xAdd))
- (vector-set! vx 6 (+ (vector-ref hX 6) xAdd))
- (vector-set! vx 7 (+ (vector-ref hX 7) xAdd))
- (vector-set! vy 0 (+ (vector-ref hY 0) yAdd))
- (vector-set! vy 1 (+ (vector-ref hY 1) yAdd))
- (vector-set! vy 2 (+ (vector-ref hY 2) yAdd))
- (vector-set! vy 3 (+ (vector-ref hY 3) yAdd))
- (vector-set! vy 4 (+ (vector-ref hY 4) yAdd))
- (vector-set! vy 5 (+ (vector-ref hY 5) yAdd))
- (vector-set! vy 6 (+ (vector-ref hY 6) yAdd))
- (vector-set! vy 7 (+ (vector-ref hY 7) yAdd))
- ; hex path
- (gimp-vectors-stroke-new-from-points grid_path 0 (* 8 2 3)
- (vector
- (vector-ref vx 0) (vector-ref vy 0)
- (vector-ref vx 0) (vector-ref vy 0)
- (vector-ref vx 0) (vector-ref vy 0)
- (vector-ref vx 1) (vector-ref vy 1)
- (vector-ref vx 1) (vector-ref vy 1)
- (vector-ref vx 1) (vector-ref vy 1)
- (vector-ref vx 2) (vector-ref vy 2)
- (vector-ref vx 2) (vector-ref vy 2)
- (vector-ref vx 2) (vector-ref vy 2)
- (vector-ref vx 3) (vector-ref vy 3)
- (vector-ref vx 3) (vector-ref vy 3)
- (vector-ref vx 3) (vector-ref vy 3)
- (vector-ref vx 4) (vector-ref vy 4)
- (vector-ref vx 4) (vector-ref vy 4)
- (vector-ref vx 4) (vector-ref vy 4)
- (vector-ref vx 5) (vector-ref vy 5)
- (vector-ref vx 5) (vector-ref vy 5)
- (vector-ref vx 5) (vector-ref vy 5)
- (vector-ref vx 6) (vector-ref vy 6)
- (vector-ref vx 6) (vector-ref vy 6)
- (vector-ref vx 6) (vector-ref vy 6)
- (vector-ref vx 7) (vector-ref vy 7)
- (vector-ref vx 7) (vector-ref vy 7)
- (vector-ref vx 7) (vector-ref vy 7)
- ) FALSE
- )
- ; border
- (if (= orientation 0) ; horizontal
- (set! border_edges (build_h_border_edges border_edges vx vy x y xBorder yBorder bRight bBottom))
- (set! border_edges (build_v_border_edges border_edges vx vy x y xBorder yBorder bRight bBottom))
- )
- ; hex edges
- (set! hex_edges (maybe_add hex_edges (vector-ref vx 0) (vector-ref vy 0)))
- (set! hex_edges (maybe_add hex_edges (vector-ref vx 1) (vector-ref vy 1)))
- (set! hex_edges (maybe_add hex_edges (vector-ref vx 2) (vector-ref vy 2)))
- (set! hex_edges (maybe_add hex_edges (vector-ref vx 3) (vector-ref vy 3)))
- (set! hex_edges (maybe_add hex_edges (vector-ref vx 4) (vector-ref vy 4)))
- (set! hex_edges (maybe_add hex_edges (vector-ref vx 5) (vector-ref vy 5)))
- (set! hex_edges (maybe_add hex_edges (vector-ref vx 6) (vector-ref vy 6)))
- (set! hex_edges (maybe_add hex_edges (vector-ref vx 7) (vector-ref vy 7)))
- ; next loop values
- (set! x (+ x 1))
- )
- (set! y (+ y 1))
- (set! x (if (> xOff 0) -1 0))
- )
- (display border_edges)
- (build_border_path border_edges border_path)
- hex_edges
- )
-)
-
-(define (script-fu-hex_map orientation elm len xN yN xOff yOff erase gStroke gColour bStroke bColour bOpacity)
- (let*
- (
- (img 0)
- (gridLayer 0)
- (borderLayer 0)
- (mask 0)
- (width 0)
- (height 0)
- (grid_path 0)
- (hex_edges 0)
- (border_path 0)
- (border_edges '())
- (sideLength (cond ((equal? elm 0) len) ((equal? elm 1) (/ len 2.0)) ((equal? elm 2) (/ len 1.73205))))
- (brushTemp (car (gimp-brush-new "HexMapBrush")))
- )
-
- (if (= orientation 0)
- ; horizontal
- (begin
- (set! height (+ (* 2 yOff) (* 1.73205 yN sideLength)))
- (set! width (+ (* 2 xOff) (* (+ 0.5 (* 1.5 xN)) sideLength)))
- )
- (begin
- (set! width (+ (* 2 xOff) (* 1.73205 xN sideLength)))
- (set! height (+ (* 2 yOff) (* (+ 0.5 (* 1.5 yN)) sideLength)))
- )
- )
-
- ; START
- (gimp-context-push)
-
- (set! img (car (gimp-image-new width height RGB)))
- (gimp-image-undo-group-start img)
-
- ; set brush
- (gimp-brush-set-angle brushTemp 0)
- (gimp-brush-set-aspect-ratio brushTemp 1)
- (gimp-brush-set-hardness brushTemp 1)
- (gimp-brush-set-shape brushTemp BRUSH-GENERATED-CIRCLE)
- (gimp-brush-set-spacing brushTemp 0)
- (gimp-brush-set-spikes brushTemp 1)
- (gimp-brushes-refresh)
-
- (gimp-context-set-brush "HexMapBrush")
- (gimp-context-set-opacity 100)
- (gimp-context-set-paint-mode NORMAL-MODE)
-
- ; paths
- (set! grid_path (car (gimp-vectors-new img "Hex Grid")))
- (gimp-image-add-vectors img grid_path -1)
- (set! border_path (car (gimp-vectors-new img "Map Border")))
- (gimp-image-add-vectors img border_path -1)
- (set! hex_edges (build_grid grid_path border_path width height sideLength orientation xOff yOff))
-
- ; grid layer
- (set! gridLayer (car (gimp-layer-new img width height RGBA-IMAGE "Grid" 100 NORMAL-MODE)))
- (gimp-image-add-layer img gridLayer -1)
- (gimp-context-set-brush-size gStroke)
- (gimp-context-set-foreground gColour)
- (if (> gStroke 0)
- (begin
- (gimp-edit-stroke-vectors gridLayer grid_path)
- (gimp-path-to-selection img "Map Border" 2 0 0 0 0)
- (gimp-selection-invert img)
- (gimp-edit-clear gridLayer)
- )
- )
-
- ; border layer
- (set! borderLayer (car (gimp-layer-new img width height RGBA-IMAGE "Border" 100 NORMAL-MODE)))
- (gimp-image-add-layer img borderLayer -1)
- ; transparent border
- (gimp-context-set-foreground "black")
- (gimp-edit-bucket-fill borderLayer 0 0 bOpacity 20 0 0 0)
- ; border stroke
- (if (> bStroke 0)
- (begin
- (gimp-context-set-brush-size bStroke)
- (gimp-context-set-foreground bColour)
- (gimp-edit-stroke-vectors borderLayer border_path)
- )
- )
-
- (gimp-selection-none img)
- (gimp-brush-delete brushTemp)
-
- ; grid mask
- (if(not (= erase 0))
- (begin
- (set! mask (car (gimp-layer-create-mask gridLayer ADD-WHITE-MASK)))
- (gimp-layer-add-mask gridLayer mask)
- (erase_hex_edges hex_edges mask sideLength)
- (if(= erase 2)
- (gimp-invert mask)
- )
- )
- )
-
- (gimp-display-new img)
- (gimp-image-clean-all img)
-
- ; END
- (gimp-image-undo-group-end img)
- (gimp-displays-flush)
- (gimp-context-pop)
- )
-)
-
-; (define (script-fu-hex_mapp)
-; (script-fu-hex_map 0 0 100 5 5 140 50 2 "black" 6 "red")
-; )
-
-(script-fu-register "script-fu-hex_map"
- "Hex Map..."
- "Draw a hex grid on the image."
- "Jérémy Zurcher"
- "Copyright 2015, Jérémy Zurcher"
- "Nov 2015"
- ""
- SF-OPTION "Hex Orientation" '("Horizontal" "Vertical")
- SF-OPTION "Element to Specify" '("Side" "Point to Point" "Side to Side")
- SF-ADJUSTMENT "Length of Element" '(100 2 400 1 10 0 SF-SPINNER)
- SF-ADJUSTMENT "Horizontal Hex (#)" '(18 2 500 1 10 0 SF-SPINNER)
- SF-ADJUSTMENT "Vertical Hex (#)" '(10 2 500 1 10 0 SF-SPINNER)
- SF-ADJUSTMENT "Horizontal Offset (px)" '(50 0 399 0.5 10 1 SF-SPINNER)
- SF-ADJUSTMENT "Vertical Offset (px)" '(50 0 399 0.5 10 1 SF-SPINNER)
- SF-OPTION "Erase" '("None" "Points" "Segments")
- SF-ADJUSTMENT "Line Width (px)" '(2 1 20 1 10 0 SF-SPINNER)
- SF-COLOR "Line Colour" '(244 244 244)
- SF-ADJUSTMENT "Border Width (px)" '(6 0 20 1 10 0 SF-SPINNER)
- SF-COLOR "Border Colour" '(244 244 244) ;'(69 70 11)
- SF-ADJUSTMENT "Border Opacity (px)" '(40 0 100 1 10 0 SF-SPINNER)
-)
-(script-fu-menu-register "script-fu-hex_map" "<Image>/File/Create")
+; hexmap.scm
+; by Jérémy Zurcher <jeremy@asynk.ch>
+; based on hex_grid by Rob Antonishen
+
+; Version 1.0 (2015)
+;
+
+; Description
+;
+; build hex map with nice options
+;
+
+; Issues
+;
+; for
+;
+
+; License:
+;
+; Copyright (c) <2015> <Jérémy Zurcher>
+;
+; Permission is hereby granted, free of charge, to any person obtaining a copy
+; of this software and associated documentation files (the "Software"), to deal
+; in the Software without restriction, including without limitation the rights
+; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+; copies of the Software, and to permit persons to whom the Software is
+; furnished to do so, subject to the following conditions:
+;
+; The above copyright notice and this permission notice shall be included in
+; all copies or substantial portions of the Software.
+;
+; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+; THE SOFTWARE.
+
+
+
+
+(define (search l x y)
+ (if (null? l)
+ #f
+ (if (and (= (vector-ref (car l) 0) x)
+ (= (vector-ref (car l) 1) y))
+ #t
+ (search (cdr l) x y)
+ )
+ )
+)
+
+(define (maybe_add l x y)
+ (set! x (/ (trunc (* x 1000)) 1000))
+ (set! y (/ (trunc (* y 1000)) 1000))
+ (if (search l x y)
+ l
+ (list* (vector x y) l)
+ )
+)
+
+(define (crawl_hex_edges edges mask pressure)
+ (if (not (null? edges))
+ (begin
+ (gimp-airbrush mask pressure 2 (car edges))
+ (crawl_hex_edges (cdr edges) mask pressure)
+ )
+ )
+)
+
+(define (erase_hex_edges edges mask size)
+ (gimp-context-set-brush-size (* 1.4 size))
+ (gimp-context-set-foreground "black")
+ (gimp-context-set-opacity 80)
+ (gimp-context-set-brush "2. Hardness 025")
+ (crawl_hex_edges edges mask 80)
+)
+
+(define (build_border_path border_edges border_path)
+ (let*
+ (
+ (i 0)
+ (y 0)
+ (s (length border_edges))
+ (n (* s 3))
+ (v (make-vector n 0))
+ )
+ (while (< i s)
+ (vector-set! v y (list-ref border_edges i))
+ (vector-set! v (+ y 1) (list-ref border_edges (+ i 1)))
+ (vector-set! v (+ y 2) (list-ref border_edges i))
+ (vector-set! v (+ y 3) (list-ref border_edges (+ i 1)))
+ (vector-set! v (+ y 4) (list-ref border_edges i))
+ (vector-set! v (+ y 5) (list-ref border_edges (+ i 1)))
+ (set! i (+ i 2))
+ (set! y (+ y 6))
+ )
+ (gimp-vectors-stroke-new-from-points border_path 0 n v TRUE)
+ )
+)
+
+(define (build_h_border_edges border_edges vx vy x y xBorder yBorder bRight bBottom)
+ (if (and (>= x 0) (>= y 0) (<= x xBorder) (<= y yBorder))
+ ; top ?
+ (if (= y 0)
+ (if (or (equal? bRight #t) (< x xBorder))
+ (set! border_edges (append border_edges
+ (list
+ (vector-ref vx 4)
+ (vector-ref vy 4)
+ (vector-ref vx 3)
+ (vector-ref vy 3)
+ (vector-ref vx 2)
+ (vector-ref vy 2)
+ (vector-ref vx 1)
+ (vector-ref vy 1)
+ ))
+ )
+ (set! border_edges (append border_edges
+ (list
+ (vector-ref vx 4)
+ (vector-ref vy 4)
+ (vector-ref vx 5)
+ (vector-ref vy 5)
+ ))
+ )
+ )
+ ; else bottom ?
+ (if (= y yBorder)
+ (if (= x 0)
+ (set! border_edges (list*
+ (vector-ref vx 7)
+ (vector-ref vy 7)
+ (vector-ref vx 6)
+ (vector-ref vy 6)
+ (vector-ref vx 5)
+ (vector-ref vy 5)
+ (vector-ref vx 4)
+ (vector-ref vy 4)
+ (vector-ref vx 3)
+ (vector-ref vy 3)
+ border_edges)
+ )
+ (if (< x xBorder)
+ (set! border_edges (list*
+ (vector-ref vx 7)
+ (vector-ref vy 7)
+ (vector-ref vx 6)
+ (vector-ref vy 6)
+ (vector-ref vx 5)
+ (vector-ref vy 5)
+ (vector-ref vx 4)
+ (vector-ref vy 4)
+ border_edges)
+ )
+ (if (equal? bRight #t)
+ (set! border_edges (list*
+ (vector-ref vx 2)
+ (vector-ref vy 2)
+ (vector-ref vx 1)
+ (vector-ref vy 1)
+ (vector-ref vx 6)
+ (vector-ref vy 6)
+ (vector-ref vx 5)
+ (vector-ref vy 5)
+ (vector-ref vx 4)
+ (vector-ref vy 4)
+ border_edges)
+ )
+ (set! border_edges (list*
+ (vector-ref vx 4)
+ (vector-ref vy 4)
+ border_edges)
+ )
+ )
+ )
+ )
+ ; else left ?
+ (if (= x 0)
+ (set! border_edges (list*
+ (vector-ref vx 4)
+ (vector-ref vy 4)
+ (vector-ref vx 3)
+ (vector-ref vy 3)
+ border_edges)
+ )
+ ; else right ?
+ (if (= x xBorder)
+ (if (equal? bRight #t)
+ (set! border_edges (append border_edges
+ (list
+ (vector-ref vx 2)
+ (vector-ref vy 2)
+ (vector-ref vx 1)
+ (vector-ref vy 1)
+ ))
+ )
+ (set! border_edges (append border_edges
+ (list
+ (vector-ref vx 4)
+ (vector-ref vy 4)
+ (vector-ref vx 5)
+ (vector-ref vy 5)
+ ))
+ )
+ )
+ )
+ )
+ )
+ )
+ )
+ border_edges
+)
+
+(define (build_v_border_edges border_edges vx vy x y xBorder yBorder bRight bBottom)
+ (if (and (>= x 0) (>= y 0) (<= x xBorder) (<= y yBorder))
+ ; top ?
+ (if (= y 0)
+ ; top left
+ (if (= x 0)
+ (set! border_edges (append border_edges
+ (list
+ (vector-ref vx 1)
+ (vector-ref vy 1)
+ (vector-ref vx 2)
+ (vector-ref vy 2)
+ (vector-ref vx 3)
+ (vector-ref vy 3)
+ (vector-ref vx 4)
+ (vector-ref vy 4)
+ (vector-ref vx 5)
+ (vector-ref vy 5)
+ ))
+ )
+ (if (= x xBorder)
+ (set! border_edges (append border_edges
+ (list
+ (vector-ref vx 4)
+ (vector-ref vy 4)
+ (vector-ref vx 5)
+ (vector-ref vy 5)
+ (vector-ref vx 6)
+ (vector-ref vy 6)
+ (vector-ref vx 7)
+ (vector-ref vy 7)
+ ))
+ )
+ (set! border_edges (append border_edges
+ (list
+ (vector-ref vx 4)
+ (vector-ref vy 4)
+ (vector-ref vx 5)
+ (vector-ref vy 5)
+ ))
+ )
+ )
+ )
+ ; else bottom ?
+ (if (= y yBorder)
+ (if (equal? bBottom #t)
+ (if (= x 0)
+ (set! border_edges (list*
+ (vector-ref vx 6)
+ (vector-ref vy 6)
+ (vector-ref vx 1)
+ (vector-ref vy 1)
+ (vector-ref vx 2)
+ (vector-ref vy 2)
+ (vector-ref vx 3)
+ (vector-ref vy 3)
+ (vector-ref vx 4)
+ (vector-ref vy 4)
+ border_edges)
+ )
+ (if (< x xBorder)
+ (set! border_edges (list*
+ (vector-ref vx 6)
+ (vector-ref vy 6)
+ (vector-ref vx 7)
+ (vector-ref vy 7)
+ border_edges)
+ )
+ (set! border_edges (list*
+ (vector-ref vx 4)
+ (vector-ref vy 4)
+ (vector-ref vx 5)
+ (vector-ref vy 5)
+ (vector-ref vx 6)
+ (vector-ref vy 6)
+ (vector-ref vx 7)
+ (vector-ref vy 7)
+ border_edges)
+ )
+ )
+ )
+ (if (< x xBorder)
+ (set! border_edges (list*
+ (vector-ref vx 5)
+ (vector-ref vy 5)
+ (vector-ref vx 4)
+ (vector-ref vy 4)
+ border_edges)
+ )
+ (set! border_edges (list*
+ (vector-ref vx 4)
+ (vector-ref vy 4)
+ border_edges)
+ )
+ )
+ )
+ ; else left ?
+ (if (= x 0)
+ (set! border_edges (list*
+ (vector-ref vx 1)
+ (vector-ref vy 1)
+ (vector-ref vx 2)
+ (vector-ref vy 2)
+ (vector-ref vx 3)
+ (vector-ref vy 3)
+ (vector-ref vx 4)
+ (vector-ref vy 4)
+ border_edges)
+ )
+ ; else right ?
+ (if (= x xBorder)
+ (set! border_edges (append border_edges
+ (list
+ (vector-ref vx 4)
+ (vector-ref vy 4)
+ (vector-ref vx 5)
+ (vector-ref vy 5)
+ (vector-ref vx 6)
+ (vector-ref vy 6)
+ (vector-ref vx 7)
+ (vector-ref vy 7)
+ ))
+ )
+ )
+ )
+ )
+ )
+ )
+ border_edges
+)
+
+(define (build_grid grid_path border_path width height sideLength orientation xOff yOff)
+ (let*
+ (
+ (w (- width xOff))
+ (h (- height yOff))
+ (x (if (> xOff 0) -1 0))
+ (y (if (> yOff 0) -1 0))
+ (vx (make-vector 8 0))
+ (vy (make-vector 8 0))
+ (hex_edges '())
+ (border_edges '())
+ (hX 0)
+ (hY 0)
+ (xAdd 0)
+ (yAdd 0)
+ (xLast 0)
+ (yLast 0)
+ (xBorder 0)
+ (yBorder 0)
+ (bRight #t)
+ (bBottom #t)
+ )
+
+ (if (= orientation 0)
+ ; horizontal
+ (begin
+ (set! xLast (trunc (/ w (* sideLength 3.0))))
+ (set! yLast (trunc (/ h (* sideLength 1.73205))))
+ (set! xBorder (trunc (/ (- w xOff) (* sideLength 3.0))))
+ (set! yBorder (- yLast 1))
+ (set! bRight (if (> (- w xOff (* xBorder sideLength 3.0)) sideLength) #t #f))
+ ; (set! bBottom #t)
+ (set! hX (vector (* sideLength 3.0) (* sideLength 2.0) (* sideLength 1.5) (* sideLength 0.5) 0 (* sideLength 0.5) (* sideLength 1.5) (* sideLength 2.0)))
+ (set! hY (vector (* sideLength 1.73205 0.5) (* sideLength 1.73205 0.5) 0 0 (* sideLength 1.73205 0.5) (* sideLength 1.73205) (* sideLength 1.73205) (* sideLength 1.73205 0.5)))
+ )
+ (begin
+ (set! xLast (trunc (/ w (* sideLength 1.73205))))
+ (set! yLast (trunc (/ h (* sideLength 3.0))))
+ (set! xBorder (- xLast 1))
+ (set! yBorder (trunc (/ (- h yOff) (* sideLength 3.0))))
+ ; (set! bRight #t)
+ (set! bBottom (if (> (- h yOff (* yBorder sideLength 3.0)) sideLength) #t #f))
+ (set! hX (vector (* sideLength 1.73205 0.5) (* sideLength 1.73205 0.5) 0 0 (* sideLength 1.73205 0.5) (* sideLength 1.73205) (* sideLength 1.73205) (* sideLength 1.73205 0.5)))
+ (set! hY (vector (* sideLength 3.0) (* sideLength 2.0) (* sideLength 1.5) (* sideLength 0.5) 0 (* sideLength 0.5) (* sideLength 1.5) (* sideLength 2.0)))
+ )
+ )
+
+ (while (<= y yLast)
+ (while (<= x xLast)
+ (if (= orientation 0)
+ ; horizontal
+ (begin
+ (set! xAdd (+ (* x sideLength 3.0) xOff))
+ (set! yAdd (+ (* y sideLength 1.73205) yOff))
+ )
+ (begin
+ (set! xAdd (+ (* x sideLength 1.73205) xOff))
+ (set! yAdd (+ (* y sideLength 3.0) yOff))
+ )
+ )
+ (vector-set! vx 0 (+ (vector-ref hX 0) xAdd))
+ (vector-set! vx 1 (+ (vector-ref hX 1) xAdd))
+ (vector-set! vx 2 (+ (vector-ref hX 2) xAdd))
+ (vector-set! vx 3 (+ (vector-ref hX 3) xAdd))
+ (vector-set! vx 4 (+ (vector-ref hX 4) xAdd))
+ (vector-set! vx 5 (+ (vector-ref hX 5) xAdd))
+ (vector-set! vx 6 (+ (vector-ref hX 6) xAdd))
+ (vector-set! vx 7 (+ (vector-ref hX 7) xAdd))
+ (vector-set! vy 0 (+ (vector-ref hY 0) yAdd))
+ (vector-set! vy 1 (+ (vector-ref hY 1) yAdd))
+ (vector-set! vy 2 (+ (vector-ref hY 2) yAdd))
+ (vector-set! vy 3 (+ (vector-ref hY 3) yAdd))
+ (vector-set! vy 4 (+ (vector-ref hY 4) yAdd))
+ (vector-set! vy 5 (+ (vector-ref hY 5) yAdd))
+ (vector-set! vy 6 (+ (vector-ref hY 6) yAdd))
+ (vector-set! vy 7 (+ (vector-ref hY 7) yAdd))
+ ; hex path
+ (gimp-vectors-stroke-new-from-points grid_path 0 (* 8 2 3)
+ (vector
+ (vector-ref vx 0) (vector-ref vy 0)
+ (vector-ref vx 0) (vector-ref vy 0)
+ (vector-ref vx 0) (vector-ref vy 0)
+ (vector-ref vx 1) (vector-ref vy 1)
+ (vector-ref vx 1) (vector-ref vy 1)
+ (vector-ref vx 1) (vector-ref vy 1)
+ (vector-ref vx 2) (vector-ref vy 2)
+ (vector-ref vx 2) (vector-ref vy 2)
+ (vector-ref vx 2) (vector-ref vy 2)
+ (vector-ref vx 3) (vector-ref vy 3)
+ (vector-ref vx 3) (vector-ref vy 3)
+ (vector-ref vx 3) (vector-ref vy 3)
+ (vector-ref vx 4) (vector-ref vy 4)
+ (vector-ref vx 4) (vector-ref vy 4)
+ (vector-ref vx 4) (vector-ref vy 4)
+ (vector-ref vx 5) (vector-ref vy 5)
+ (vector-ref vx 5) (vector-ref vy 5)
+ (vector-ref vx 5) (vector-ref vy 5)
+ (vector-ref vx 6) (vector-ref vy 6)
+ (vector-ref vx 6) (vector-ref vy 6)
+ (vector-ref vx 6) (vector-ref vy 6)
+ (vector-ref vx 7) (vector-ref vy 7)
+ (vector-ref vx 7) (vector-ref vy 7)
+ (vector-ref vx 7) (vector-ref vy 7)
+ ) FALSE
+ )
+ ; border
+ (if (= orientation 0) ; horizontal
+ (set! border_edges (build_h_border_edges border_edges vx vy x y xBorder yBorder bRight bBottom))
+ (set! border_edges (build_v_border_edges border_edges vx vy x y xBorder yBorder bRight bBottom))
+ )
+ ; hex edges
+ (set! hex_edges (maybe_add hex_edges (vector-ref vx 0) (vector-ref vy 0)))
+ (set! hex_edges (maybe_add hex_edges (vector-ref vx 1) (vector-ref vy 1)))
+ (set! hex_edges (maybe_add hex_edges (vector-ref vx 2) (vector-ref vy 2)))
+ (set! hex_edges (maybe_add hex_edges (vector-ref vx 3) (vector-ref vy 3)))
+ (set! hex_edges (maybe_add hex_edges (vector-ref vx 4) (vector-ref vy 4)))
+ (set! hex_edges (maybe_add hex_edges (vector-ref vx 5) (vector-ref vy 5)))
+ (set! hex_edges (maybe_add hex_edges (vector-ref vx 6) (vector-ref vy 6)))
+ (set! hex_edges (maybe_add hex_edges (vector-ref vx 7) (vector-ref vy 7)))
+ ; next loop values
+ (set! x (+ x 1))
+ )
+ (set! y (+ y 1))
+ (set! x (if (> xOff 0) -1 0))
+ )
+ (display border_edges)
+ (build_border_path border_edges border_path)
+ hex_edges
+ )
+)
+
+(define (script-fu-hex_map orientation elm len xN yN xOff yOff erase gStroke gColour bStroke bColour bOpacity)
+ (let*
+ (
+ (img 0)
+ (gridLayer 0)
+ (borderLayer 0)
+ (mask 0)
+ (width 0)
+ (height 0)
+ (grid_path 0)
+ (hex_edges 0)
+ (border_path 0)
+ (border_edges '())
+ (sideLength (cond ((equal? elm 0) len) ((equal? elm 1) (/ len 2.0)) ((equal? elm 2) (/ len 1.73205))))
+ (brushTemp (car (gimp-brush-new "HexMapBrush")))
+ )
+
+ (if (= orientation 0)
+ ; horizontal
+ (begin
+ (set! height (+ (* 2 yOff) (* 1.73205 yN sideLength)))
+ (set! width (+ (* 2 xOff) (* (+ 0.5 (* 1.5 xN)) sideLength)))
+ )
+ (begin
+ (set! width (+ (* 2 xOff) (* 1.73205 xN sideLength)))
+ (set! height (+ (* 2 yOff) (* (+ 0.5 (* 1.5 yN)) sideLength)))
+ )
+ )
+
+ ; START
+ (gimp-context-push)
+
+ (set! img (car (gimp-image-new width height RGB)))
+ (gimp-image-undo-group-start img)
+
+ ; set brush
+ (gimp-brush-set-angle brushTemp 0)
+ (gimp-brush-set-aspect-ratio brushTemp 1)
+ (gimp-brush-set-hardness brushTemp 1)
+ (gimp-brush-set-shape brushTemp BRUSH-GENERATED-CIRCLE)
+ (gimp-brush-set-spacing brushTemp 0)
+ (gimp-brush-set-spikes brushTemp 1)
+ (gimp-brushes-refresh)
+
+ (gimp-context-set-brush "HexMapBrush")
+ (gimp-context-set-opacity 100)
+ (gimp-context-set-paint-mode NORMAL-MODE)
+
+ ; paths
+ (set! grid_path (car (gimp-vectors-new img "Hex Grid")))
+ (gimp-image-add-vectors img grid_path -1)
+ (set! border_path (car (gimp-vectors-new img "Map Border")))
+ (gimp-image-add-vectors img border_path -1)
+ (set! hex_edges (build_grid grid_path border_path width height sideLength orientation xOff yOff))
+
+ ; grid layer
+ (set! gridLayer (car (gimp-layer-new img width height RGBA-IMAGE "Grid" 100 NORMAL-MODE)))
+ (gimp-image-add-layer img gridLayer -1)
+ (gimp-context-set-brush-size gStroke)
+ (gimp-context-set-foreground gColour)
+ (if (> gStroke 0)
+ (begin
+ (gimp-edit-stroke-vectors gridLayer grid_path)
+ (gimp-path-to-selection img "Map Border" 2 0 0 0 0)
+ (gimp-selection-invert img)
+ (gimp-edit-clear gridLayer)
+ )
+ )
+
+ ; border layer
+ (set! borderLayer (car (gimp-layer-new img width height RGBA-IMAGE "Border" 100 NORMAL-MODE)))
+ (gimp-image-add-layer img borderLayer -1)
+ ; transparent border
+ (gimp-context-set-foreground "black")
+ (gimp-edit-bucket-fill borderLayer 0 0 bOpacity 20 0 0 0)
+ ; border stroke
+ (if (> bStroke 0)
+ (begin
+ (gimp-context-set-brush-size bStroke)
+ (gimp-context-set-foreground bColour)
+ (gimp-edit-stroke-vectors borderLayer border_path)
+ )
+ )
+
+ (gimp-selection-none img)
+ (gimp-brush-delete brushTemp)
+
+ ; grid mask
+ (if(not (= erase 0))
+ (begin
+ (set! mask (car (gimp-layer-create-mask gridLayer ADD-WHITE-MASK)))
+ (gimp-layer-add-mask gridLayer mask)
+ (erase_hex_edges hex_edges mask sideLength)
+ (if(= erase 2)
+ (gimp-invert mask)
+ )
+ )
+ )
+
+ (gimp-display-new img)
+ (gimp-image-clean-all img)
+
+ ; END
+ (gimp-image-undo-group-end img)
+ (gimp-displays-flush)
+ (gimp-context-pop)
+ )
+)
+
+; (define (script-fu-hex_mapp)
+; (script-fu-hex_map 0 0 100 5 5 140 50 2 "black" 6 "red")
+; )
+
+(script-fu-register "script-fu-hex_map"
+ "Hex Map..."
+ "Draw a hex grid on the image."
+ "Jérémy Zurcher"
+ "Copyright 2015, Jérémy Zurcher"
+ "Nov 2015"
+ ""
+ SF-OPTION "Hex Orientation" '("Horizontal" "Vertical")
+ SF-OPTION "Element to Specify" '("Side" "Point to Point" "Side to Side")
+ SF-ADJUSTMENT "Length of Element" '(100 2 400 1 10 0 SF-SPINNER)
+ SF-ADJUSTMENT "Horizontal Hex (#)" '(18 2 500 1 10 0 SF-SPINNER)
+ SF-ADJUSTMENT "Vertical Hex (#)" '(10 2 500 1 10 0 SF-SPINNER)
+ SF-ADJUSTMENT "Horizontal Offset (px)" '(50 0 399 0.5 10 1 SF-SPINNER)
+ SF-ADJUSTMENT "Vertical Offset (px)" '(50 0 399 0.5 10 1 SF-SPINNER)
+ SF-OPTION "Erase" '("None" "Points" "Segments")
+ SF-ADJUSTMENT "Line Width (px)" '(2 1 20 1 10 0 SF-SPINNER)
+ SF-COLOR "Line Colour" '(244 244 244)
+ SF-ADJUSTMENT "Border Width (px)" '(6 0 20 1 10 0 SF-SPINNER)
+ SF-COLOR "Border Colour" '(244 244 244) ;'(69 70 11)
+ SF-ADJUSTMENT "Border Opacity (px)" '(40 0 100 1 10 0 SF-SPINNER)
+)
+(script-fu-menu-register "script-fu-hex_map" "<Image>/File/Create")
generated by cgit v1.1-2-g2b99 at 2024-11-21 13:33:36 +0100