GIMP Script-fu

Hex Artifact Content
Login

Artifact cb22988404a887d2fc98367512330dad877a371e:


0000: 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69  ; This program i
0010: 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b  s free software;
0020: 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72   you can redistr
0030: 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20  ibute it and/or 
0040: 6d 6f 64 69 66 79 0a 3b 20 69 74 20 75 6e 64 65  modify.; it unde
0050: 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74  r the terms of t
0060: 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50  he GNU General P
0070: 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 73  ublic License as
0080: 20 70 75 62 6c 69 73 68 65 64 20 62 79 0a 3b 20   published by.; 
0090: 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72  the Free Softwar
00a0: 65 20 46 6f 75 6e 64 61 74 69 6f 6e 3b 20 65 69  e Foundation; ei
00b0: 74 68 65 72 20 76 65 72 73 69 6f 6e 20 32 20 6f  ther version 2 o
00c0: 66 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f  f the License, o
00d0: 72 0a 3b 20 28 61 74 20 79 6f 75 72 20 6f 70 74  r.; (at your opt
00e0: 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76  ion) any later v
00f0: 65 72 73 69 6f 6e 2e 0a 3b 0a 3b 20 54 68 69 73  ersion..;.; This
0100: 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74   program is dist
0110: 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68  ributed in the h
0120: 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c  ope that it will
0130: 20 62 65 20 75 73 65 66 75 6c 2c 0a 3b 20 62 75   be useful,.; bu
0140: 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41  t WITHOUT ANY WA
0150: 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 20  RRANTY; without 
0160: 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64  even the implied
0170: 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 3b 20 4d   warranty of.; M
0180: 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f  ERCHANTABILITY o
0190: 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20  r FITNESS FOR A 
01a0: 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f  PARTICULAR PURPO
01b0: 53 45 2e 20 20 53 65 65 20 74 68 65 0a 3b 20 47  SE.  See the.; G
01c0: 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69  NU General Publi
01d0: 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f  c License for mo
01e0: 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 28 64 65  re details...(de
01f0: 66 69 6e 65 20 28 73 63 72 69 70 74 2d 66 75 2d  fine (script-fu-
0200: 73 67 2d 61 72 72 6f 77 2d 73 74 72 6f 6b 65 2d  sg-arrow-stroke-
0210: 70 61 74 68 20 69 6d 61 67 65 29 0a 20 20 28 64  path image).  (d
0220: 65 66 69 6e 65 20 28 64 6f 74 20 78 30 20 79 30  efine (dot x0 y0
0230: 20 78 31 20 79 31 29 0a 20 20 20 20 28 2b 20 28   x1 y1).    (+ (
0240: 2a 20 78 30 20 78 31 29 20 28 2a 20 79 30 20 79  * x0 x1) (* y0 y
0250: 31 29 29 20 29 0a 20 20 28 6c 65 74 20 28 28 70  1)) ).  (let ((p
0260: 61 74 68 20 28 63 61 72 20 28 67 69 6d 70 2d 69  ath (car (gimp-i
0270: 6d 61 67 65 2d 67 65 74 2d 61 63 74 69 76 65 2d  mage-get-active-
0280: 76 65 63 74 6f 72 73 20 69 6d 61 67 65 29 29 29  vectors image)))
0290: 0a 20 20 20 20 20 20 20 20 28 64 72 61 77 61 62  .        (drawab
02a0: 6c 65 20 28 63 61 72 20 28 67 69 6d 70 2d 69 6d  le (car (gimp-im
02b0: 61 67 65 2d 67 65 74 2d 61 63 74 69 76 65 2d 64  age-get-active-d
02c0: 72 61 77 61 62 6c 65 20 69 6d 61 67 65 29 29 29  rawable image)))
02d0: 0a 20 20 20 20 20 20 20 20 28 62 72 75 73 68 20  .        (brush 
02e0: 28 63 61 72 20 28 67 69 6d 70 2d 62 72 75 73 68  (car (gimp-brush
02f0: 2d 6e 65 77 20 22 74 65 6d 70 2d 62 72 75 73 68  -new "temp-brush
0300: 22 29 29 29 0a 20 20 20 20 20 20 20 20 28 70 61  "))).        (pa
0310: 69 6e 74 2d 77 69 64 74 68 20 30 2e 31 29 0a 20  int-width 0.1). 
0320: 20 20 20 20 20 20 20 28 61 72 72 6f 77 2d 68 65         (arrow-he
0330: 61 64 20 23 66 29 0a 20 20 20 20 20 20 20 20 28  ad #f).        (
0340: 61 72 72 6f 77 2d 74 61 69 6c 20 23 66 29 20 29  arrow-tail #f) )
0350: 0a 20 20 20 20 28 67 69 6d 70 2d 69 6d 61 67 65  .    (gimp-image
0360: 2d 75 6e 64 6f 2d 67 72 6f 75 70 2d 73 74 61 72  -undo-group-star
0370: 74 20 69 6d 61 67 65 29 0a 20 20 20 20 28 67 69  t image).    (gi
0380: 6d 70 2d 63 6f 6e 74 65 78 74 2d 70 75 73 68 29  mp-context-push)
0390: 0a 20 20 20 20 28 67 69 6d 70 2d 63 6f 6e 74 65  .    (gimp-conte
03a0: 78 74 2d 73 65 74 2d 70 61 69 6e 74 2d 6d 65 74  xt-set-paint-met
03b0: 68 6f 64 20 22 67 69 6d 70 2d 70 61 69 6e 74 62  hod "gimp-paintb
03c0: 72 75 73 68 22 29 0a 20 20 20 20 28 67 69 6d 70  rush").    (gimp
03d0: 2d 63 6f 6e 74 65 78 74 2d 73 65 74 2d 62 72 75  -context-set-bru
03e0: 73 68 20 62 72 75 73 68 29 0a 20 20 20 20 28 67  sh brush).    (g
03f0: 69 6d 70 2d 63 6f 6e 74 65 78 74 2d 73 65 74 2d  imp-context-set-
0400: 70 61 69 6e 74 2d 6d 6f 64 65 20 4e 4f 52 4d 41  paint-mode NORMA
0410: 4c 2d 4d 4f 44 45 29 0a 20 20 20 20 28 67 69 6d  L-MODE).    (gim
0420: 70 2d 62 72 75 73 68 2d 73 65 74 2d 68 61 72 64  p-brush-set-hard
0430: 6e 65 73 73 20 62 72 75 73 68 20 31 2e 30 29 0a  ness brush 1.0).
0440: 20 20 20 20 28 67 69 6d 70 2d 62 72 75 73 68 2d      (gimp-brush-
0450: 73 65 74 2d 72 61 64 69 75 73 20 62 72 75 73 68  set-radius brush
0460: 20 28 6d 61 78 20 28 63 61 72 20 28 67 69 6d 70   (max (car (gimp
0470: 2d 69 6d 61 67 65 2d 77 69 64 74 68 20 69 6d 61  -image-width ima
0480: 67 65 29 29 20 31 30 30 29 29 0a 20 20 20 20 0a  ge)) 100)).    .
0490: 20 20 20 20 28 6c 65 74 2a 20 28 28 6f 72 69 67      (let* ((orig
04a0: 2d 73 65 6c 20 28 63 61 72 20 28 67 69 6d 70 2d  -sel (car (gimp-
04b0: 73 65 6c 65 63 74 69 6f 6e 2d 73 61 76 65 20 69  selection-save i
04c0: 6d 61 67 65 29 29 29 0a 20 20 20 20 20 20 20 20  mage))).        
04d0: 20 20 20 28 73 74 72 6f 6b 65 20 28 76 65 63 74     (stroke (vect
04e0: 6f 72 2d 72 65 66 20 28 63 61 64 72 20 28 67 69  or-ref (cadr (gi
04f0: 6d 70 2d 76 65 63 74 6f 72 73 2d 67 65 74 2d 73  mp-vectors-get-s
0500: 74 72 6f 6b 65 73 20 70 61 74 68 29 29 0a 20 20  trokes path)).  
0510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0520: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20               (- 
0530: 28 63 61 72 20 28 67 69 6d 70 2d 76 65 63 74 6f  (car (gimp-vecto
0540: 72 73 2d 67 65 74 2d 73 74 72 6f 6b 65 73 20 70  rs-get-strokes p
0550: 61 74 68 29 29 20 31 29 20 29 29 29 0a 20 20 20  ath)) 1) ))).   
0560: 20 20 20 28 6c 65 74 2a 20 28 28 70 6f 69 6e 74     (let* ((point
0570: 73 20 28 63 61 64 64 72 20 28 67 69 6d 70 2d 76  s (caddr (gimp-v
0580: 65 63 74 6f 72 73 2d 73 74 72 6f 6b 65 2d 67 65  ectors-stroke-ge
0590: 74 2d 70 6f 69 6e 74 73 20 70 61 74 68 20 73 74  t-points path st
05a0: 72 6f 6b 65 29 29 29 0a 20 20 20 20 20 20 20 20  roke))).        
05b0: 20 20 20 20 20 28 78 30 20 28 76 65 63 74 6f 72       (x0 (vector
05c0: 2d 72 65 66 20 70 6f 69 6e 74 73 20 32 29 29 0a  -ref points 2)).
05d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 79 30               (y0
05e0: 20 28 76 65 63 74 6f 72 2d 72 65 66 20 70 6f 69   (vector-ref poi
05f0: 6e 74 73 20 33 29 29 0a 20 20 20 20 20 20 20 20  nts 3)).        
0600: 20 20 20 20 20 28 78 31 20 28 76 65 63 74 6f 72       (x1 (vector
0610: 2d 72 65 66 20 70 6f 69 6e 74 73 20 30 29 29 0a  -ref points 0)).
0620: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 79 31               (y1
0630: 20 28 76 65 63 74 6f 72 2d 72 65 66 20 70 6f 69   (vector-ref poi
0640: 6e 74 73 20 31 29 29 20 29 0a 20 20 20 20 20 20  nts 1)) ).      
0650: 20 20 28 75 6e 6c 65 73 73 20 28 61 6e 64 20 28    (unless (and (
0660: 3d 20 78 30 20 78 31 29 20 28 3d 20 79 30 20 79  = x0 x1) (= y0 y
0670: 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c  1)).          (l
0680: 65 74 2a 20 28 28 65 64 67 65 2d 6c 65 6e 67 74  et* ((edge-lengt
0690: 68 20 28 73 71 72 74 20 28 2b 20 28 2a 20 28 2d  h (sqrt (+ (* (-
06a0: 20 78 30 20 78 31 29 20 28 2d 20 78 30 20 78 31   x0 x1) (- x0 x1
06b0: 29 29 20 28 2a 20 28 2d 20 79 30 20 79 31 29 20  )) (* (- y0 y1) 
06c0: 28 2d 20 79 30 20 79 31 29 29 29 29 29 0a 20 20  (- y0 y1))))).  
06d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28                 (
06e0: 69 6e 74 65 72 73 65 63 74 20 28 67 69 6d 70 2d  intersect (gimp-
06f0: 76 65 63 74 6f 72 73 2d 73 74 72 6f 6b 65 2d 67  vectors-stroke-g
0700: 65 74 2d 70 6f 69 6e 74 2d 61 74 2d 64 69 73 74  et-point-at-dist
0710: 20 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 20   path.          
0720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0750: 20 20 20 20 20 20 20 20 20 73 74 72 6f 6b 65 20           stroke 
0760: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
07a0: 20 20 20 20 65 64 67 65 2d 6c 65 6e 67 74 68 0a      edge-length.
07b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
07c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
07d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
07e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
07f0: 20 20 20 30 2e 32 20 29 29 0a 20 20 20 20 20 20     0.2 )).      
0800: 20 20 20 20 20 20 20 20 20 20 20 28 62 61 73 65             (base
0810: 2d 6c 65 6e 67 74 68 20 28 73 71 72 74 20 28 2b  -length (sqrt (+
0820: 20 28 2a 20 28 2d 20 78 30 20 28 63 61 72 20 69   (* (- x0 (car i
0830: 6e 74 65 72 73 65 63 74 29 29 20 28 2d 20 78 30  ntersect)) (- x0
0840: 20 28 63 61 72 20 69 6e 74 65 72 73 65 63 74 29   (car intersect)
0850: 29 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20  )) .            
0860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0870: 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 28 2d             (* (-
0880: 20 79 30 20 28 63 61 64 72 20 69 6e 74 65 72 73   y0 (cadr inters
0890: 65 63 74 29 29 20 28 2d 20 79 30 20 28 63 61 64  ect)) (- y0 (cad
08a0: 72 20 69 6e 74 65 72 73 65 63 74 29 29 29 20 29  r intersect))) )
08b0: 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  )).             
08c0: 20 20 20 20 28 61 6e 67 6c 65 20 28 61 63 6f 73      (angle (acos
08d0: 20 28 2d 20 28 2f 20 28 64 6f 74 20 28 2d 20 78   (- (/ (dot (- x
08e0: 31 20 78 30 29 20 0a 20 20 20 20 20 20 20 20 20  1 x0) .         
08f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0910: 28 2d 20 79 31 20 79 30 29 0a 20 20 20 20 20 20  (- y1 y0).      
0920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0940: 20 20 20 28 2d 20 28 63 61 72 20 69 6e 74 65 72     (- (car inter
0950: 73 65 63 74 29 20 78 30 29 20 0a 20 20 20 20 20  sect) x0) .     
0960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0980: 20 20 20 20 28 2d 20 28 63 61 64 72 20 69 6e 74      (- (cadr int
0990: 65 72 73 65 63 74 29 20 79 30 29 20 29 0a 20 20  ersect) y0) ).  
09a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
09b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
09c0: 20 20 28 2a 20 62 61 73 65 2d 6c 65 6e 67 74 68    (* base-length
09d0: 20 65 64 67 65 2d 6c 65 6e 67 74 68 29 20 29 29   edge-length) ))
09e0: 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  )).             
09f0: 20 20 20 20 28 73 74 72 6f 6b 65 2d 6d 20 28 63      (stroke-m (c
0a00: 61 72 20 28 67 69 6d 70 2d 76 65 63 74 6f 72 73  ar (gimp-vectors
0a10: 2d 62 65 7a 69 65 72 2d 73 74 72 6f 6b 65 2d 6e  -bezier-stroke-n
0a20: 65 77 2d 6d 6f 76 65 74 6f 20 70 61 74 68 20 78  ew-moveto path x
0a30: 31 20 79 31 29 29 29 20 29 0a 20 20 20 20 20 20  1 y1))) ).      
0a40: 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 3c        (unless (<
0a50: 20 28 2d 20 28 2a 20 28 2d 20 78 31 20 78 30 29   (- (* (- x1 x0)
0a60: 20 28 2d 20 28 63 61 64 72 20 69 6e 74 65 72 73   (- (cadr inters
0a70: 65 63 74 29 20 79 30 29 29 20 0a 20 20 20 20 20  ect) y0)) .     
0a80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0a90: 20 28 2a 20 28 2d 20 79 31 20 79 30 29 20 28 2d   (* (- y1 y0) (-
0aa0: 20 28 63 61 72 20 69 6e 74 65 72 73 65 63 74 29   (car intersect)
0ab0: 20 78 30 29 29 20 29 0a 20 20 20 20 20 20 20 20   x0)) ).        
0ac0: 20 20 20 20 20 20 20 20 20 20 20 30 20 29 0a 20             0 ). 
0ad0: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65               (se
0ae0: 74 21 20 61 6e 67 6c 65 20 28 2d 20 61 6e 67 6c  t! angle (- angl
0af0: 65 29 29 20 29 20 0a 20 20 20 20 20 20 20 20 20  e)) ) .         
0b00: 20 20 20 28 67 69 6d 70 2d 76 65 63 74 6f 72 73     (gimp-vectors
0b10: 2d 62 65 7a 69 65 72 2d 73 74 72 6f 6b 65 2d 6c  -bezier-stroke-l
0b20: 69 6e 65 74 6f 20 70 61 74 68 20 73 74 72 6f 6b  ineto path strok
0b30: 65 2d 6d 20 78 30 20 79 30 29 0a 20 20 20 20 20  e-m x0 y0).     
0b40: 20 20 20 20 20 20 20 28 67 69 6d 70 2d 76 65 63         (gimp-vec
0b50: 74 6f 72 73 2d 73 74 72 6f 6b 65 2d 72 6f 74 61  tors-stroke-rota
0b60: 74 65 20 70 61 74 68 20 73 74 72 6f 6b 65 2d 6d  te path stroke-m
0b70: 20 78 30 20 79 30 20 28 2a 20 61 6e 67 6c 65 20   x0 y0 (* angle 
0b80: 32 20 28 2f 20 31 38 30 20 2a 70 69 2a 29 29 29  2 (/ 180 *pi*)))
0b90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65  .            (le
0ba0: 74 20 28 28 70 6f 69 6e 74 73 20 28 63 61 64 64  t ((points (cadd
0bb0: 72 20 28 67 69 6d 70 2d 76 65 63 74 6f 72 73 2d  r (gimp-vectors-
0bc0: 73 74 72 6f 6b 65 2d 67 65 74 2d 70 6f 69 6e 74  stroke-get-point
0bd0: 73 20 70 61 74 68 20 73 74 72 6f 6b 65 2d 6d 29  s path stroke-m)
0be0: 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20  ))).            
0bf0: 20 20 28 67 69 6d 70 2d 76 65 63 74 6f 72 73 2d    (gimp-vectors-
0c00: 72 65 6d 6f 76 65 2d 73 74 72 6f 6b 65 20 70 61  remove-stroke pa
0c10: 74 68 20 73 74 72 6f 6b 65 2d 6d 29 20 0a 20 20  th stroke-m) .  
0c20: 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69 6d              (gim
0c30: 70 2d 62 72 75 73 68 2d 73 65 74 2d 72 61 64 69  p-brush-set-radi
0c40: 75 73 20 62 72 75 73 68 20 28 2a 20 28 73 71 72  us brush (* (sqr
0c50: 74 20 28 2b 20 28 2a 20 28 2d 20 78 31 20 28 76  t (+ (* (- x1 (v
0c60: 65 63 74 6f 72 2d 72 65 66 20 70 6f 69 6e 74 73  ector-ref points
0c70: 20 38 29 29 0a 20 20 20 20 20 20 20 20 20 20 20   8)).           
0c80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0c90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0ca0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28                 (
0cb0: 2d 20 78 31 20 28 76 65 63 74 6f 72 2d 72 65 66  - x1 (vector-ref
0cc0: 20 70 6f 69 6e 74 73 20 38 29 29 20 29 0a 20 20   points 8)) ).  
0cd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0ce0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0cf0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0d00: 20 20 20 20 20 28 2a 20 28 2d 20 79 31 20 28 76       (* (- y1 (v
0d10: 65 63 74 6f 72 2d 72 65 66 20 70 6f 69 6e 74 73  ector-ref points
0d20: 20 39 29 29 0a 20 20 20 20 20 20 20 20 20 20 20   9)).           
0d30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0d40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0d50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28                 (
0d60: 2d 20 79 31 20 28 76 65 63 74 6f 72 2d 72 65 66  - y1 (vector-ref
0d70: 20 70 6f 69 6e 74 73 20 39 29 29 20 29 29 29 0a   points 9)) ))).
0d80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0d90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0da0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61                pa
0db0: 69 6e 74 2d 77 69 64 74 68 20 29 29 0a 20 20 20  int-width )).   
0dc0: 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 21             (set!
0dd0: 20 61 72 72 6f 77 2d 68 65 61 64 20 28 6c 69 73   arrow-head (lis
0de0: 74 20 28 76 65 63 74 6f 72 20 78 30 20 79 30 20  t (vector x0 y0 
0df0: 78 31 20 79 31 20 28 76 65 63 74 6f 72 2d 72 65  x1 y1 (vector-re
0e00: 66 20 70 6f 69 6e 74 73 20 38 29 20 28 76 65 63  f points 8) (vec
0e10: 74 6f 72 2d 72 65 66 20 70 6f 69 6e 74 73 20 39  tor-ref points 9
0e20: 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  )).             
0e30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0e40: 20 20 20 20 20 20 20 20 28 76 65 63 74 6f 72 20          (vector 
0e50: 78 31 20 79 31 0a 20 20 20 20 20 20 20 20 20 20  x1 y1.          
0e60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0e70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0e80: 20 20 20 28 2b 20 28 2d 20 78 30 20 28 76 65 63     (+ (- x0 (vec
0e90: 74 6f 72 2d 72 65 66 20 70 6f 69 6e 74 73 20 38  tor-ref points 8
0ea0: 29 29 20 78 30 29 20 0a 20 20 20 20 20 20 20 20  )) x0) .        
0eb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0ec0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0ed0: 20 20 20 20 20 28 2b 20 28 2d 20 79 30 20 28 76       (+ (- y0 (v
0ee0: 65 63 74 6f 72 2d 72 65 66 20 70 6f 69 6e 74 73  ector-ref points
0ef0: 20 39 29 29 20 79 30 29 0a 20 20 20 20 20 20 20   9)) y0).       
0f00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0f10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0f20: 20 20 20 20 20 20 28 2b 20 28 2d 20 78 30 20 78        (+ (- x0 x
0f30: 31 29 20 78 30 29 20 0a 20 20 20 20 20 20 20 20  1) x0) .        
0f40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0f50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0f60: 20 20 20 20 20 28 2b 20 28 2d 20 79 30 20 79 31       (+ (- y0 y1
0f70: 29 20 79 30 29 0a 20 20 20 20 20 20 20 20 20 20  ) y0).          
0f80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0f90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0fa0: 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 70     (vector-ref p
0fb0: 6f 69 6e 74 73 20 38 29 20 0a 20 20 20 20 20 20  oints 8) .      
0fc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0fd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0fe0: 20 20 20 20 20 20 20 28 76 65 63 74 6f 72 2d 72         (vector-r
0ff0: 65 66 20 70 6f 69 6e 74 73 20 39 29 20 29 29 29  ef points 9) )))
1000: 29 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 2a  )))).      (let*
1010: 20 28 28 70 6f 69 6e 74 73 20 28 63 61 64 64 72   ((points (caddr
1020: 20 28 67 69 6d 70 2d 76 65 63 74 6f 72 73 2d 73   (gimp-vectors-s
1030: 74 72 6f 6b 65 2d 67 65 74 2d 70 6f 69 6e 74 73  troke-get-points
1040: 20 70 61 74 68 20 73 74 72 6f 6b 65 29 29 29 0a   path stroke))).
1050: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 75               (nu
1060: 6d 2d 70 6f 69 6e 74 73 20 28 63 61 64 72 20 28  m-points (cadr (
1070: 67 69 6d 70 2d 76 65 63 74 6f 72 73 2d 73 74 72  gimp-vectors-str
1080: 6f 6b 65 2d 67 65 74 2d 70 6f 69 6e 74 73 20 70  oke-get-points p
1090: 61 74 68 20 73 74 72 6f 6b 65 29 29 29 0a 20 20  ath stroke))).  
10a0: 20 20 20 20 20 20 20 20 20 20 20 28 78 30 20 28             (x0 (
10b0: 76 65 63 74 6f 72 2d 72 65 66 20 70 6f 69 6e 74  vector-ref point
10c0: 73 20 28 2d 20 6e 75 6d 2d 70 6f 69 6e 74 73 20  s (- num-points 
10d0: 34 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20  4))).           
10e0: 20 20 28 79 30 20 28 76 65 63 74 6f 72 2d 72 65    (y0 (vector-re
10f0: 66 20 70 6f 69 6e 74 73 20 28 2d 20 6e 75 6d 2d  f points (- num-
1100: 70 6f 69 6e 74 73 20 33 29 29 29 0a 20 20 20 20  points 3))).    
1110: 20 20 20 20 20 20 20 20 20 28 78 31 20 28 76 65           (x1 (ve
1120: 63 74 6f 72 2d 72 65 66 20 70 6f 69 6e 74 73 20  ctor-ref points 
1130: 28 2d 20 6e 75 6d 2d 70 6f 69 6e 74 73 20 32 29  (- num-points 2)
1140: 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  )).             
1150: 28 79 31 20 28 76 65 63 74 6f 72 2d 72 65 66 20  (y1 (vector-ref 
1160: 70 6f 69 6e 74 73 20 28 2d 20 6e 75 6d 2d 70 6f  points (- num-po
1170: 69 6e 74 73 20 31 29 29 29 20 29 0a 20 20 20 20  ints 1))) ).    
1180: 20 20 20 20 28 75 6e 6c 65 73 73 20 28 61 6e 64      (unless (and
1190: 20 28 3d 20 78 30 20 78 31 29 20 28 3d 20 79 30   (= x0 x1) (= y0
11a0: 20 79 31 29 29 0a 20 20 20 20 20 20 20 20 20 20   y1)).          
11b0: 28 6c 65 74 2a 20 28 28 65 64 67 65 2d 6c 65 6e  (let* ((edge-len
11c0: 67 74 68 20 28 73 71 72 74 20 28 2b 20 28 2a 20  gth (sqrt (+ (* 
11d0: 28 2d 20 78 30 20 78 31 29 20 28 2d 20 78 30 20  (- x0 x1) (- x0 
11e0: 78 31 29 29 20 28 2a 20 28 2d 20 79 30 20 79 31  x1)) (* (- y0 y1
11f0: 29 20 28 2d 20 79 30 20 79 31 29 29 29 29 29 0a  ) (- y0 y1))))).
1200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1210: 20 28 69 6e 74 65 72 73 65 63 74 20 28 67 69 6d   (intersect (gim
1220: 70 2d 76 65 63 74 6f 72 73 2d 73 74 72 6f 6b 65  p-vectors-stroke
1230: 2d 67 65 74 2d 70 6f 69 6e 74 2d 61 74 2d 64 69  -get-point-at-di
1240: 73 74 20 70 61 74 68 0a 20 20 20 20 20 20 20 20  st path.        
1250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1280: 20 20 20 20 20 20 20 73 74 72 6f 6b 65 20 0a 20         stroke . 
1290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
12a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
12b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
12c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d                (-
12d0: 20 28 63 61 72 20 28 67 69 6d 70 2d 76 65 63 74   (car (gimp-vect
12e0: 6f 72 73 2d 73 74 72 6f 6b 65 2d 67 65 74 2d 6c  ors-stroke-get-l
12f0: 65 6e 67 74 68 20 70 61 74 68 0a 20 20 20 20 20  ength path.     
1300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1360: 20 20 73 74 72 6f 6b 65 0a 20 20 20 20 20 20 20    stroke.       
1370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
13a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
13b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
13c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
13d0: 30 2e 32 20 29 29 0a 20 20 20 20 20 20 20 20 20  0.2 )).         
13e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
13f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1410: 20 20 20 20 20 20 20 20 20 65 64 67 65 2d 6c 65           edge-le
1420: 6e 67 74 68 29 0a 20 20 20 20 20 20 20 20 20 20  ngth).          
1430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1460: 20 20 20 20 20 30 2e 32 20 29 29 0a 20 20 20 20       0.2 )).    
1470: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 61               (ba
1480: 73 65 2d 6c 65 6e 67 74 68 20 28 73 71 72 74 20  se-length (sqrt 
1490: 28 2b 20 28 2a 20 28 2d 20 78 30 20 28 63 61 72  (+ (* (- x0 (car
14a0: 20 69 6e 74 65 72 73 65 63 74 29 29 20 28 2d 20   intersect)) (- 
14b0: 78 30 20 28 63 61 72 20 69 6e 74 65 72 73 65 63  x0 (car intersec
14c0: 74 29 29 29 20 0a 20 20 20 20 20 20 20 20 20 20  t))) .          
14d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
14e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20               (* 
14f0: 28 2d 20 79 30 20 28 63 61 64 72 20 69 6e 74 65  (- y0 (cadr inte
1500: 72 73 65 63 74 29 29 20 28 2d 20 79 30 20 28 63  rsect)) (- y0 (c
1510: 61 64 72 20 69 6e 74 65 72 73 65 63 74 29 29 29  adr intersect)))
1520: 20 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20   ))).           
1530: 20 20 20 20 20 20 28 61 6e 67 6c 65 20 28 61 63        (angle (ac
1540: 6f 73 20 28 2d 20 28 2f 20 28 64 6f 74 20 28 2d  os (- (/ (dot (-
1550: 20 78 31 20 78 30 29 20 0a 20 20 20 20 20 20 20   x1 x0) .       
1560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1580: 20 20 28 2d 20 79 31 20 79 30 29 0a 20 20 20 20    (- y1 y0).    
1590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
15a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
15b0: 20 20 20 20 20 28 2d 20 28 63 61 72 20 69 6e 74       (- (car int
15c0: 65 72 73 65 63 74 29 20 78 30 29 20 0a 20 20 20  ersect) x0) .   
15d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
15e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
15f0: 20 20 20 20 20 20 28 2d 20 28 63 61 64 72 20 69        (- (cadr i
1600: 6e 74 65 72 73 65 63 74 29 20 79 30 29 20 29 0a  ntersect) y0) ).
1610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1630: 20 20 20 20 28 2a 20 62 61 73 65 2d 6c 65 6e 67      (* base-leng
1640: 74 68 20 65 64 67 65 2d 6c 65 6e 67 74 68 29 20  th edge-length) 
1650: 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20  )))).           
1660: 20 20 20 20 20 20 28 73 74 72 6f 6b 65 2d 6d 20        (stroke-m 
1670: 28 63 61 72 20 28 67 69 6d 70 2d 76 65 63 74 6f  (car (gimp-vecto
1680: 72 73 2d 62 65 7a 69 65 72 2d 73 74 72 6f 6b 65  rs-bezier-stroke
1690: 2d 6e 65 77 2d 6d 6f 76 65 74 6f 20 70 61 74 68  -new-moveto path
16a0: 20 78 31 20 79 31 29 29 29 20 29 0a 20 20 20 20   x1 y1))) ).    
16b0: 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20          (unless 
16c0: 28 3c 20 28 2d 20 28 2a 20 28 2d 20 78 31 20 78  (< (- (* (- x1 x
16d0: 30 29 20 28 2d 20 28 63 61 64 72 20 69 6e 74 65  0) (- (cadr inte
16e0: 72 73 65 63 74 29 20 79 30 29 29 20 0a 20 20 20  rsect) y0)) .   
16f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1700: 20 20 20 20 20 20 20 28 2a 20 28 2d 20 79 31 20         (* (- y1 
1710: 79 30 29 20 28 2d 20 28 63 61 72 20 69 6e 74 65  y0) (- (car inte
1720: 72 73 65 63 74 29 20 78 30 29 29 20 29 0a 20 20  rsect) x0)) ).  
1730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1740: 20 20 20 20 20 30 20 29 0a 20 20 20 20 20 20 20       0 ).       
1750: 20 20 20 20 20 20 20 28 73 65 74 21 20 61 6e 67         (set! ang
1760: 6c 65 20 28 2d 20 61 6e 67 6c 65 29 29 20 29 0a  le (- angle)) ).
1770: 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69 6d              (gim
1780: 70 2d 76 65 63 74 6f 72 73 2d 62 65 7a 69 65 72  p-vectors-bezier
1790: 2d 73 74 72 6f 6b 65 2d 6c 69 6e 65 74 6f 20 70  -stroke-lineto p
17a0: 61 74 68 20 73 74 72 6f 6b 65 2d 6d 20 78 30 20  ath stroke-m x0 
17b0: 79 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20  y0).            
17c0: 28 67 69 6d 70 2d 76 65 63 74 6f 72 73 2d 73 74  (gimp-vectors-st
17d0: 72 6f 6b 65 2d 72 6f 74 61 74 65 20 70 61 74 68  roke-rotate path
17e0: 20 73 74 72 6f 6b 65 2d 6d 20 78 30 20 79 30 20   stroke-m x0 y0 
17f0: 28 2a 20 61 6e 67 6c 65 20 32 20 28 2f 20 31 38  (* angle 2 (/ 18
1800: 30 20 2a 70 69 2a 29 20 29 29 0a 20 20 20 20 20  0 *pi*) )).     
1810: 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 6f         (let ((po
1820: 69 6e 74 73 20 28 63 61 64 64 72 20 28 67 69 6d  ints (caddr (gim
1830: 70 2d 76 65 63 74 6f 72 73 2d 73 74 72 6f 6b 65  p-vectors-stroke
1840: 2d 67 65 74 2d 70 6f 69 6e 74 73 20 70 61 74 68  -get-points path
1850: 20 73 74 72 6f 6b 65 2d 6d 29 29 29 29 0a 20 20   stroke-m)))).  
1860: 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69 6d              (gim
1870: 70 2d 76 65 63 74 6f 72 73 2d 72 65 6d 6f 76 65  p-vectors-remove
1880: 2d 73 74 72 6f 6b 65 20 70 61 74 68 20 73 74 72  -stroke path str
1890: 6f 6b 65 2d 6d 29 20 0a 20 20 20 20 20 20 20 20  oke-m) .        
18a0: 20 20 20 20 20 20 28 67 69 6d 70 2d 62 72 75 73        (gimp-brus
18b0: 68 2d 73 65 74 2d 72 61 64 69 75 73 20 62 72 75  h-set-radius bru
18c0: 73 68 20 28 6d 69 6e 20 28 63 61 72 20 28 67 69  sh (min (car (gi
18d0: 6d 70 2d 62 72 75 73 68 2d 67 65 74 2d 72 61 64  mp-brush-get-rad
18e0: 69 75 73 20 62 72 75 73 68 29 29 0a 20 20 20 20  ius brush)).    
18f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1910: 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 28              (* (
1920: 73 71 72 74 20 28 2b 20 28 2a 20 28 2d 20 78 31  sqrt (+ (* (- x1
1930: 20 28 76 65 63 74 6f 72 2d 72 65 66 20 70 6f 69   (vector-ref poi
1940: 6e 74 73 20 38 29 29 0a 20 20 20 20 20 20 20 20  nts 8)).        
1950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1980: 20 20 28 2d 20 78 31 20 28 76 65 63 74 6f 72 2d    (- x1 (vector-
1990: 72 65 66 20 70 6f 69 6e 74 73 20 38 29 29 20 29  ref points 8)) )
19a0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
19b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
19c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
19d0: 20 20 20 20 20 20 20 20 28 2a 20 28 2d 20 79 31          (* (- y1
19e0: 20 28 76 65 63 74 6f 72 2d 72 65 66 20 70 6f 69   (vector-ref poi
19f0: 6e 74 73 20 39 29 29 0a 20 20 20 20 20 20 20 20  nts 9)).        
1a00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1a10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1a20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1a30: 20 20 28 2d 20 79 31 20 28 76 65 63 74 6f 72 2d    (- y1 (vector-
1a40: 72 65 66 20 70 6f 69 6e 74 73 20 39 29 29 20 29  ref points 9)) )
1a50: 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  )).             
1a60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1a70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1a80: 20 20 20 20 20 20 70 61 69 6e 74 2d 77 69 64 74        paint-widt
1a90: 68 20 29 29 29 0a 20 20 20 20 20 20 20 20 20 20  h ))).          
1aa0: 20 20 20 20 28 73 65 74 21 20 61 72 72 6f 77 2d      (set! arrow-
1ab0: 74 61 69 6c 20 28 6c 69 73 74 20 28 76 65 63 74  tail (list (vect
1ac0: 6f 72 20 78 30 20 79 30 20 78 31 20 79 31 20 28  or x0 y0 x1 y1 (
1ad0: 76 65 63 74 6f 72 2d 72 65 66 20 70 6f 69 6e 74  vector-ref point
1ae0: 73 20 38 29 20 28 76 65 63 74 6f 72 2d 72 65 66  s 8) (vector-ref
1af0: 20 70 6f 69 6e 74 73 20 39 29 29 0a 20 20 20 20   points 9)).    
1b00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1b10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1b20: 20 28 76 65 63 74 6f 72 20 78 31 20 79 31 0a 20   (vector x1 y1. 
1b30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1b40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1b50: 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 28              (+ (
1b60: 2d 20 78 30 20 28 76 65 63 74 6f 72 2d 72 65 66  - x0 (vector-ref
1b70: 20 70 6f 69 6e 74 73 20 38 29 29 20 78 30 29 20   points 8)) x0) 
1b80: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
1b90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1ba0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b                (+
1bb0: 20 28 2d 20 79 30 20 28 76 65 63 74 6f 72 2d 72   (- y0 (vector-r
1bc0: 65 66 20 70 6f 69 6e 74 73 20 39 29 29 20 79 30  ef points 9)) y0
1bd0: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ).              
1be0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1bf0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28                 (
1c00: 2b 20 28 2d 20 78 30 20 78 31 29 20 78 30 29 20  + (- x0 x1) x0) 
1c10: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
1c20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1c30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b                (+
1c40: 20 28 2d 20 79 30 20 79 31 29 20 79 30 29 0a 20   (- y0 y1) y0). 
1c50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1c60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1c70: 20 20 20 20 20 20 20 20 20 20 20 20 28 76 65 63              (vec
1c80: 74 6f 72 2d 72 65 66 20 70 6f 69 6e 74 73 20 38  tor-ref points 8
1c90: 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ) .             
1ca0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1cb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1cc0: 28 76 65 63 74 6f 72 2d 72 65 66 20 70 6f 69 6e  (vector-ref poin
1cd0: 74 73 20 39 29 20 29 29 29 29 29 29 29 0a 20 20  ts 9) ))))))).  
1ce0: 20 20 20 20 28 6c 65 74 20 28 28 6c 61 79 65 72      (let ((layer
1cf0: 20 28 63 61 72 20 28 67 69 6d 70 2d 6c 61 79 65   (car (gimp-laye
1d00: 72 2d 6e 65 77 20 69 6d 61 67 65 0a 20 20 20 20  r-new image.    
1d10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1d20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1d30: 20 20 20 20 28 63 61 72 20 28 67 69 6d 70 2d 69      (car (gimp-i
1d40: 6d 61 67 65 2d 77 69 64 74 68 20 69 6d 61 67 65  mage-width image
1d50: 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  )).             
1d60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1d70: 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20             (car 
1d80: 28 67 69 6d 70 2d 69 6d 61 67 65 2d 68 65 69 67  (gimp-image-heig
1d90: 68 74 20 69 6d 61 67 65 29 29 0a 20 20 20 20 20  ht image)).     
1da0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1db0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1dc0: 20 20 20 28 2b 20 28 2a 20 28 63 61 72 20 28 67     (+ (* (car (g
1dd0: 69 6d 70 2d 69 6d 61 67 65 2d 62 61 73 65 2d 74  imp-image-base-t
1de0: 79 70 65 20 69 6d 61 67 65 29 29 20 32 29 20 31  ype image)) 2) 1
1df0: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ).              
1e00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1e10: 20 20 20 20 20 20 20 20 20 20 22 41 72 72 6f 77            "Arrow
1e20: 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ".              
1e30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1e40: 20 20 20 20 20 20 20 20 20 20 31 30 30 0a 20 20            100.  
1e50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1e60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1e70: 20 20 20 20 20 20 4e 4f 52 4d 41 4c 2d 4d 4f 44        NORMAL-MOD
1e80: 45 20 29 29 29 20 29 0a 20 20 20 20 20 20 20 20  E ))) ).        
1e90: 28 67 69 6d 70 2d 64 72 61 77 61 62 6c 65 2d 66  (gimp-drawable-f
1ea0: 69 6c 6c 20 6c 61 79 65 72 20 54 52 41 4e 53 50  ill layer TRANSP
1eb0: 41 52 45 4e 54 2d 46 49 4c 4c 29 0a 20 20 20 20  ARENT-FILL).    
1ec0: 20 20 20 20 28 69 66 20 28 3d 20 28 63 61 72 20      (if (= (car 
1ed0: 28 67 69 6d 70 2d 69 74 65 6d 2d 69 73 2d 6c 61  (gimp-item-is-la
1ee0: 79 65 72 20 64 72 61 77 61 62 6c 65 29 29 20 31  yer drawable)) 1
1ef0: 29 0a 20 20 20 20 20 20 20 20 20 20 28 62 65 67  ).          (beg
1f00: 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28  in.            (
1f10: 67 69 6d 70 2d 69 6d 61 67 65 2d 73 65 74 2d 61  gimp-image-set-a
1f20: 63 74 69 76 65 2d 6c 61 79 65 72 20 69 6d 61 67  ctive-layer imag
1f30: 65 20 64 72 61 77 61 62 6c 65 29 0a 20 20 20 20  e drawable).    
1f40: 20 20 20 20 20 20 20 20 28 67 69 6d 70 2d 69 6d          (gimp-im
1f50: 61 67 65 2d 69 6e 73 65 72 74 2d 6c 61 79 65 72  age-insert-layer
1f60: 20 69 6d 61 67 65 20 6c 61 79 65 72 20 30 20 2d   image layer 0 -
1f70: 31 29 20 29 0a 20 20 20 20 20 20 20 20 20 20 28  1) ).          (
1f80: 67 69 6d 70 2d 69 6d 61 67 65 2d 69 6e 73 65 72  gimp-image-inser
1f90: 74 2d 6c 61 79 65 72 20 69 6d 61 67 65 20 6c 61  t-layer image la
1fa0: 79 65 72 20 30 20 30 29 20 29 0a 20 20 20 20 20  yer 0 0) ).     
1fb0: 20 20 20 28 67 69 6d 70 2d 65 64 69 74 2d 73 74     (gimp-edit-st
1fc0: 72 6f 6b 65 2d 76 65 63 74 6f 72 73 20 6c 61 79  roke-vectors lay
1fd0: 65 72 20 70 61 74 68 29 0a 20 20 20 20 20 20 20  er path).       
1fe0: 20 28 77 68 65 6e 20 61 72 72 6f 77 2d 68 65 61   (when arrow-hea
1ff0: 64 0a 20 20 20 20 20 20 20 20 20 20 28 67 69 6d  d.          (gim
2000: 70 2d 69 6d 61 67 65 2d 73 65 6c 65 63 74 2d 70  p-image-select-p
2010: 6f 6c 79 67 6f 6e 20 69 6d 61 67 65 0a 20 20 20  olygon image.   
2020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2040: 20 20 43 48 41 4e 4e 45 4c 2d 4f 50 2d 52 45 50    CHANNEL-OP-REP
2050: 4c 41 43 45 20 0a 20 20 20 20 20 20 20 20 20 20  LACE .          
2060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2070: 20 20 20 20 20 20 20 20 20 20 20 38 0a 20 20 20             8.   
2080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
20a0: 20 20 28 63 61 64 72 20 61 72 72 6f 77 2d 68 65    (cadr arrow-he
20b0: 61 64 29 20 29 0a 20 20 20 20 20 20 20 20 20 20  ad) ).          
20c0: 28 67 69 6d 70 2d 65 64 69 74 2d 63 6c 65 61 72  (gimp-edit-clear
20d0: 20 6c 61 79 65 72 29 0a 20 20 20 20 20 20 20 20   layer).        
20e0: 20 20 28 67 69 6d 70 2d 69 6d 61 67 65 2d 73 65    (gimp-image-se
20f0: 6c 65 63 74 2d 70 6f 6c 79 67 6f 6e 20 69 6d 61  lect-polygon ima
2100: 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ge.             
2110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2120: 20 20 20 20 20 20 20 20 43 48 41 4e 4e 45 4c 2d          CHANNEL-
2130: 4f 50 2d 52 45 50 4c 41 43 45 20 0a 20 20 20 20  OP-REPLACE .    
2140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2160: 20 36 0a 20 20 20 20 20 20 20 20 20 20 20 20 20   6.             
2170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2180: 20 20 20 20 20 20 20 20 28 63 61 72 20 61 72 72          (car arr
2190: 6f 77 2d 68 65 61 64 29 20 29 0a 20 20 20 20 20  ow-head) ).     
21a0: 20 20 20 20 20 28 67 69 6d 70 2d 65 64 69 74 2d       (gimp-edit-
21b0: 66 69 6c 6c 20 6c 61 79 65 72 20 46 4f 52 45 47  fill layer FOREG
21c0: 52 4f 55 4e 44 2d 46 49 4c 4c 29 20 29 0a 20 20  ROUND-FILL) ).  
21d0: 20 20 20 20 20 20 28 77 68 65 6e 20 61 72 72 6f        (when arro
21e0: 77 2d 74 61 69 6c 0a 20 20 20 20 20 20 20 20 20  w-tail.         
21f0: 20 28 67 69 6d 70 2d 69 6d 61 67 65 2d 73 65 6c   (gimp-image-sel
2200: 65 63 74 2d 70 6f 6c 79 67 6f 6e 20 69 6d 61 67  ect-polygon imag
2210: 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  e.              
2220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2230: 20 20 20 20 20 20 20 43 48 41 4e 4e 45 4c 2d 4f         CHANNEL-O
2240: 50 2d 52 45 50 4c 41 43 45 20 0a 20 20 20 20 20  P-REPLACE .     
2250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2270: 38 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  8.              
2280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2290: 20 20 20 20 20 20 20 28 63 61 64 72 20 61 72 72         (cadr arr
22a0: 6f 77 2d 74 61 69 6c 29 20 29 0a 20 20 20 20 20  ow-tail) ).     
22b0: 20 20 20 20 20 28 67 69 6d 70 2d 65 64 69 74 2d       (gimp-edit-
22c0: 63 6c 65 61 72 20 6c 61 79 65 72 29 0a 20 20 20  clear layer).   
22d0: 20 20 20 20 20 20 20 28 67 69 6d 70 2d 69 6d 61         (gimp-ima
22e0: 67 65 2d 73 65 6c 65 63 74 2d 70 6f 6c 79 67 6f  ge-select-polygo
22f0: 6e 20 69 6d 61 67 65 0a 20 20 20 20 20 20 20 20  n image.        
2300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2310: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 48 41               CHA
2320: 4e 4e 45 4c 2d 4f 50 2d 52 45 50 4c 41 43 45 20  NNEL-OP-REPLACE 
2330: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
2340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2350: 20 20 20 20 20 20 36 0a 20 20 20 20 20 20 20 20        6.        
2360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2370: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61               (ca
2380: 72 20 61 72 72 6f 77 2d 74 61 69 6c 29 20 29 0a  r arrow-tail) ).
2390: 20 20 20 20 20 20 20 20 20 20 28 67 69 6d 70 2d            (gimp-
23a0: 65 64 69 74 2d 66 69 6c 6c 20 6c 61 79 65 72 20  edit-fill layer 
23b0: 46 4f 52 45 47 52 4f 55 4e 44 2d 46 49 4c 4c 29  FOREGROUND-FILL)
23c0: 20 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e   ).        (when
23d0: 20 28 6f 72 20 28 3d 20 28 63 61 72 20 28 67 69   (or (= (car (gi
23e0: 6d 70 2d 69 74 65 6d 2d 69 73 2d 6c 61 79 65 72  mp-item-is-layer
23f0: 2d 6d 61 73 6b 20 64 72 61 77 61 62 6c 65 29 29  -mask drawable))
2400: 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20   1).            
2410: 20 20 20 20 20 20 28 3d 20 28 63 61 72 20 28 67        (= (car (g
2420: 69 6d 70 2d 69 74 65 6d 2d 69 73 2d 63 68 61 6e  imp-item-is-chan
2430: 6e 65 6c 20 64 72 61 77 61 62 6c 65 29 29 20 31  nel drawable)) 1
2440: 29 20 29 0a 20 20 20 20 20 20 20 20 20 20 28 67  ) ).          (g
2450: 69 6d 70 2d 69 6d 61 67 65 2d 73 65 6c 65 63 74  imp-image-select
2460: 2d 69 74 65 6d 20 69 6d 61 67 65 20 43 48 41 4e  -item image CHAN
2470: 4e 45 4c 2d 4f 50 2d 52 45 50 4c 41 43 45 20 6c  NEL-OP-REPLACE l
2480: 61 79 65 72 29 0a 20 20 20 20 20 20 20 20 20 20  ayer).          
2490: 28 67 69 6d 70 2d 69 6d 61 67 65 2d 72 65 6d 6f  (gimp-image-remo
24a0: 76 65 2d 6c 61 79 65 72 20 69 6d 61 67 65 20 6c  ve-layer image l
24b0: 61 79 65 72 29 0a 20 20 20 20 20 20 20 20 20 20  ayer).          
24c0: 28 67 69 6d 70 2d 69 6e 76 65 72 74 20 64 72 61  (gimp-invert dra
24d0: 77 61 62 6c 65 29 0a 20 20 20 20 20 20 20 20 20  wable).         
24e0: 20 28 75 6e 6c 65 73 73 20 28 3d 20 28 63 61 72   (unless (= (car
24f0: 20 28 67 69 6d 70 2d 69 74 65 6d 2d 69 73 2d 6c   (gimp-item-is-l
2500: 61 79 65 72 2d 6d 61 73 6b 20 64 72 61 77 61 62  ayer-mask drawab
2510: 6c 65 29 29 20 31 29 0a 20 20 20 20 20 20 20 20  le)) 1).        
2520: 20 20 20 20 28 67 69 6d 70 2d 69 6d 61 67 65 2d      (gimp-image-
2530: 73 65 74 2d 61 63 74 69 76 65 2d 63 68 61 6e 6e  set-active-chann
2540: 65 6c 20 69 6d 61 67 65 20 64 72 61 77 61 62 6c  el image drawabl
2550: 65 29 20 29 29 29 0a 20 20 20 20 20 20 28 67 69  e) ))).      (gi
2560: 6d 70 2d 73 65 6c 65 63 74 69 6f 6e 2d 6c 6f 61  mp-selection-loa
2570: 64 20 6f 72 69 67 2d 73 65 6c 29 0a 20 20 20 20  d orig-sel).    
2580: 20 20 28 67 69 6d 70 2d 69 6d 61 67 65 2d 72 65    (gimp-image-re
2590: 6d 6f 76 65 2d 63 68 61 6e 6e 65 6c 20 69 6d 61  move-channel ima
25a0: 67 65 20 6f 72 69 67 2d 73 65 6c 29 20 29 0a 20  ge orig-sel) ). 
25b0: 20 20 20 28 67 69 6d 70 2d 62 72 75 73 68 2d 64     (gimp-brush-d
25c0: 65 6c 65 74 65 20 62 72 75 73 68 29 0a 20 20 20  elete brush).   
25d0: 20 28 67 69 6d 70 2d 69 6d 61 67 65 2d 75 6e 64   (gimp-image-und
25e0: 6f 2d 67 72 6f 75 70 2d 65 6e 64 20 69 6d 61 67  o-group-end imag
25f0: 65 29 0a 20 20 20 20 28 67 69 6d 70 2d 63 6f 6e  e).    (gimp-con
2600: 74 65 78 74 2d 70 6f 70 29 0a 20 20 20 20 28 67  text-pop).    (g
2610: 69 6d 70 2d 64 69 73 70 6c 61 79 73 2d 66 6c 75  imp-displays-flu
2620: 73 68 29 0a 20 20 20 20 29 0a 20 20 29 0a 0a 28  sh).    ).  )..(
2630: 73 63 72 69 70 74 2d 66 75 2d 72 65 67 69 73 74  script-fu-regist
2640: 65 72 20 22 73 63 72 69 70 74 2d 66 75 2d 73 67  er "script-fu-sg
2650: 2d 61 72 72 6f 77 2d 73 74 72 6f 6b 65 2d 70 61  -arrow-stroke-pa
2660: 74 68 22 0a 20 20 22 41 72 72 6f 77 20 53 74 72  th".  "Arrow Str
2670: 6f 6b 65 20 50 61 74 68 22 0a 20 20 22 53 74 72  oke Path".  "Str
2680: 6f 6b 65 20 70 61 74 68 20 77 69 74 68 20 61 72  oke path with ar
2690: 72 6f 77 68 65 61 64 73 20 6f 6e 20 6e 65 77 20  rowheads on new 
26a0: 6c 61 79 65 72 22 0a 20 20 22 53 61 75 6c 20 47  layer".  "Saul G
26b0: 6f 6f 64 65 22 0a 20 20 22 53 61 75 6c 20 47 6f  oode".  "Saul Go
26c0: 6f 64 65 22 0a 20 20 22 4a 75 6e 65 20 32 30 31  ode".  "June 201
26d0: 33 22 0a 20 20 22 2a 22 0a 20 20 53 46 2d 49 4d  3".  "*".  SF-IM
26e0: 41 47 45 20 20 20 20 22 49 6d 61 67 65 22 20 20  AGE    "Image"  
26f0: 20 20 30 0a 20 20 29 0a 0a 28 73 63 72 69 70 74    0.  )..(script
2700: 2d 66 75 2d 6d 65 6e 75 2d 72 65 67 69 73 74 65  -fu-menu-registe
2710: 72 20 22 73 63 72 69 70 74 2d 66 75 2d 73 67 2d  r "script-fu-sg-
2720: 61 72 72 6f 77 2d 73 74 72 6f 6b 65 2d 70 61 74  arrow-stroke-pat
2730: 68 22 0a 20 22 3c 49 6d 61 67 65 3e 2f 45 64 69  h". "<Image>/Edi
2740: 74 2f 53 74 72 6f 6b 65 22 0a 20 29 0a 0a 20 20  t/Stroke". )..  
2750: 20 20 0a 20 20 20 20 0a 20 20 0a                   .    .  .