GIMP Script-fu

Hex Artifact Content
Login

Artifact 007bbbd31c5bb5c9e6aa105b84136f906c45a2cd:


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 70 72 6f 6a 65 63 74 69 6f 6e 2d 74 6f  sg-projection-to
0210: 2d 64 6f 64 65 63 61 68 65 64 72 6f 6e 20 6f 72  -dodecahedron or
0220: 69 67 2d 69 6d 61 67 65 20 6f 72 69 67 2d 64 72  ig-image orig-dr
0230: 61 77 61 62 6c 65 29 0a 20 20 3b 20 74 72 61 64  awable).  ; trad
0240: 69 74 69 6f 6e 61 6c 20 61 74 61 6e 32 20 66 75  itional atan2 fu
0250: 6e 63 74 69 6f 6e 20 2d 20 72 65 74 75 72 6e 73  nction - returns
0260: 20 61 6e 67 6c 65 20 6f 66 20 61 20 6c 69 6e 65   angle of a line
0270: 0a 20 20 3b 0a 20 20 28 64 65 66 69 6e 65 20 28  .  ;.  (define (
0280: 61 74 61 6e 32 20 79 20 78 29 0a 20 20 20 20 20  atan2 y x).     
0290: 20 28 69 66 20 28 3e 20 78 20 30 29 0a 20 20 20   (if (> x 0).   
02a0: 20 20 20 20 20 28 61 74 61 6e 20 28 2f 20 79 20       (atan (/ y 
02b0: 78 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20  x)).        (if 
02c0: 28 3c 20 78 20 30 29 0a 20 20 20 20 20 20 20 20  (< x 0).        
02d0: 20 20 28 69 66 20 28 3c 20 79 20 30 29 0a 20 20    (if (< y 0).  
02e0: 20 20 20 20 20 20 20 20 20 20 28 2d 20 28 61 74            (- (at
02f0: 61 6e 20 28 2f 20 79 20 78 29 29 20 2a 70 69 2a  an (/ y x)) *pi*
0300: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 2b  ).            (+
0310: 20 28 61 74 61 6e 20 28 2f 20 79 20 78 29 29 20   (atan (/ y x)) 
0320: 2a 70 69 2a 29 20 29 0a 20 20 20 20 20 20 20 20  *pi*) ).        
0330: 20 20 28 63 6f 6e 64 20 3b 3b 20 78 20 69 73 20    (cond ;; x is 
0340: 7a 65 72 6f 0a 20 20 20 20 20 20 20 20 20 20 20  zero.           
0350: 20 28 28 3e 20 79 20 30 29 20 28 2f 20 2a 70 69   ((> y 0) (/ *pi
0360: 2a 20 32 29 29 0a 20 20 20 20 20 20 20 20 20 20  * 2)).          
0370: 20 20 28 28 3c 20 79 20 30 29 20 28 2d 20 28 2f    ((< y 0) (- (/
0380: 20 2a 70 69 2a 20 32 29 29 29 0a 20 20 20 20 20   *pi* 2))).     
0390: 20 20 20 20 20 20 20 28 65 6c 73 65 20 3b 3b 20         (else ;; 
03a0: 78 3d 3d 79 3d 3d 30 20 69 73 20 74 79 70 69 63  x==y==0 is typic
03b0: 61 6c 6c 79 20 75 6e 64 65 66 69 6e 65 64 20 62  ally undefined b
03c0: 75 74 20 77 65 20 72 65 74 75 72 6e 20 30 20 69  ut we return 0 i
03d0: 6e 73 74 65 61 64 0a 20 20 20 20 20 20 20 20 20  nstead.         
03e0: 20 20 20 20 20 30 20 29 20 29 20 29 20 29 20 29       0 ) ) ) ) )
03f0: 0a 20 20 20 20 20 20 20 20 20 20 20 0a 20 20 28  .           .  (
0400: 64 65 66 69 6e 65 20 28 64 65 67 2d 3e 72 61 64  define (deg->rad
0410: 20 78 29 0a 20 20 20 20 28 2f 20 28 2a 20 78 20   x).    (/ (* x 
0420: 2a 70 69 2a 29 20 31 38 30 29 20 29 0a 20 20 28  *pi*) 180) ).  (
0430: 64 65 66 69 6e 65 20 28 72 61 64 2d 3e 64 65 67  define (rad->deg
0440: 20 78 29 0a 20 20 20 20 28 2f 20 28 2a 20 78 20   x).    (/ (* x 
0450: 31 38 30 29 20 2a 70 69 2a 29 20 29 0a 0a 20 20  180) *pi*) )..  
0460: 3b 20 70 6f 6c 61 72 20 74 6f 20 72 65 63 74 61  ; polar to recta
0470: 6e 67 75 6c 61 72 0a 20 20 3b 20 52 65 74 75 72  ngular.  ; Retur
0480: 6e 73 20 61 20 70 61 69 72 20 28 78 20 2e 20 79  ns a pair (x . y
0490: 29 0a 20 20 3b 0a 20 20 28 64 65 66 69 6e 65 20  ).  ;.  (define 
04a0: 28 70 2d 3e 72 20 72 61 64 20 61 6e 67 29 20 0a  (p->r rad ang) .
04b0: 20 20 20 20 28 63 6f 6e 73 20 28 2a 20 72 61 64      (cons (* rad
04c0: 20 28 63 6f 73 20 28 2f 20 61 6e 67 20 28 2f 20   (cos (/ ang (/ 
04d0: 31 38 30 20 2a 70 69 2a 29 29 29 29 20 0a 20 20  180 *pi*)))) .  
04e0: 20 20 20 20 20 20 20 20 28 2a 20 72 61 64 20 28          (* rad (
04f0: 73 69 6e 20 28 2f 20 61 6e 67 20 28 2f 20 31 38  sin (/ ang (/ 18
0500: 30 20 2a 70 69 2a 29 29 29 29 20 29 29 0a 20 20  0 *pi*)))) )).  
0510: 0a 20 20 3b 20 72 65 74 75 72 6e 20 61 20 6c 69  .  ; return a li
0520: 73 74 20 6f 66 20 70 61 69 72 73 20 63 6f 6e 74  st of pairs cont
0530: 61 69 6e 69 6e 67 20 74 68 65 20 61 6e 63 68 6f  aining the ancho
0540: 72 20 70 6f 69 6e 74 73 20 6f 66 20 61 20 70 61  r points of a pa
0550: 74 68 27 73 20 73 74 72 6f 6b 65 0a 20 20 3b 20  th's stroke.  ; 
0560: 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 28 28 78  For example, ((x
0570: 30 20 2e 20 79 30 29 20 28 78 31 20 2e 20 79 31  0 . y0) (x1 . y1
0580: 29 20 28 78 32 20 2e 20 79 32 29 20 28 78 33 20  ) (x2 . y2) (x3 
0590: 2e 20 79 33 29 20 28 78 34 20 2e 20 79 34 29 29  . y3) (x4 . y4))
05a0: 0a 20 20 3b 20 49 66 20 73 74 72 6f 6b 65 20 69  .  ; If stroke i
05b0: 73 20 6e 6f 74 20 73 75 70 70 6c 69 65 64 20 74  s not supplied t
05c0: 68 65 6e 20 66 69 72 73 74 20 73 74 72 6f 6b 65  hen first stroke
05d0: 20 69 73 20 61 73 73 75 6d 65 64 0a 20 20 3b 0a   is assumed.  ;.
05e0: 20 20 28 64 65 66 69 6e 65 20 28 67 65 74 2d 61    (define (get-a
05f0: 6e 63 68 6f 72 73 20 70 61 74 68 20 2e 20 73 74  nchors path . st
0600: 72 6f 6b 65 29 0a 20 20 20 20 28 6c 65 74 20 28  roke).    (let (
0610: 28 73 74 72 6f 6b 65 20 28 69 66 20 28 6e 75 6c  (stroke (if (nul
0620: 6c 3f 20 73 74 72 6f 6b 65 29 20 0a 20 20 20 20  l? stroke) .    
0630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0640: 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 28 63    (vector-ref (c
0650: 61 64 72 20 28 67 69 6d 70 2d 76 65 63 74 6f 72  adr (gimp-vector
0660: 73 2d 67 65 74 2d 73 74 72 6f 6b 65 73 20 70 61  s-get-strokes pa
0670: 74 68 29 29 20 30 29 0a 20 20 20 20 20 20 20 20  th)) 0).        
0680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63                (c
0690: 61 72 20 73 74 72 6f 6b 65 29 20 29 29 29 0a 20  ar stroke) ))). 
06a0: 20 20 20 20 20 28 6c 65 74 20 6c 6f 6f 70 20 28       (let loop (
06b0: 28 70 6f 69 6e 74 73 20 28 76 65 63 74 6f 72 2d  (points (vector-
06c0: 3e 6c 69 73 74 20 28 63 61 64 64 72 20 28 67 69  >list (caddr (gi
06d0: 6d 70 2d 76 65 63 74 6f 72 73 2d 73 74 72 6f 6b  mp-vectors-strok
06e0: 65 2d 67 65 74 2d 70 6f 69 6e 74 73 20 70 61 74  e-get-points pat
06f0: 68 20 73 74 72 6f 6b 65 29 29 29 29 0a 20 20 20  h stroke)))).   
0700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61                (a
0710: 6e 63 68 6f 72 73 20 27 28 29 29 20 29 0a 20 20  nchors '()) ).  
0720: 20 20 20 20 20 20 28 69 66 20 28 6e 75 6c 6c 3f        (if (null?
0730: 20 70 6f 69 6e 74 73 29 0a 20 20 20 20 20 20 20   points).       
0740: 20 20 20 28 69 66 20 28 6e 75 6c 6c 3f 20 61 6e     (if (null? an
0750: 63 68 6f 72 73 29 0a 20 20 20 20 20 20 20 20 20  chors).         
0760: 20 20 20 27 28 29 0a 20 20 20 20 20 20 20 20 20     '().         
0770: 20 20 20 28 72 65 76 65 72 73 65 20 61 6e 63 68     (reverse anch
0780: 6f 72 73 29 20 29 0a 20 20 20 20 20 20 20 20 20  ors) ).         
0790: 20 28 6c 6f 6f 70 20 28 63 64 64 64 72 20 28 63   (loop (cdddr (c
07a0: 64 64 64 72 20 70 6f 69 6e 74 73 29 29 20 0a 20  dddr points)) . 
07b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28                 (
07c0: 63 6f 6e 73 20 28 63 6f 6e 73 20 28 63 61 64 72  cons (cons (cadr
07d0: 20 28 63 64 64 64 72 20 70 6f 69 6e 74 73 29 29   (cdddr points))
07e0: 20 28 63 61 64 72 20 70 6f 69 6e 74 73 29 29 20   (cadr points)) 
07f0: 61 6e 63 68 6f 72 73 29 20 29 29 29 29 29 0a 20  anchors) ))))). 
0800: 20 3b 20 52 65 76 65 72 73 65 20 74 68 65 20 64   ; Reverse the d
0810: 69 72 65 63 74 69 6f 6e 20 6f 66 20 61 20 70 61  irection of a pa
0820: 74 68 27 73 20 70 6f 6c 79 67 6f 6e 61 6c 20 73  th's polygonal s
0830: 74 72 6f 6b 65 2e 20 57 6f 72 6b 73 20 62 79 20  troke. Works by 
0840: 63 72 65 61 74 69 6e 67 0a 20 20 3b 20 61 20 6e  creating.  ; a n
0850: 65 77 20 28 72 65 76 65 72 73 65 64 29 20 73 74  ew (reversed) st
0860: 72 6f 6b 65 20 61 6e 64 20 72 65 6d 6f 76 69 6e  roke and removin
0870: 67 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 2e 0a  g the original..
0880: 20 20 3b 20 52 65 74 75 72 6e 73 20 74 68 65 20    ; Returns the 
0890: 6e 65 77 20 73 74 72 6f 6b 65 2e 0a 20 20 3b 20  new stroke..  ; 
08a0: 49 66 20 73 74 72 6f 6b 65 20 69 73 20 6e 6f 74  If stroke is not
08b0: 20 73 75 70 70 6c 69 65 64 20 74 68 65 6e 20 66   supplied then f
08c0: 69 72 73 74 20 73 74 72 6f 6b 65 20 69 73 20 61  irst stroke is a
08d0: 73 73 75 6d 65 64 2e 0a 20 20 3b 0a 20 20 28 64  ssumed..  ;.  (d
08e0: 65 66 69 6e 65 20 28 72 65 76 65 72 73 65 2d 70  efine (reverse-p
08f0: 65 6e 74 20 70 61 74 68 20 2e 20 73 74 72 6f 6b  ent path . strok
0900: 65 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 73  e).    (let* ((s
0910: 74 72 6f 6b 65 20 28 69 66 20 28 6e 75 6c 6c 3f  troke (if (null?
0920: 20 73 74 72 6f 6b 65 29 20 0a 20 20 20 20 20 20   stroke) .      
0930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0940: 28 76 65 63 74 6f 72 2d 72 65 66 20 28 63 61 64  (vector-ref (cad
0950: 72 20 28 67 69 6d 70 2d 76 65 63 74 6f 72 73 2d  r (gimp-vectors-
0960: 67 65 74 2d 73 74 72 6f 6b 65 73 20 70 61 74 68  get-strokes path
0970: 29 29 20 30 29 0a 20 20 20 20 20 20 20 20 20 20  )) 0).          
0980: 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72              (car
0990: 20 73 74 72 6f 6b 65 29 20 29 29 0a 20 20 20 20   stroke) )).    
09a0: 20 20 20 20 20 20 20 28 61 6e 63 68 6f 72 73 20         (anchors 
09b0: 28 67 65 74 2d 61 6e 63 68 6f 72 73 20 70 61 74  (get-anchors pat
09c0: 68 20 73 74 72 6f 6b 65 29 29 0a 20 20 20 20 20  h stroke)).     
09d0: 20 20 20 20 20 20 28 6e 65 77 2d 73 74 72 6f 6b        (new-strok
09e0: 65 20 30 29 20 29 0a 20 20 20 20 20 20 3b 20 6d  e 0) ).      ; m
09f0: 61 6e 67 6c 65 20 6c 69 73 74 20 6f 72 64 65 72  angle list order
0a00: 20 62 65 63 61 75 73 65 20 73 74 72 6f 6b 65 73   because strokes
0a10: 20 61 72 65 20 62 75 69 6c 74 20 69 6e 20 72 65   are built in re
0a20: 76 65 72 73 65 20 6f 72 64 65 72 0a 20 20 20 20  verse order.    
0a30: 20 20 28 73 65 74 21 20 61 6e 63 68 6f 72 73 20    (set! anchors 
0a40: 28 72 65 76 65 72 73 65 20 28 61 70 70 65 6e 64  (reverse (append
0a50: 20 28 6c 69 73 74 20 28 63 61 72 20 61 6e 63 68   (list (car anch
0a60: 6f 72 73 29 29 20 28 72 65 76 65 72 73 65 20 28  ors)) (reverse (
0a70: 63 64 72 20 61 6e 63 68 6f 72 73 29 29 29 29 29  cdr anchors)))))
0a80: 0a 20 20 20 20 20 20 28 73 65 74 21 20 6e 65 77  .      (set! new
0a90: 2d 73 74 72 6f 6b 65 20 28 63 61 72 20 28 67 69  -stroke (car (gi
0aa0: 6d 70 2d 76 65 63 74 6f 72 73 2d 62 65 7a 69 65  mp-vectors-bezie
0ab0: 72 2d 73 74 72 6f 6b 65 2d 6e 65 77 2d 6d 6f 76  r-stroke-new-mov
0ac0: 65 74 6f 20 70 61 74 68 20 0a 20 20 20 20 20 20  eto path .      
0ad0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0ae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0af0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0b00: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61               (ca
0b10: 61 72 20 61 6e 63 68 6f 72 73 29 0a 20 20 20 20  ar anchors).    
0b20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0b30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0b40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0b50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28                 (
0b60: 63 64 61 72 20 61 6e 63 68 6f 72 73 29 20 29 29  cdar anchors) ))
0b70: 29 0a 20 20 20 20 20 20 28 67 69 6d 70 2d 76 65  ).      (gimp-ve
0b80: 63 74 6f 72 73 2d 72 65 6d 6f 76 65 2d 73 74 72  ctors-remove-str
0b90: 6f 6b 65 20 70 61 74 68 20 73 74 72 6f 6b 65 29  oke path stroke)
0ba0: 0a 20 20 20 20 20 20 28 6c 65 74 20 6c 6f 6f 70  .      (let loop
0bb0: 20 28 28 61 6e 63 68 6f 72 73 20 28 63 64 72 20   ((anchors (cdr 
0bc0: 61 6e 63 68 6f 72 73 29 29 29 0a 20 20 20 20 20  anchors))).     
0bd0: 20 20 20 28 69 66 20 28 6e 75 6c 6c 3f 20 61 6e     (if (null? an
0be0: 63 68 6f 72 73 29 0a 20 20 20 20 20 20 20 20 20  chors).         
0bf0: 20 6e 65 77 2d 73 74 72 6f 6b 65 0a 20 20 20 20   new-stroke.    
0c00: 20 20 20 20 20 20 28 62 65 67 69 6e 0a 20 20 20        (begin.   
0c10: 20 20 20 20 20 20 20 20 20 28 67 69 6d 70 2d 76           (gimp-v
0c20: 65 63 74 6f 72 73 2d 62 65 7a 69 65 72 2d 73 74  ectors-bezier-st
0c30: 72 6f 6b 65 2d 6c 69 6e 65 74 6f 20 70 61 74 68  roke-lineto path
0c40: 20 6e 65 77 2d 73 74 72 6f 6b 65 20 28 63 61 61   new-stroke (caa
0c50: 72 20 61 6e 63 68 6f 72 73 29 20 28 63 64 61 72  r anchors) (cdar
0c60: 20 61 6e 63 68 6f 72 73 29 29 0a 20 20 20 20 20   anchors)).     
0c70: 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 28 63 64         (loop (cd
0c80: 72 20 61 6e 63 68 6f 72 73 29 29 20 29 29 29 29  r anchors)) ))))
0c90: 29 0a 20 20 3b 20 46 6f 72 20 64 65 62 75 67 67  ).  ; For debugg
0ca0: 69 6e 67 20 6f 6e 6c 79 0a 3b 20 20 28 64 65 66  ing only.;  (def
0cb0: 69 6e 65 20 28 70 72 69 6e 74 2d 70 6f 69 6e 74  ine (print-point
0cc0: 73 20 70 61 74 68 29 0a 3b 20 20 20 20 28 6c 65  s path).;    (le
0cd0: 74 2a 20 28 28 73 74 72 6f 6b 65 20 28 76 65 63  t* ((stroke (vec
0ce0: 74 6f 72 2d 72 65 66 20 28 63 61 64 72 20 28 67  tor-ref (cadr (g
0cf0: 69 6d 70 2d 76 65 63 74 6f 72 73 2d 67 65 74 2d  imp-vectors-get-
0d00: 73 74 72 6f 6b 65 73 20 70 61 74 68 29 29 20 30  strokes path)) 0
0d10: 29 29 29 0a 3b 20 20 20 20 20 20 28 64 69 73 70  ))).;      (disp
0d20: 6c 61 79 20 28 67 69 6d 70 2d 76 65 63 74 6f 72  lay (gimp-vector
0d30: 73 2d 73 74 72 6f 6b 65 2d 67 65 74 2d 70 6f 69  s-stroke-get-poi
0d40: 6e 74 73 20 70 61 74 68 20 73 74 72 6f 6b 65 29  nts path stroke)
0d50: 29 20 29 29 0a 0a 20 20 3b 20 43 72 65 61 74 65  ) ))..  ; Create
0d60: 20 61 20 6e 65 77 20 70 65 6e 74 61 67 6f 6e 20   a new pentagon 
0d70: 28 61 20 70 6f 6c 79 67 6f 6e 61 6c 20 70 61 74  (a polygonal pat
0d80: 68 20 77 69 74 68 20 66 69 76 65 20 61 6e 63 68  h with five anch
0d90: 6f 72 20 70 6f 69 6e 74 73 29 0a 20 20 3b 20 78  or points).  ; x
0da0: 79 61 20 69 73 20 61 20 6c 69 73 74 20 63 6f 6e  ya is a list con
0db0: 74 61 69 6e 69 6e 67 20 74 68 65 20 78 20 61 6e  taining the x an
0dc0: 64 20 79 20 63 6f 6f 72 64 69 6e 61 74 65 73 2c  d y coordinates,
0dd0: 20 61 6e 64 20 74 68 65 20 61 6e 67 6c 65 20 28   and the angle (
0de0: 69 6e 20 64 65 67 72 65 65 73 29 20 6f 66 20 74  in degrees) of t
0df0: 68 65 20 66 69 72 73 74 20 65 64 67 65 0a 20 20  he first edge.  
0e00: 3b 20 52 65 74 75 72 6e 73 20 74 68 65 20 70 61  ; Returns the pa
0e10: 74 68 20 49 44 20 6f 66 20 74 68 65 20 63 72 65  th ID of the cre
0e20: 61 74 65 64 20 70 65 6e 74 61 67 6f 6e 2e 20 20  ated pentagon.  
0e30: 20 20 20 20 20 20 20 20 0a 20 20 3b 20 4e 6f 74          .  ; Not
0e40: 65 20 74 6f 20 70 72 6f 67 72 61 6d 6d 65 72 73  e to programmers
0e50: 3a 20 74 68 65 20 62 65 7a 69 65 72 2d 73 74 72  : the bezier-str
0e60: 6f 6b 65 2d 6c 69 6e 65 2d 74 6f 20 72 6f 75 74  oke-line-to rout
0e70: 69 6e 65 20 70 72 65 70 65 6e 64 73 20 6e 65 77  ine prepends new
0e80: 20 70 6f 69 6e 74 73 20 74 6f 0a 20 20 3b 20 20   points to.  ;  
0e90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0ea0: 20 20 20 20 74 68 65 20 73 74 61 72 74 20 6f 66      the start of
0eb0: 20 74 68 65 20 73 74 72 6f 6b 65 21 0a 20 20 3b   the stroke!.  ;
0ec0: 0a 20 20 28 64 65 66 69 6e 65 20 28 6d 61 6b 65  .  (define (make
0ed0: 2d 70 65 6e 74 20 69 6d 61 67 65 20 6e 61 6d 65  -pent image name
0ee0: 20 78 79 61 20 65 64 67 65 2d 6c 65 6e 67 74 68   xya edge-length
0ef0: 29 20 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 70  ) .    (let* ((p
0f00: 61 74 68 20 28 63 61 72 20 28 67 69 6d 70 2d 76  ath (car (gimp-v
0f10: 65 63 74 6f 72 73 2d 6e 65 77 20 69 6d 61 67 65  ectors-new image
0f20: 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20   name))).       
0f30: 20 20 20 28 73 74 72 6f 6b 65 20 30 29 0a 20 20     (stroke 0).  
0f40: 20 20 20 20 20 20 20 20 28 78 20 28 63 61 72 20          (x (car 
0f50: 78 79 61 29 29 0a 20 20 20 20 20 20 20 20 20 20  xya)).          
0f60: 28 79 20 28 63 61 64 72 20 78 79 61 29 29 0a 20  (y (cadr xya)). 
0f70: 20 20 20 20 20 20 20 20 20 28 62 61 6e 6e 65 72           (banner
0f80: 2d 61 6e 67 6c 65 20 28 63 61 64 64 72 20 78 79  -angle (caddr xy
0f90: 61 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 70  a)).          (p
0fa0: 6f 69 6e 74 73 20 28 6c 69 73 74 20 28 63 6f 6e  oints (list (con
0fb0: 73 20 78 20 79 29 29 29 20 29 0a 20 20 20 20 20  s x y))) ).     
0fc0: 20 28 67 69 6d 70 2d 69 6d 61 67 65 2d 61 64 64   (gimp-image-add
0fd0: 2d 76 65 63 74 6f 72 73 20 69 6d 61 67 65 20 70  -vectors image p
0fe0: 61 74 68 20 30 29 0a 20 20 20 20 20 20 28 6c 65  ath 0).      (le
0ff0: 74 20 6c 6f 6f 70 20 28 28 63 6f 75 6e 74 20 34  t loop ((count 4
1000: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ).              
1010: 20 20 20 28 78 20 28 2b 20 78 20 28 63 61 72 20     (x (+ x (car 
1020: 28 70 2d 3e 72 20 65 64 67 65 2d 6c 65 6e 67 74  (p->r edge-lengt
1030: 68 20 62 61 6e 6e 65 72 2d 61 6e 67 6c 65 29 29  h banner-angle))
1040: 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  )).             
1050: 20 20 20 20 28 79 20 28 2b 20 79 20 28 63 64 72      (y (+ y (cdr
1060: 20 28 70 2d 3e 72 20 65 64 67 65 2d 6c 65 6e 67   (p->r edge-leng
1070: 74 68 20 62 61 6e 6e 65 72 2d 61 6e 67 6c 65 29  th banner-angle)
1080: 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20  ))).            
1090: 20 20 20 20 20 28 61 6e 67 6c 65 20 37 32 29 20       (angle 72) 
10a0: 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 7a  ).        (if (z
10b0: 65 72 6f 3f 20 63 6f 75 6e 74 29 0a 20 20 20 20  ero? count).    
10c0: 20 20 20 20 20 20 70 6f 69 6e 74 73 0a 20 20 20        points.   
10d0: 20 20 20 20 20 20 20 28 62 65 67 69 6e 0a 20 20         (begin.  
10e0: 20 20 20 20 20 20 20 20 20 20 28 73 65 74 21 20            (set! 
10f0: 70 6f 69 6e 74 73 20 28 63 6f 6e 73 20 28 63 6f  points (cons (co
1100: 6e 73 20 78 20 79 29 20 70 6f 69 6e 74 73 29 29  ns x y) points))
1110: 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f  .            (lo
1120: 6f 70 20 28 2d 20 63 6f 75 6e 74 20 31 29 20 0a  op (- count 1) .
1130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1140: 20 20 28 2b 20 78 20 28 63 61 72 20 28 70 2d 3e    (+ x (car (p->
1150: 72 20 65 64 67 65 2d 6c 65 6e 67 74 68 20 28 2b  r edge-length (+
1160: 20 62 61 6e 6e 65 72 2d 61 6e 67 6c 65 20 61 6e   banner-angle an
1170: 67 6c 65 29 29 29 29 0a 20 20 20 20 20 20 20 20  gle)))).        
1180: 20 20 20 20 20 20 20 20 20 20 28 2b 20 79 20 28            (+ y (
1190: 63 64 72 20 28 70 2d 3e 72 20 65 64 67 65 2d 6c  cdr (p->r edge-l
11a0: 65 6e 67 74 68 20 28 2b 20 62 61 6e 6e 65 72 2d  ength (+ banner-
11b0: 61 6e 67 6c 65 20 61 6e 67 6c 65 29 29 29 29 0a  angle angle)))).
11c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
11d0: 20 20 28 6d 6f 64 75 6c 6f 20 28 2b 20 61 6e 67    (modulo (+ ang
11e0: 6c 65 20 37 32 29 20 33 36 30 29 20 29 29 29 29  le 72) 360) ))))
11f0: 0a 20 20 20 20 20 20 28 73 65 74 21 20 73 74 72  .      (set! str
1200: 6f 6b 65 20 28 63 61 72 20 28 67 69 6d 70 2d 76  oke (car (gimp-v
1210: 65 63 74 6f 72 73 2d 62 65 7a 69 65 72 2d 73 74  ectors-bezier-st
1220: 72 6f 6b 65 2d 6e 65 77 2d 6d 6f 76 65 74 6f 20  roke-new-moveto 
1230: 70 61 74 68 20 28 63 61 61 72 20 70 6f 69 6e 74  path (caar point
1240: 73 29 20 28 63 64 61 72 20 70 6f 69 6e 74 73 29  s) (cdar points)
1250: 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 21 20  ))).      (set! 
1260: 70 6f 69 6e 74 73 20 28 63 64 72 20 70 6f 69 6e  points (cdr poin
1270: 74 73 29 29 0a 20 20 20 20 20 20 28 77 68 69 6c  ts)).      (whil
1280: 65 20 28 70 61 69 72 3f 20 70 6f 69 6e 74 73 29  e (pair? points)
1290: 0a 20 20 20 20 20 20 20 20 28 67 69 6d 70 2d 76  .        (gimp-v
12a0: 65 63 74 6f 72 73 2d 62 65 7a 69 65 72 2d 73 74  ectors-bezier-st
12b0: 72 6f 6b 65 2d 6c 69 6e 65 74 6f 20 70 61 74 68  roke-lineto path
12c0: 20 73 74 72 6f 6b 65 20 28 63 61 61 72 20 70 6f   stroke (caar po
12d0: 69 6e 74 73 29 20 28 63 64 61 72 20 70 6f 69 6e  ints) (cdar poin
12e0: 74 73 29 29 0a 20 20 20 20 20 20 20 20 28 73 65  ts)).        (se
12f0: 74 21 20 70 6f 69 6e 74 73 20 28 63 64 72 20 70  t! points (cdr p
1300: 6f 69 6e 74 73 29 29 20 29 0a 20 20 20 20 20 20  oints)) ).      
1310: 28 67 69 6d 70 2d 76 65 63 74 6f 72 73 2d 73 74  (gimp-vectors-st
1320: 72 6f 6b 65 2d 63 6c 6f 73 65 20 70 61 74 68 20  roke-close path 
1330: 73 74 72 6f 6b 65 29 0a 20 20 20 20 20 20 70 61  stroke).      pa
1340: 74 68 20 29 29 0a 20 20 0a 20 20 3b 20 70 65 6e  th )).  .  ; pen
1350: 74 2d 72 65 66 20 72 65 74 75 72 6e 73 20 61 20  t-ref returns a 
1360: 6c 69 73 74 20 63 6f 6e 74 61 69 6e 69 6e 67 20  list containing 
1370: 74 68 65 20 73 74 61 72 74 69 6e 67 20 78 79 20  the starting xy 
1380: 63 6f 6f 72 64 73 20 61 6e 64 20 61 6e 67 6c 65  coords and angle
1390: 20 28 69 6e 20 64 65 67 72 65 65 73 29 20 6f 66   (in degrees) of
13a0: 0a 20 20 3b 20 74 68 65 20 6e 74 68 20 70 61 74  .  ; the nth pat
13b0: 68 20 73 65 67 6d 65 6e 74 2e 20 28 54 68 69 73  h segment. (This
13c0: 20 6c 69 73 74 20 63 61 6e 20 74 68 65 6e 20 62   list can then b
13d0: 65 20 70 61 73 73 65 64 20 74 6f 20 6d 61 6b 65  e passed to make
13e0: 2d 70 65 6e 74 2e 29 0a 20 20 3b 20 28 78 20 79  -pent.).  ; (x y
13f0: 20 61 6e 67 6c 65 29 0a 20 20 3b 0a 20 20 28 64   angle).  ;.  (d
1400: 65 66 69 6e 65 20 28 70 65 6e 74 2d 72 65 66 20  efine (pent-ref 
1410: 70 65 6e 74 20 69 6e 64 65 78 29 0a 20 20 20 20  pent index).    
1420: 28 6c 65 74 2a 20 28 28 70 6f 69 6e 74 73 20 28  (let* ((points (
1430: 67 65 74 2d 61 6e 63 68 6f 72 73 20 70 65 6e 74  get-anchors pent
1440: 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 78  )).           (x
1450: 30 20 28 63 61 72 20 28 6c 69 73 74 2d 72 65 66  0 (car (list-ref
1460: 20 70 6f 69 6e 74 73 20 69 6e 64 65 78 29 29 29   points index)))
1470: 0a 20 20 20 20 20 20 20 20 20 20 20 28 79 30 20  .           (y0 
1480: 28 63 64 72 20 28 6c 69 73 74 2d 72 65 66 20 70  (cdr (list-ref p
1490: 6f 69 6e 74 73 20 69 6e 64 65 78 29 29 29 0a 20  oints index))). 
14a0: 20 20 20 20 20 20 20 20 20 20 28 78 31 20 28 63            (x1 (c
14b0: 61 72 20 28 6c 69 73 74 2d 72 65 66 20 70 6f 69  ar (list-ref poi
14c0: 6e 74 73 20 28 6d 6f 64 75 6c 6f 20 28 2b 20 69  nts (modulo (+ i
14d0: 6e 64 65 78 20 31 29 20 35 29 29 29 29 0a 20 20  ndex 1) 5)))).  
14e0: 20 20 20 20 20 20 20 20 20 28 79 31 20 28 63 64           (y1 (cd
14f0: 72 20 28 6c 69 73 74 2d 72 65 66 20 70 6f 69 6e  r (list-ref poin
1500: 74 73 20 28 6d 6f 64 75 6c 6f 20 28 2b 20 69 6e  ts (modulo (+ in
1510: 64 65 78 20 31 29 20 35 29 29 29 29 0a 20 20 20  dex 1) 5)))).   
1520: 20 20 20 20 20 20 20 20 28 61 6e 67 20 28 61 74          (ang (at
1530: 61 6e 32 20 28 2d 20 79 31 20 79 30 29 20 28 2d  an2 (- y1 y0) (-
1540: 20 78 31 20 78 30 29 29 29 20 29 0a 20 20 20 20   x1 x0))) ).    
1550: 20 20 28 6c 69 73 74 20 78 30 0a 20 20 20 20 20    (list x0.     
1560: 20 20 20 20 20 20 20 79 30 0a 20 20 20 20 20 20         y0.      
1570: 20 20 20 20 20 20 28 2a 20 31 38 30 20 61 6e 67        (* 180 ang
1580: 20 28 2f 20 2a 70 69 2a 29 29 20 29 29 29 0a 0a   (/ *pi*)) )))..
1590: 20 20 3b 20 52 65 6e 64 65 72 73 20 61 20 70 72    ; Renders a pr
15a0: 6f 70 65 72 6c 79 20 73 69 7a 65 64 20 61 6e 64  operly sized and
15b0: 20 72 6f 74 61 74 65 64 20 66 61 63 65 74 20 66   rotated facet f
15c0: 72 6f 6d 20 74 68 65 20 67 69 76 65 6e 20 66 61  rom the given fa
15d0: 63 65 74 20 69 6d 61 67 65 2e 0a 20 20 3b 20 49  cet image..  ; I
15e0: 66 20 74 68 65 20 66 61 63 65 74 20 69 6d 61 67  f the facet imag
15f0: 65 20 68 61 73 20 6d 6f 72 65 20 74 68 61 6e 20  e has more than 
1600: 6f 6e 65 20 6c 61 79 65 72 2c 20 74 68 6f 73 65  one layer, those
1610: 20 6c 61 79 65 72 73 20 61 72 65 20 0a 20 20 3b   layers are .  ;
1620: 20 22 63 79 63 6c 65 64 20 74 68 72 6f 75 67 68   "cycled through
1630: 22 20 62 6f 74 74 6f 6d 2d 74 6f 2d 74 6f 70 20  " bottom-to-top 
1640: 28 72 65 70 65 61 74 65 64 20 69 66 20 6e 65 63  (repeated if nec
1650: 65 73 73 61 72 79 29 2e 0a 20 20 3b 20 49 66 20  essary)..  ; If 
1660: 74 68 65 20 73 6f 75 72 63 65 20 6c 61 79 65 72  the source layer
1670: 20 69 73 20 6e 6f 74 20 63 68 61 69 6e 20 6c 69   is not chain li
1680: 6e 6b 65 64 2c 20 69 74 20 77 69 6c 6c 20 62 65  nked, it will be
1690: 20 72 65 73 69 7a 65 64 20 74 6f 20 66 69 74 0a   resized to fit.
16a0: 20 20 3b 20 74 68 65 20 66 61 63 65 74 20 28 63    ; the facet (c
16b0: 65 6e 74 65 72 65 64 29 3b 20 65 6c 73 65 20 74  entered); else t
16c0: 68 65 20 75 70 70 65 72 2d 6c 65 66 74 20 72 65  he upper-left re
16d0: 67 69 6f 6e 20 6f 66 20 74 68 65 20 6c 61 79 65  gion of the laye
16e0: 72 20 69 73 20 75 73 65 64 2e 0a 20 20 3b 20 0a  r is used..  ; .
16f0: 20 20 28 64 65 66 69 6e 65 20 28 63 6f 70 79 2d    (define (copy-
1700: 66 61 63 65 74 73 20 74 61 72 67 65 74 2d 69 6d  facets target-im
1710: 61 67 65 20 74 61 72 67 65 74 2d 6c 61 79 65 72  age target-layer
1720: 20 6f 72 69 67 2d 69 6d 61 67 65 20 66 61 63 65   orig-image face
1730: 74 73 20 70 65 6e 74 73 20 65 64 67 65 2d 6c 65  ts pents edge-le
1740: 6e 67 74 68 29 0a 20 20 20 20 28 6c 65 74 2a 20  ngth).    (let* 
1750: 28 28 78 20 28 63 65 69 6c 69 6e 67 20 28 2a 20  ((x (ceiling (* 
1760: 65 64 67 65 2d 6c 65 6e 67 74 68 20 28 63 6f 73  edge-length (cos
1770: 20 28 64 65 67 2d 3e 72 61 64 20 37 32 29 29 29   (deg->rad 72)))
1780: 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77  )).           (w
1790: 69 64 74 68 20 28 2b 20 31 20 65 64 67 65 2d 6c  idth (+ 1 edge-l
17a0: 65 6e 67 74 68 20 28 2a 20 32 20 78 29 29 29 0a  ength (* 2 x))).
17b0: 20 20 20 20 20 20 20 20 20 20 20 28 68 65 69 67             (heig
17c0: 68 74 20 28 63 65 69 6c 69 6e 67 20 28 2b 20 31  ht (ceiling (+ 1
17d0: 20 28 2a 20 65 64 67 65 2d 6c 65 6e 67 74 68 20   (* edge-length 
17e0: 28 2b 20 28 63 6f 73 20 28 64 65 67 2d 3e 72 61  (+ (cos (deg->ra
17f0: 64 20 31 38 29 29 20 28 73 69 6e 20 28 64 65 67  d 18)) (sin (deg
1800: 2d 3e 72 61 64 20 33 36 29 29 29 29 29 29 29 0a  ->rad 36))))))).
1810: 20 20 20 20 20 20 20 20 20 20 20 28 69 6d 61 67             (imag
1820: 65 20 28 63 61 72 20 28 67 69 6d 70 2d 69 6d 61  e (car (gimp-ima
1830: 67 65 2d 6e 65 77 20 77 69 64 74 68 20 68 65 69  ge-new width hei
1840: 67 68 74 20 52 47 42 29 29 29 0a 20 20 20 20 20  ght RGB))).     
1850: 20 20 20 20 20 20 28 6c 61 79 65 72 20 28 63 61        (layer (ca
1860: 72 20 28 67 69 6d 70 2d 6c 61 79 65 72 2d 6e 65  r (gimp-layer-ne
1870: 77 20 69 6d 61 67 65 20 77 69 64 74 68 20 68 65  w image width he
1880: 69 67 68 74 20 52 47 42 2d 49 4d 41 47 45 20 22  ight RGB-IMAGE "
1890: 74 61 72 67 65 74 22 20 31 30 30 20 4e 4f 52 4d  target" 100 NORM
18a0: 41 4c 2d 4d 4f 44 45 29 29 29 0a 20 20 20 20 20  AL-MODE))).     
18b0: 20 20 20 20 20 20 28 66 72 61 6d 65 20 28 6d 61        (frame (ma
18c0: 6b 65 2d 70 65 6e 74 20 69 6d 61 67 65 20 22 74  ke-pent image "t
18d0: 6d 70 22 20 28 6c 69 73 74 20 78 20 30 20 30 29  mp" (list x 0 0)
18e0: 20 65 64 67 65 2d 6c 65 6e 67 74 68 29 29 0a 20   edge-length)). 
18f0: 20 20 20 20 20 20 20 20 20 20 28 78 79 61 20 27            (xya '
1900: 28 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28  ()).           (
1910: 62 75 66 66 65 72 20 22 22 29 0a 20 20 20 20 20  buffer "").     
1920: 20 20 20 20 20 20 28 66 6c 6f 61 74 65 64 20 30        (floated 0
1930: 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 6d  ).           (tm
1940: 70 2d 6c 61 79 65 72 20 30 29 0a 20 20 20 20 20  p-layer 0).     
1950: 20 20 20 20 20 20 28 63 68 61 6e 6e 65 6c 20 30        (channel 0
1960: 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6e 65  ).           (ne
1970: 77 2d 66 61 63 65 74 73 20 27 28 29 29 20 29 0a  w-facets '()) ).
1980: 20 20 20 20 20 20 28 67 69 6d 70 2d 69 6d 61 67        (gimp-imag
1990: 65 2d 75 6e 64 6f 2d 66 72 65 65 7a 65 20 6f 72  e-undo-freeze or
19a0: 69 67 2d 69 6d 61 67 65 29 0a 20 20 20 20 20 20  ig-image).      
19b0: 28 73 65 74 21 20 63 68 61 6e 6e 65 6c 20 28 63  (set! channel (c
19c0: 61 72 20 28 67 69 6d 70 2d 73 65 6c 65 63 74 69  ar (gimp-selecti
19d0: 6f 6e 2d 73 61 76 65 20 6f 72 69 67 2d 69 6d 61  on-save orig-ima
19e0: 67 65 29 29 29 0a 20 20 20 20 20 20 28 67 69 6d  ge))).      (gim
19f0: 70 2d 73 65 6c 65 63 74 69 6f 6e 2d 6e 6f 6e 65  p-selection-none
1a00: 20 6f 72 69 67 2d 69 6d 61 67 65 29 0a 20 20 20   orig-image).   
1a10: 20 20 20 28 67 69 6d 70 2d 69 6d 61 67 65 2d 61     (gimp-image-a
1a20: 64 64 2d 6c 61 79 65 72 20 69 6d 61 67 65 20 6c  dd-layer image l
1a30: 61 79 65 72 20 30 29 0a 20 20 20 20 20 20 28 77  ayer 0).      (w
1a40: 68 69 6c 65 20 28 70 61 69 72 3f 20 70 65 6e 74  hile (pair? pent
1a50: 73 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 21  s).        (set!
1a60: 20 78 79 61 20 28 70 65 6e 74 2d 72 65 66 20 28   xya (pent-ref (
1a70: 63 61 72 20 70 65 6e 74 73 29 20 30 29 29 0a 20  car pents) 0)). 
1a80: 20 20 20 20 20 20 20 28 73 65 74 21 20 62 75 66         (set! buf
1a90: 66 65 72 20 28 63 61 72 20 28 67 69 6d 70 2d 65  fer (car (gimp-e
1aa0: 64 69 74 2d 6e 61 6d 65 64 2d 63 6f 70 79 20 28  dit-named-copy (
1ab0: 63 61 72 20 66 61 63 65 74 73 29 20 22 74 6d 70  car facets) "tmp
1ac0: 22 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 65  "))).        (se
1ad0: 74 21 20 74 6d 70 2d 6c 61 79 65 72 20 28 63 61  t! tmp-layer (ca
1ae0: 72 20 28 67 69 6d 70 2d 65 64 69 74 2d 6e 61 6d  r (gimp-edit-nam
1af0: 65 64 2d 70 61 73 74 65 20 6c 61 79 65 72 20 62  ed-paste layer b
1b00: 75 66 66 65 72 20 46 41 4c 53 45 29 29 29 0a 20  uffer FALSE))). 
1b10: 20 20 20 20 20 20 20 28 67 69 6d 70 2d 62 75 66         (gimp-buf
1b20: 66 65 72 2d 64 65 6c 65 74 65 20 62 75 66 66 65  fer-delete buffe
1b30: 72 29 0a 20 20 20 20 20 20 20 20 28 67 69 6d 70  r).        (gimp
1b40: 2d 66 6c 6f 61 74 69 6e 67 2d 73 65 6c 2d 74 6f  -floating-sel-to
1b50: 2d 6c 61 79 65 72 20 74 6d 70 2d 6c 61 79 65 72  -layer tmp-layer
1b60: 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20  ).        (when 
1b70: 28 7a 65 72 6f 3f 20 28 63 61 72 20 28 67 69 6d  (zero? (car (gim
1b80: 70 2d 64 72 61 77 61 62 6c 65 2d 67 65 74 2d 6c  p-drawable-get-l
1b90: 69 6e 6b 65 64 20 28 63 61 72 20 66 61 63 65 74  inked (car facet
1ba0: 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20  s)))).          
1bb0: 28 6c 65 74 2a 20 28 28 6c 61 79 65 72 2d 77 69  (let* ((layer-wi
1bc0: 64 74 68 20 28 63 61 72 20 28 67 69 6d 70 2d 64  dth (car (gimp-d
1bd0: 72 61 77 61 62 6c 65 2d 77 69 64 74 68 20 74 6d  rawable-width tm
1be0: 70 2d 6c 61 79 65 72 29 29 29 0a 20 20 20 20 20  p-layer))).     
1bf0: 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 79              (lay
1c00: 65 72 2d 68 65 69 67 68 74 20 28 63 61 72 20 28  er-height (car (
1c10: 67 69 6d 70 2d 64 72 61 77 61 62 6c 65 2d 68 65  gimp-drawable-he
1c20: 69 67 68 74 20 74 6d 70 2d 6c 61 79 65 72 29 29  ight tmp-layer))
1c30: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ).              
1c40: 20 20 20 28 61 73 70 65 63 74 20 28 2f 20 6c 61     (aspect (/ la
1c50: 79 65 72 2d 68 65 69 67 68 74 20 6c 61 79 65 72  yer-height layer
1c60: 2d 77 69 64 74 68 29 29 20 29 0a 20 20 20 20 20  -width)) ).     
1c70: 20 20 20 20 20 20 20 28 69 66 20 28 3e 20 28 2f         (if (> (/
1c80: 20 77 69 64 74 68 20 6c 61 79 65 72 2d 77 69 64   width layer-wid
1c90: 74 68 29 20 28 2f 20 68 65 69 67 68 74 20 6c 61  th) (/ height la
1ca0: 79 65 72 2d 68 65 69 67 68 74 29 29 0a 20 20 20  yer-height)).   
1cb0: 20 20 20 20 20 20 20 20 20 20 20 28 62 65 67 69             (begi
1cc0: 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  n.              
1cd0: 20 20 28 67 69 6d 70 2d 6c 61 79 65 72 2d 73 63    (gimp-layer-sc
1ce0: 61 6c 65 2d 66 75 6c 6c 20 74 6d 70 2d 6c 61 79  ale-full tmp-lay
1cf0: 65 72 20 0a 20 20 20 20 20 20 20 20 20 20 20 20  er .            
1d00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1d10: 20 20 20 20 20 20 20 20 20 20 20 77 69 64 74 68             width
1d20: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
1d30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1d40: 20 20 20 20 20 20 20 20 28 2a 20 77 69 64 74 68          (* width
1d50: 20 61 73 70 65 63 74 29 0a 20 20 20 20 20 20 20   aspect).       
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 20 20 20 20 20                  
1d80: 54 52 55 45 20 0a 20 20 20 20 20 20 20 20 20 20  TRUE .          
1d90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1da0: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4e 54               INT
1db0: 45 52 50 4f 4c 41 54 49 4f 4e 2d 4c 41 4e 43 5a  ERPOLATION-LANCZ
1dc0: 4f 53 29 0a 20 20 20 20 20 20 20 20 20 20 20 20  OS).            
1dd0: 20 20 20 20 28 67 69 6d 70 2d 6c 61 79 65 72 2d      (gimp-layer-
1de0: 73 65 74 2d 6f 66 66 73 65 74 73 20 74 6d 70 2d  set-offsets tmp-
1df0: 6c 61 79 65 72 20 30 20 28 2f 20 28 2d 20 68 65  layer 0 (/ (- he
1e00: 69 67 68 74 20 28 2a 20 77 69 64 74 68 20 61 73  ight (* width as
1e10: 70 65 63 74 29 29 20 32 29 29 20 29 20 20 20 20  pect)) 2)) )    
1e20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1e30: 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 20        .         
1e40: 20 20 20 20 20 28 62 65 67 69 6e 20 0a 20 20 20       (begin .   
1e50: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69               (gi
1e60: 6d 70 2d 6c 61 79 65 72 2d 73 63 61 6c 65 2d 66  mp-layer-scale-f
1e70: 75 6c 6c 20 74 6d 70 2d 6c 61 79 65 72 20 0a 20  ull tmp-layer . 
1e80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1e90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1ea0: 20 20 20 20 20 20 28 2f 20 68 65 69 67 68 74 20        (/ height 
1eb0: 61 73 70 65 63 74 29 0a 20 20 20 20 20 20 20 20  aspect).        
1ec0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1ed0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68                 h
1ee0: 65 69 67 68 74 0a 20 20 20 20 20 20 20 20 20 20  eight.          
1ef0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1f00: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 52 55               TRU
1f10: 45 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  E .             
1f20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1f30: 20 20 20 20 20 20 20 20 20 20 49 4e 54 45 52 50            INTERP
1f40: 4f 4c 41 54 49 4f 4e 2d 4c 41 4e 43 5a 4f 53 29  OLATION-LANCZOS)
1f50: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
1f60: 20 28 67 69 6d 70 2d 6c 61 79 65 72 2d 73 65 74   (gimp-layer-set
1f70: 2d 6f 66 66 73 65 74 73 20 74 6d 70 2d 6c 61 79  -offsets tmp-lay
1f80: 65 72 20 28 2f 20 28 2d 20 77 69 64 74 68 20 28  er (/ (- width (
1f90: 2f 20 68 65 69 67 68 74 20 61 73 70 65 63 74 29  / height aspect)
1fa0: 29 20 32 29 20 30 29 20 29 29 29 29 0a 20 20 20  ) 2) 0) )))).   
1fb0: 20 20 20 20 20 28 67 69 6d 70 2d 76 65 63 74 6f       (gimp-vecto
1fc0: 72 73 2d 74 6f 2d 73 65 6c 65 63 74 69 6f 6e 20  rs-to-selection 
1fd0: 66 72 61 6d 65 20 43 48 41 4e 4e 45 4c 2d 4f 50  frame CHANNEL-OP
1fe0: 2d 52 45 50 4c 41 43 45 20 54 52 55 45 20 46 41  -REPLACE TRUE FA
1ff0: 4c 53 45 20 30 20 30 29 0a 20 20 20 20 20 20 20  LSE 0 0).       
2000: 20 28 73 65 74 21 20 62 75 66 66 65 72 20 28 63   (set! buffer (c
2010: 61 72 20 28 67 69 6d 70 2d 65 64 69 74 2d 6e 61  ar (gimp-edit-na
2020: 6d 65 64 2d 63 6f 70 79 20 74 6d 70 2d 6c 61 79  med-copy tmp-lay
2030: 65 72 20 22 74 6d 70 22 29 29 29 0a 20 20 20 20  er "tmp"))).    
2040: 20 20 20 20 28 73 65 74 21 20 66 6c 6f 61 74 65      (set! floate
2050: 64 20 28 63 61 72 20 28 67 69 6d 70 2d 65 64 69  d (car (gimp-edi
2060: 74 2d 6e 61 6d 65 64 2d 70 61 73 74 65 20 74 61  t-named-paste ta
2070: 72 67 65 74 2d 6c 61 79 65 72 20 62 75 66 66 65  rget-layer buffe
2080: 72 20 46 41 4c 53 45 29 29 29 0a 20 20 20 20 20  r FALSE))).     
2090: 20 20 20 28 67 69 6d 70 2d 62 75 66 66 65 72 2d     (gimp-buffer-
20a0: 64 65 6c 65 74 65 20 62 75 66 66 65 72 29 0a 20  delete buffer). 
20b0: 20 20 20 20 20 20 20 28 67 69 6d 70 2d 66 6c 6f         (gimp-flo
20c0: 61 74 69 6e 67 2d 73 65 6c 2d 74 6f 2d 6c 61 79  ating-sel-to-lay
20d0: 65 72 20 66 6c 6f 61 74 65 64 29 0a 20 20 20 20  er floated).    
20e0: 20 20 20 20 28 67 69 6d 70 2d 6c 61 79 65 72 2d      (gimp-layer-
20f0: 73 65 74 2d 6f 66 66 73 65 74 73 20 66 6c 6f 61  set-offsets floa
2100: 74 65 64 20 28 2d 20 28 63 61 72 20 78 79 61 29  ted (- (car xya)
2110: 20 78 29 20 28 63 61 64 72 20 78 79 61 29 29 0a   x) (cadr xya)).
2120: 20 20 20 20 20 20 20 20 28 67 69 6d 70 2d 64 72          (gimp-dr
2130: 61 77 61 62 6c 65 2d 74 72 61 6e 73 66 6f 72 6d  awable-transform
2140: 2d 72 6f 74 61 74 65 20 66 6c 6f 61 74 65 64 20  -rotate floated 
2150: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
2160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2170: 20 20 20 20 20 20 20 20 20 28 64 65 67 2d 3e 72           (deg->r
2180: 61 64 20 28 63 61 64 64 72 20 78 79 61 29 29 20  ad (caddr xya)) 
2190: 3b 20 64 65 6c 74 61 2d 79 20 64 65 6c 74 61 2d  ; delta-y delta-
21a0: 78 20 66 6f 72 20 65 6e 64 20 70 6f 69 6e 74 73  x for end points
21b0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
21c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
21d0: 20 20 20 20 20 20 20 20 20 46 41 4c 53 45 20 0a           FALSE .
21e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
21f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2200: 20 20 20 20 20 20 20 20 28 2b 20 28 63 61 72 20          (+ (car 
2210: 78 79 61 29 20 30 29 20 28 63 61 64 72 20 78 79  xya) 0) (cadr xy
2220: 61 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  a).             
2230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2240: 20 20 20 20 20 20 20 20 20 20 20 54 52 41 4e 53             TRANS
2250: 46 4f 52 4d 2d 46 4f 52 57 41 52 44 20 0a 20 20  FORM-FORWARD .  
2260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2280: 20 20 20 20 20 20 49 4e 54 45 52 50 4f 4c 41 54        INTERPOLAT
2290: 49 4f 4e 2d 43 55 42 49 43 0a 20 20 20 20 20 20  ION-CUBIC.      
22a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
22b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
22c0: 20 20 54 52 55 45 20 33 20 54 52 41 4e 53 46 4f    TRUE 3 TRANSFO
22d0: 52 4d 2d 52 45 53 49 5a 45 2d 41 44 4a 55 53 54  RM-RESIZE-ADJUST
22e0: 20 29 0a 20 20 20 20 20 20 20 20 28 67 69 6d 70   ).        (gimp
22f0: 2d 64 72 61 77 61 62 6c 65 2d 73 65 74 2d 6e 61  -drawable-set-na
2300: 6d 65 20 66 6c 6f 61 74 65 64 20 28 63 61 72 20  me floated (car 
2310: 28 67 69 6d 70 2d 64 72 61 77 61 62 6c 65 2d 67  (gimp-drawable-g
2320: 65 74 2d 6e 61 6d 65 20 28 63 61 72 20 66 61 63  et-name (car fac
2330: 65 74 73 29 29 29 29 0a 20 20 20 20 20 20 20 20  ets)))).        
2340: 28 67 69 6d 70 2d 69 6d 61 67 65 2d 6c 6f 77 65  (gimp-image-lowe
2350: 72 2d 6c 61 79 65 72 2d 74 6f 2d 62 6f 74 74 6f  r-layer-to-botto
2360: 6d 20 74 61 72 67 65 74 2d 69 6d 61 67 65 20 66  m target-image f
2370: 6c 6f 61 74 65 64 29 0a 20 20 20 20 20 20 20 20  loated).        
2380: 28 67 69 6d 70 2d 69 6d 61 67 65 2d 72 61 69 73  (gimp-image-rais
2390: 65 2d 6c 61 79 65 72 20 74 61 72 67 65 74 2d 69  e-layer target-i
23a0: 6d 61 67 65 20 66 6c 6f 61 74 65 64 29 0a 20 20  mage floated).  
23b0: 20 20 20 20 20 20 28 73 65 74 21 20 6e 65 77 2d        (set! new-
23c0: 66 61 63 65 74 73 20 28 63 6f 6e 73 20 66 6c 6f  facets (cons flo
23d0: 61 74 65 64 20 6e 65 77 2d 66 61 63 65 74 73 29  ated new-facets)
23e0: 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 21 20  ).        (set! 
23f0: 70 65 6e 74 73 20 28 63 64 72 20 70 65 6e 74 73  pents (cdr pents
2400: 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 21  )).        (set!
2410: 20 66 61 63 65 74 73 20 28 63 64 72 20 66 61 63   facets (cdr fac
2420: 65 74 73 29 29 0a 20 20 20 20 20 20 20 20 29 0a  ets)).        ).
2430: 20 20 20 20 20 20 28 67 69 6d 70 2d 69 6d 61 67        (gimp-imag
2440: 65 2d 64 65 6c 65 74 65 20 69 6d 61 67 65 29 0a  e-delete image).
2450: 20 20 20 20 20 20 28 67 69 6d 70 2d 73 65 6c 65        (gimp-sele
2460: 63 74 69 6f 6e 2d 6c 6f 61 64 20 63 68 61 6e 6e  ction-load chann
2470: 65 6c 29 0a 20 20 20 20 20 20 28 67 69 6d 70 2d  el).      (gimp-
2480: 69 6d 61 67 65 2d 72 65 6d 6f 76 65 2d 63 68 61  image-remove-cha
2490: 6e 6e 65 6c 20 6f 72 69 67 2d 69 6d 61 67 65 20  nnel orig-image 
24a0: 63 68 61 6e 6e 65 6c 29 0a 20 20 20 20 20 20 28  channel).      (
24b0: 67 69 6d 70 2d 69 6d 61 67 65 2d 75 6e 64 6f 2d  gimp-image-undo-
24c0: 74 68 61 77 20 6f 72 69 67 2d 69 6d 61 67 65 29  thaw orig-image)
24d0: 0a 20 20 20 20 20 20 6e 65 77 2d 66 61 63 65 74  .      new-facet
24e0: 73 0a 20 20 20 20 20 20 29 0a 20 20 20 20 29 0a  s.      ).    ).
24f0: 0a 20 20 28 64 65 66 69 6e 65 20 28 6d 61 6b 65  .  (define (make
2500: 2d 74 61 62 20 69 6d 61 67 65 20 6e 61 6d 65 20  -tab image name 
2510: 70 65 6e 74 20 65 64 67 65 2d 6c 65 6e 67 74 68  pent edge-length
2520: 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 78 79  ).    (let* ((xy
2530: 61 20 28 61 70 70 65 6e 64 20 28 62 75 74 6c 61  a (append (butla
2540: 73 74 20 28 70 65 6e 74 2d 72 65 66 20 70 65 6e  st (pent-ref pen
2550: 74 20 32 29 29 20 28 63 64 64 72 20 28 70 65 6e  t 2)) (cddr (pen
2560: 74 2d 72 65 66 20 70 65 6e 74 20 31 29 29 29 29  t-ref pent 1))))
2570: 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 61 62  .           (tab
2580: 20 28 63 61 72 20 28 67 69 6d 70 2d 76 65 63 74   (car (gimp-vect
2590: 6f 72 73 2d 6e 65 77 20 69 6d 61 67 65 20 6e 61  ors-new image na
25a0: 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20  me))).          
25b0: 20 28 73 74 72 6f 6b 65 20 30 29 20 29 0a 20 20   (stroke 0) ).  
25c0: 20 20 20 20 28 67 69 6d 70 2d 69 6d 61 67 65 2d      (gimp-image-
25d0: 61 64 64 2d 76 65 63 74 6f 72 73 20 69 6d 61 67  add-vectors imag
25e0: 65 20 74 61 62 20 30 29 0a 20 20 20 20 20 20 28  e tab 0).      (
25f0: 73 65 74 21 20 73 74 72 6f 6b 65 20 28 63 61 72  set! stroke (car
2600: 20 28 67 69 6d 70 2d 76 65 63 74 6f 72 73 2d 62   (gimp-vectors-b
2610: 65 7a 69 65 72 2d 73 74 72 6f 6b 65 2d 6e 65 77  ezier-stroke-new
2620: 2d 6d 6f 76 65 74 6f 20 74 61 62 20 28 63 61 72  -moveto tab (car
2630: 20 78 79 61 29 20 28 63 61 64 72 20 78 79 61 29   xya) (cadr xya)
2640: 29 29 29 0a 20 20 20 20 20 20 28 67 69 6d 70 2d  ))).      (gimp-
2650: 76 65 63 74 6f 72 73 2d 62 65 7a 69 65 72 2d 73  vectors-bezier-s
2660: 74 72 6f 6b 65 2d 6c 69 6e 65 74 6f 20 74 61 62  troke-lineto tab
2670: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
2680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2690: 20 20 20 20 20 20 20 20 20 20 73 74 72 6f 6b 65            stroke
26a0: 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20   .              
26b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
26c0: 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 28 63             (+ (c
26d0: 61 72 20 20 78 79 61 29 20 28 63 61 72 20 28 70  ar  xya) (car (p
26e0: 2d 3e 72 20 28 2f 20 65 64 67 65 2d 6c 65 6e 67  ->r (/ edge-leng
26f0: 74 68 20 33 29 20 28 63 61 64 64 72 20 78 79 61  th 3) (caddr xya
2700: 29 29 29 29 20 0a 20 20 20 20 20 20 20 20 20 20  )))) .          
2710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28                 (
2730: 2b 20 28 63 61 64 72 20 78 79 61 29 20 28 63 64  + (cadr xya) (cd
2740: 72 20 28 70 2d 3e 72 20 28 2f 20 65 64 67 65 2d  r (p->r (/ edge-
2750: 6c 65 6e 67 74 68 20 33 29 20 28 63 61 64 64 72  length 3) (caddr
2760: 20 78 79 61 29 29 29 29 20 29 0a 20 20 20 20 20   xya)))) ).     
2770: 20 28 73 65 74 21 20 78 79 61 20 28 70 65 6e 74   (set! xya (pent
2780: 2d 72 65 66 20 70 65 6e 74 20 33 29 29 0a 20 20  -ref pent 3)).  
2790: 20 20 20 20 28 67 69 6d 70 2d 76 65 63 74 6f 72      (gimp-vector
27a0: 73 2d 62 65 7a 69 65 72 2d 73 74 72 6f 6b 65 2d  s-bezier-stroke-
27b0: 6c 69 6e 65 74 6f 20 74 61 62 0a 20 20 20 20 20  lineto tab.     
27c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
27d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
27e0: 20 20 20 20 73 74 72 6f 6b 65 20 0a 20 20 20 20      stroke .    
27f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2810: 20 20 20 20 20 28 2d 20 28 63 61 72 20 20 78 79       (- (car  xy
2820: 61 29 20 28 63 61 72 20 28 70 2d 3e 72 20 28 2f  a) (car (p->r (/
2830: 20 65 64 67 65 2d 6c 65 6e 67 74 68 20 33 29 20   edge-length 3) 
2840: 28 63 61 64 64 72 20 78 79 61 29 29 29 29 0a 20  (caddr xya)))). 
2850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2870: 20 20 20 20 20 20 20 20 28 2d 20 28 63 61 64 72          (- (cadr
2880: 20 78 79 61 29 20 28 63 64 72 20 28 70 2d 3e 72   xya) (cdr (p->r
2890: 20 28 2f 20 65 64 67 65 2d 6c 65 6e 67 74 68 20   (/ edge-length 
28a0: 33 29 20 28 63 61 64 64 72 20 78 79 61 29 29 29  3) (caddr xya)))
28b0: 29 20 29 0a 20 20 20 20 20 20 28 67 69 6d 70 2d  ) ).      (gimp-
28c0: 76 65 63 74 6f 72 73 2d 62 65 7a 69 65 72 2d 73  vectors-bezier-s
28d0: 74 72 6f 6b 65 2d 6c 69 6e 65 74 6f 20 74 61 62  troke-lineto tab
28e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
28f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2900: 20 20 20 20 20 20 20 20 20 20 73 74 72 6f 6b 65            stroke
2910: 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20   .              
2920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2930: 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20             (car 
2940: 78 79 61 29 0a 20 20 20 20 20 20 20 20 20 20 20  xya).           
2950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63                (c
2970: 61 64 72 20 78 79 61 29 20 29 0a 20 20 20 20 20  adr xya) ).     
2980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
29a0: 20 20 20 20 0a 20 20 20 20 20 20 28 73 65 74 21      .      (set!
29b0: 20 78 79 61 20 28 61 70 70 65 6e 64 20 28 62 75   xya (append (bu
29c0: 74 6c 61 73 74 20 28 70 65 6e 74 2d 72 65 66 20  tlast (pent-ref 
29d0: 70 65 6e 74 20 33 29 29 20 28 63 64 64 72 20 28  pent 3)) (cddr (
29e0: 70 65 6e 74 2d 72 65 66 20 70 65 6e 74 20 32 29  pent-ref pent 2)
29f0: 29 29 29 0a 20 20 20 20 20 20 28 67 69 6d 70 2d  ))).      (gimp-
2a00: 76 65 63 74 6f 72 73 2d 62 65 7a 69 65 72 2d 73  vectors-bezier-s
2a10: 74 72 6f 6b 65 2d 6c 69 6e 65 74 6f 20 74 61 62  troke-lineto tab
2a20: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
2a30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2a40: 20 20 20 20 20 20 20 20 20 20 73 74 72 6f 6b 65            stroke
2a50: 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20   .              
2a60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2a70: 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 28 63             (+ (c
2a80: 61 72 20 20 78 79 61 29 20 28 63 61 72 20 28 70  ar  xya) (car (p
2a90: 2d 3e 72 20 28 2f 20 65 64 67 65 2d 6c 65 6e 67  ->r (/ edge-leng
2aa0: 74 68 20 33 29 20 28 63 61 64 64 72 20 78 79 61  th 3) (caddr xya
2ab0: 29 29 29 29 20 0a 20 20 20 20 20 20 20 20 20 20  )))) .          
2ac0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2ad0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28                 (
2ae0: 2b 20 28 63 61 64 72 20 78 79 61 29 20 28 63 64  + (cadr xya) (cd
2af0: 72 20 28 70 2d 3e 72 20 28 2f 20 65 64 67 65 2d  r (p->r (/ edge-
2b00: 6c 65 6e 67 74 68 20 33 29 20 28 63 61 64 64 72  length 3) (caddr
2b10: 20 78 79 61 29 29 29 29 20 29 0a 20 20 20 20 20   xya)))) ).     
2b20: 20 28 73 65 74 21 20 78 79 61 20 28 70 65 6e 74   (set! xya (pent
2b30: 2d 72 65 66 20 70 65 6e 74 20 34 29 29 0a 20 20  -ref pent 4)).  
2b40: 20 20 20 20 28 67 69 6d 70 2d 76 65 63 74 6f 72      (gimp-vector
2b50: 73 2d 62 65 7a 69 65 72 2d 73 74 72 6f 6b 65 2d  s-bezier-stroke-
2b60: 6c 69 6e 65 74 6f 20 74 61 62 0a 20 20 20 20 20  lineto tab.     
2b70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2b80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2b90: 20 20 20 20 73 74 72 6f 6b 65 20 0a 20 20 20 20      stroke .    
2ba0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2bb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2bc0: 20 20 20 20 20 28 2d 20 28 63 61 72 20 20 78 79       (- (car  xy
2bd0: 61 29 20 28 63 61 72 20 28 70 2d 3e 72 20 28 2f  a) (car (p->r (/
2be0: 20 65 64 67 65 2d 6c 65 6e 67 74 68 20 33 29 20   edge-length 3) 
2bf0: 28 63 61 64 64 72 20 78 79 61 29 29 29 29 0a 20  (caddr xya)))). 
2c00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2c10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2c20: 20 20 20 20 20 20 20 20 28 2d 20 28 63 61 64 72          (- (cadr
2c30: 20 78 79 61 29 20 28 63 64 72 20 28 70 2d 3e 72   xya) (cdr (p->r
2c40: 20 28 2f 20 65 64 67 65 2d 6c 65 6e 67 74 68 20   (/ edge-length 
2c50: 33 29 20 28 63 61 64 64 72 20 78 79 61 29 29 29  3) (caddr xya)))
2c60: 29 20 29 0a 20 20 20 20 20 20 28 67 69 6d 70 2d  ) ).      (gimp-
2c70: 76 65 63 74 6f 72 73 2d 62 65 7a 69 65 72 2d 73  vectors-bezier-s
2c80: 74 72 6f 6b 65 2d 6c 69 6e 65 74 6f 20 74 61 62  troke-lineto tab
2c90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
2ca0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2cb0: 20 20 20 20 20 20 20 20 20 20 73 74 72 6f 6b 65            stroke
2cc0: 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20   .              
2cd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2ce0: 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20             (car 
2cf0: 78 79 61 29 0a 20 20 20 20 20 20 20 20 20 20 20  xya).           
2d00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2d10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63                (c
2d20: 61 64 72 20 78 79 61 29 20 29 20 20 20 20 20 20  adr xya) )      
2d30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2d40: 20 20 20 20 20 20 20 20 20 20 20 20 0a 20 20 20              .   
2d50: 20 20 20 74 61 62 20 29 29 0a 20 20 0a 20 20 3b     tab )).  .  ;
2d60: 3b 20 57 72 61 70 70 65 72 20 6f 66 20 74 68 65  ; Wrapper of the
2d70: 20 6d 61 70 20 6f 62 6a 65 63 74 20 70 6c 75 67   map object plug
2d80: 2d 69 6e 20 77 68 69 63 68 20 6f 6e 6c 79 20 72  -in which only r
2d90: 65 71 75 69 72 65 73 20 74 68 65 20 70 61 72 61  equires the para
2da0: 6d 65 74 65 72 73 20 0a 20 20 3b 3b 20 74 68 65  meters .  ;; the
2db0: 20 70 61 72 61 6d 65 74 65 72 73 20 74 68 61 74   parameters that
2dc0: 20 63 68 61 6e 67 65 20 69 6e 20 74 68 69 73 20   change in this 
2dd0: 70 61 72 74 69 63 75 6c 61 72 20 75 73 61 67 65  particular usage
2de0: 2e 0a 20 20 3b 3b 0a 20 20 28 64 65 66 69 6e 65  ..  ;;.  (define
2df0: 20 28 66 75 2d 6d 61 70 2d 73 70 68 65 72 65 20   (fu-map-sphere 
2e00: 69 6d 61 67 65 20 6c 61 79 65 72 20 7a 6f 6f 6d  image layer zoom
2e10: 20 72 6f 74 2d 79 20 72 6f 74 2d 7a 29 0a 20 20   rot-y rot-z).  
2e20: 20 20 28 70 6c 75 67 2d 69 6e 2d 6d 61 70 2d 6f    (plug-in-map-o
2e30: 62 6a 65 63 74 20 52 55 4e 2d 4e 4f 4e 49 4e 54  bject RUN-NONINT
2e40: 45 52 41 43 54 49 56 45 0a 20 20 20 20 20 20 20  ERACTIVE.       
2e50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2e60: 20 69 6d 61 67 65 20 0a 20 20 20 20 20 20 20 20   image .        
2e70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2e80: 6c 61 79 65 72 20 0a 20 20 20 20 20 20 20 20 20  layer .         
2e90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31                 1
2ea0: 20 3b 20 6d 61 70 74 79 70 65 20 28 73 70 68 65   ; maptype (sphe
2eb0: 72 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20  re).            
2ec0: 20 20 20 20 20 20 20 20 20 20 20 20 30 2e 35 20              0.5 
2ed0: 30 2e 35 20 32 20 3b 20 76 69 65 77 70 6f 69 6e  0.5 2 ; viewpoin
2ee0: 74 20 28 30 2e 35 20 30 2e 35 20 32 29 20 0a 20  t (0.5 0.5 2) . 
2ef0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2f00: 20 20 20 20 20 20 20 30 2e 35 20 30 2e 35 20 28         0.5 0.5 (
2f10: 2d 20 7a 6f 6f 6d 29 20 3b 20 6f 62 6a 65 63 74  - zoom) ; object
2f20: 20 70 6f 73 69 74 69 6f 6e 20 28 30 2e 35 20 30   position (0.5 0
2f30: 2e 35 20 30 2e 30 29 0a 20 20 20 20 20 20 20 20  .5 0.0).        
2f40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2f50: 30 20 30 20 2d 31 20 3b 20 66 69 72 73 74 20 61  0 0 -1 ; first a
2f60: 78 69 73 20 6f 66 20 6f 62 6a 65 63 74 20 28 30  xis of object (0
2f70: 20 30 20 30 29 0a 20 20 20 20 20 20 20 20 20 20   0 0).          
2f80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 20                0 
2f90: 31 20 30 20 3b 20 73 65 63 6f 6e 64 61 78 69 73  1 0 ; secondaxis
2fa0: 20 6f 66 20 6f 62 6a 65 63 74 20 28 30 20 30 20   of object (0 0 
2fb0: 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  0).             
2fc0: 20 20 20 20 20 20 20 20 20 20 20 30 20 72 6f 74             0 rot
2fd0: 2d 79 20 72 6f 74 2d 7a 20 3b 20 72 6f 74 61 74  -y rot-z ; rotat
2fe0: 69 6f 6e 61 6e 67 6c 65 20 0a 20 20 20 20 20 20  ionangle .      
2ff0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3000: 20 20 32 20 3b 20 6c 69 67 68 74 74 79 70 65 20    2 ; lighttype 
3010: 28 6e 6f 6e 65 29 0a 20 20 20 20 20 20 20 20 20  (none).         
3020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27                 '
3030: 28 32 35 35 20 32 35 35 20 32 35 35 29 20 3b 20  (255 255 255) ; 
3040: 6c 69 67 68 74 63 6f 6c 6f 72 20 0a 20 20 20 20  lightcolor .    
3050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3060: 20 20 20 20 2d 30 2e 35 20 2d 30 2e 35 20 32 2e      -0.5 -0.5 2.
3070: 30 20 3b 20 6c 69 67 68 74 70 6f 73 69 74 69 6f  0 ; lightpositio
3080: 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  n.              
3090: 20 20 20 20 20 20 20 20 20 20 30 20 30 20 30 20            0 0 0 
30a0: 3b 20 6c 69 67 68 74 64 69 72 65 63 74 69 6f 6e  ; lightdirection
30b0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
30c0: 20 20 20 20 20 20 20 20 20 30 2e 33 20 3b 20 61           0.3 ; a
30d0: 6d 62 69 65 6e 74 2d 69 6e 74 65 6e 73 69 74 79  mbient-intensity
30e0: 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20   .              
30f0: 20 20 20 20 20 20 20 20 20 20 31 2e 30 20 3b 20            1.0 ; 
3100: 64 69 66 66 75 73 65 2d 69 6e 74 65 6e 73 69 74  diffuse-intensit
3110: 79 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  y .             
3120: 20 20 20 20 20 20 20 20 20 20 20 30 2e 35 20 3b             0.5 ;
3130: 20 64 69 66 66 75 73 65 2d 72 65 66 6c 65 63 74   diffuse-reflect
3140: 69 76 69 74 79 20 0a 20 20 20 20 20 20 20 20 20  ivity .         
3150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30                 0
3160: 2e 35 20 3b 20 73 70 65 63 75 6c 61 72 2d 72 65  .5 ; specular-re
3170: 66 6c 65 63 74 69 76 69 74 79 20 0a 20 20 20 20  flectivity .    
3180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3190: 20 20 20 20 32 37 2e 30 20 3b 20 68 69 67 68 6c      27.0 ; highl
31a0: 69 67 68 74 20 28 6e 6f 74 65 3a 20 69 74 27 73  ight (note: it's
31b0: 20 65 78 70 6f 6e 65 6e 74 69 61 6c 29 0a 20 20   exponential).  
31c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
31d0: 20 20 20 20 20 20 54 52 55 45 20 3b 20 61 6e 74        TRUE ; ant
31e0: 69 61 6c 69 61 73 69 6e 67 20 0a 20 20 20 20 20  ialiasing .     
31f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3200: 20 20 20 46 41 4c 53 45 20 3b 20 74 69 6c 65 64     FALSE ; tiled
3210: 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20   .              
3220: 20 20 20 20 20 20 20 20 20 20 46 41 4c 53 45 20            FALSE 
3230: 3b 20 6e 65 77 69 6d 61 67 65 20 0a 20 20 20 20  ; newimage .    
3240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3250: 20 20 20 20 54 52 55 45 20 3b 20 74 72 61 6e 73      TRUE ; trans
3260: 70 61 72 65 6e 74 62 61 63 6b 67 72 6f 75 6e 64  parentbackground
3270: 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20   .              
3280: 20 20 20 20 20 20 20 20 20 20 31 2e 30 20 3b 20            1.0 ; 
3290: 72 61 64 69 75 73 20 28 66 6f 72 20 43 59 4c 49  radius (for CYLI
32a0: 4e 44 45 52 29 0a 20 20 20 20 20 20 20 20 20 20  NDER).          
32b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 2e                0.
32c0: 35 20 30 2e 35 20 30 2e 35 20 3b 20 78 2d 73 63  5 0.5 0.5 ; x-sc
32d0: 61 6c 65 20 79 2d 73 63 61 6c 65 20 7a 2d 73 63  ale y-scale z-sc
32e0: 61 6c 65 20 28 66 6f 72 20 42 4f 58 29 0a 20 20  ale (for BOX).  
32f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3300: 20 20 20 20 20 20 31 2e 30 20 3b 20 63 79 6c 69        1.0 ; cyli
3310: 6e 64 65 72 2d 6c 65 6e 67 74 68 20 0a 20 20 20  nder-length .   
3320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3330: 20 20 20 20 20 6c 61 79 65 72 20 3b 20 62 6f 78       layer ; box
3340: 2d 66 72 6f 6e 74 2d 64 72 61 77 61 62 6c 65 20  -front-drawable 
3350: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
3360: 20 20 20 20 20 20 20 20 20 6c 61 79 65 72 20 3b           layer ;
3370: 20 62 6f 78 2d 62 61 63 6b 2d 64 72 61 77 61 62   box-back-drawab
3380: 6c 65 20 0a 20 20 20 20 20 20 20 20 20 20 20 20  le .            
3390: 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 79 65              laye
33a0: 72 20 3b 20 62 6f 78 2d 74 6f 70 2d 64 72 61 77  r ; box-top-draw
33b0: 61 62 6c 65 20 0a 20 20 20 20 20 20 20 20 20 20  able .          
33c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 61                la
33d0: 79 65 72 20 3b 20 62 6f 78 2d 62 6f 74 74 6f 6d  yer ; box-bottom
33e0: 2d 64 72 61 77 61 62 6c 65 20 0a 20 20 20 20 20  -drawable .     
33f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3400: 20 20 20 6c 61 79 65 72 20 3b 20 62 6f 78 2d 6c     layer ; box-l
3410: 65 66 74 2d 64 72 61 77 61 62 6c 65 20 0a 20 20  eft-drawable .  
3420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3430: 20 20 20 20 20 20 6c 61 79 65 72 20 3b 20 62 6f        layer ; bo
3440: 78 2d 72 69 67 68 74 2d 64 72 61 77 61 62 6c 65  x-right-drawable
3450: 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20   .              
3460: 20 20 20 20 20 20 20 20 20 20 6c 61 79 65 72 20            layer 
3470: 3b 20 63 79 6c 2d 74 6f 70 2d 64 72 61 77 61 62  ; cyl-top-drawab
3480: 6c 65 20 0a 20 20 20 20 20 20 20 20 20 20 20 20  le .            
3490: 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 79 65              laye
34a0: 72 20 3b 20 63 79 6c 2d 62 6f 74 74 6f 6d 2d 64  r ; cyl-bottom-d
34b0: 72 61 77 61 62 6c 65 20 0a 20 20 20 20 20 20 20  rawable .       
34c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
34d0: 20 29 29 0a 20 20 20 20 0a 20 20 3b 3b 20 4d 41   )).    .  ;; MA
34e0: 49 4e 20 50 52 4f 43 45 44 55 52 45 20 53 54 41  IN PROCEDURE STA
34f0: 52 54 53 20 48 45 52 45 0a 20 20 28 6c 65 74 2a  RTS HERE.  (let*
3500: 20 28 28 65 64 67 65 2d 6c 65 6e 67 74 68 20 34   ((edge-length 4
3510: 30 30 29 0a 20 20 20 20 20 20 20 20 20 28 69 6d  00).         (im
3520: 61 67 65 20 30 29 20 28 62 67 2d 6c 61 79 65 72  age 0) (bg-layer
3530: 20 30 29 20 28 66 6f 6c 64 73 2d 6c 61 79 65 72   0) (folds-layer
3540: 20 30 29 0a 20 20 20 20 20 20 20 20 20 28 73 74   0).         (st
3550: 72 6f 6b 65 20 30 29 20 0a 20 20 20 20 20 20 20  roke 0) .       
3560: 20 20 28 6a 61 6e 20 30 29 20 28 66 65 62 20 30    (jan 0) (feb 0
3570: 29 20 28 6d 61 72 20 30 29 20 28 61 70 72 20 30  ) (mar 0) (apr 0
3580: 29 20 28 6d 61 79 20 30 29 20 28 6a 75 6e 20 30  ) (may 0) (jun 0
3590: 29 20 0a 20 20 20 20 20 20 20 20 20 28 6a 75 6c  ) .         (jul
35a0: 20 30 29 20 28 61 75 67 20 30 29 20 28 73 65 70   0) (aug 0) (sep
35b0: 20 30 29 20 28 6f 63 74 20 30 29 20 28 6e 6f 76   0) (oct 0) (nov
35c0: 20 30 29 20 28 64 65 63 20 30 29 20 3b 20 31 32   0) (dec 0) ; 12
35d0: 20 66 61 63 65 73 20 61 72 65 20 6e 61 6d 65 64   faces are named
35e0: 20 61 66 74 65 72 20 74 68 65 20 6d 6f 6e 74 68   after the month
35f0: 73 0a 20 20 20 20 20 20 20 20 20 28 72 65 66 20  s.         (ref 
3600: 30 29 20 28 74 6d 70 20 30 29 20 28 74 61 62 2d  0) (tmp 0) (tab-
3610: 6d 61 72 20 30 29 20 28 74 61 62 2d 61 70 72 20  mar 0) (tab-apr 
3620: 30 29 20 28 74 61 62 2d 6d 61 79 20 30 29 20 28  0) (tab-may 0) (
3630: 74 61 62 2d 6a 75 6e 20 30 29 0a 20 20 20 20 20  tab-jun 0).     
3640: 20 20 20 20 28 70 65 6e 74 73 20 27 28 29 29 0a      (pents '()).
3650: 20 20 20 20 20 20 20 20 20 28 74 61 62 73 20 27           (tabs '
3660: 28 29 29 0a 20 20 20 20 20 20 20 20 20 28 78 79  ()).         (xy
3670: 61 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 20  a '()).         
3680: 28 66 61 63 65 74 73 20 27 28 29 29 0a 20 20 20  (facets '()).   
3690: 20 20 20 20 20 20 28 66 61 63 65 74 2d 6c 61 79        (facet-lay
36a0: 65 72 73 20 27 28 29 29 0a 20 20 20 20 20 20 20  ers '()).       
36b0: 20 20 28 73 75 72 66 61 63 65 2d 6c 61 79 65 72    (surface-layer
36c0: 20 30 29 0a 20 20 20 20 20 20 20 20 20 28 74 65   0).         (te
36d0: 78 74 2d 6c 61 79 65 72 20 30 29 0a 20 20 20 20  xt-layer 0).    
36e0: 20 20 20 20 20 28 6f 72 69 67 2d 73 65 6c 20 30       (orig-sel 0
36f0: 29 20 29 0a 20 20 20 20 28 73 65 74 21 20 69 6d  ) ).    (set! im
3700: 61 67 65 20 28 63 61 72 20 28 67 69 6d 70 2d 69  age (car (gimp-i
3710: 6d 61 67 65 2d 6e 65 77 20 28 2a 20 36 20 65 64  mage-new (* 6 ed
3720: 67 65 2d 6c 65 6e 67 74 68 29 20 28 2a 20 38 20  ge-length) (* 8 
3730: 65 64 67 65 2d 6c 65 6e 67 74 68 29 20 52 47 42  edge-length) RGB
3740: 29 29 29 0a 20 20 20 20 28 67 69 6d 70 2d 69 6d  ))).    (gimp-im
3750: 61 67 65 2d 75 6e 64 6f 2d 64 69 73 61 62 6c 65  age-undo-disable
3760: 20 69 6d 61 67 65 29 0a 20 20 20 20 28 67 69 6d   image).    (gim
3770: 70 2d 69 6d 61 67 65 2d 75 6e 64 6f 2d 66 72 65  p-image-undo-fre
3780: 65 7a 65 20 6f 72 69 67 2d 69 6d 61 67 65 29 0a  eze orig-image).
3790: 20 20 20 20 28 73 65 74 21 20 6f 72 69 67 2d 73      (set! orig-s
37a0: 65 6c 20 28 63 61 72 20 28 67 69 6d 70 2d 73 65  el (car (gimp-se
37b0: 6c 65 63 74 69 6f 6e 2d 73 61 76 65 20 6f 72 69  lection-save ori
37c0: 67 2d 69 6d 61 67 65 29 29 29 0a 20 20 20 20 28  g-image))).    (
37d0: 67 69 6d 70 2d 73 65 6c 65 63 74 69 6f 6e 2d 6e  gimp-selection-n
37e0: 6f 6e 65 20 6f 72 69 67 2d 69 6d 61 67 65 29 0a  one orig-image).
37f0: 20 20 20 20 28 67 69 6d 70 2d 63 6f 6e 74 65 78      (gimp-contex
3800: 74 2d 70 75 73 68 29 0a 20 20 20 20 28 73 65 74  t-push).    (set
3810: 21 20 62 67 2d 6c 61 79 65 72 20 28 63 61 72 20  ! bg-layer (car 
3820: 28 67 69 6d 70 2d 6c 61 79 65 72 2d 6e 65 77 20  (gimp-layer-new 
3830: 69 6d 61 67 65 20 0a 20 20 20 20 20 20 20 20 20  image .         
3840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28                 (
3860: 63 61 72 20 28 67 69 6d 70 2d 69 6d 61 67 65 2d  car (gimp-image-
3870: 77 69 64 74 68 20 69 6d 61 67 65 29 29 0a 20 20  width image)).  
3880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
38a0: 20 20 20 20 20 20 28 63 61 72 20 28 67 69 6d 70        (car (gimp
38b0: 2d 69 6d 61 67 65 2d 68 65 69 67 68 74 20 69 6d  -image-height im
38c0: 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 20  age)).          
38d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
38e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 47                RG
38f0: 42 2d 49 4d 41 47 45 20 0a 20 20 20 20 20 20 20  B-IMAGE .       
3900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3920: 20 22 42 61 63 6b 67 72 6f 75 6e 64 22 20 0a 20   "Background" . 
3930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3950: 20 20 20 20 20 20 20 31 30 30 20 0a 20 20 20 20         100 .    
3960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3980: 20 20 20 20 4e 4f 52 4d 41 4c 2d 4d 4f 44 45 20      NORMAL-MODE 
3990: 29 29 29 0a 20 20 20 20 28 67 69 6d 70 2d 69 6d  ))).    (gimp-im
39a0: 61 67 65 2d 61 64 64 2d 6c 61 79 65 72 20 69 6d  age-add-layer im
39b0: 61 67 65 20 62 67 2d 6c 61 79 65 72 20 30 29 0a  age bg-layer 0).
39c0: 20 20 20 20 28 67 69 6d 70 2d 64 72 61 77 61 62      (gimp-drawab
39d0: 6c 65 2d 66 69 6c 6c 20 62 67 2d 6c 61 79 65 72  le-fill bg-layer
39e0: 20 42 41 43 4b 47 52 4f 55 4e 44 2d 46 49 4c 4c   BACKGROUND-FILL
39f0: 29 0a 20 20 20 20 28 73 65 74 21 20 6a 61 6e 20  ).    (set! jan 
3a00: 28 6d 61 6b 65 2d 70 65 6e 74 20 69 6d 61 67 65  (make-pent image
3a10: 20 22 30 22 20 28 6c 69 73 74 20 28 2a 20 32 2e   "0" (list (* 2.
3a20: 32 20 65 64 67 65 2d 6c 65 6e 67 74 68 29 20 28  2 edge-length) (
3a30: 2a 20 32 2e 39 20 65 64 67 65 2d 6c 65 6e 67 74  * 2.9 edge-lengt
3a40: 68 29 20 32 35 32 29 20 65 64 67 65 2d 6c 65 6e  h) 252) edge-len
3a50: 67 74 68 29 29 0a 20 20 20 20 28 73 65 74 21 20  gth)).    (set! 
3a60: 72 65 66 20 28 63 61 72 20 28 67 69 6d 70 2d 76  ref (car (gimp-v
3a70: 65 63 74 6f 72 73 2d 63 6f 70 79 20 6a 61 6e 29  ectors-copy jan)
3a80: 29 29 0a 20 20 20 20 28 67 69 6d 70 2d 69 6d 61  )).    (gimp-ima
3a90: 67 65 2d 61 64 64 2d 76 65 63 74 6f 72 73 20 69  ge-add-vectors i
3aa0: 6d 61 67 65 20 72 65 66 20 30 29 20 3b 20 6e 6f  mage ref 0) ; no
3ab0: 74 20 6e 65 63 65 73 73 61 72 79 0a 20 20 20 20  t necessary.    
3ac0: 28 67 69 6d 70 2d 76 65 63 74 6f 72 73 2d 73 65  (gimp-vectors-se
3ad0: 74 2d 6e 61 6d 65 20 72 65 66 20 22 72 65 66 22  t-name ref "ref"
3ae0: 29 0a 20 20 20 20 28 72 65 76 65 72 73 65 2d 70  ).    (reverse-p
3af0: 65 6e 74 20 72 65 66 29 0a 20 20 20 20 28 73 65  ent ref).    (se
3b00: 74 21 20 66 65 62 20 28 6d 61 6b 65 2d 70 65 6e  t! feb (make-pen
3b10: 74 20 69 6d 61 67 65 20 22 31 22 20 28 70 65 6e  t image "1" (pen
3b20: 74 2d 72 65 66 20 72 65 66 20 30 29 20 65 64 67  t-ref ref 0) edg
3b30: 65 2d 6c 65 6e 67 74 68 29 29 0a 20 20 20 20 28  e-length)).    (
3b40: 73 65 74 21 20 6d 61 72 20 28 6d 61 6b 65 2d 70  set! mar (make-p
3b50: 65 6e 74 20 69 6d 61 67 65 20 22 32 22 20 20 20  ent image "2"   
3b60: 20 28 70 65 6e 74 2d 72 65 66 20 72 65 66 20 31   (pent-ref ref 1
3b70: 29 20 65 64 67 65 2d 6c 65 6e 67 74 68 29 29 0a  ) edge-length)).
3b80: 20 20 20 20 28 73 65 74 21 20 61 70 72 20 28 6d      (set! apr (m
3b90: 61 6b 65 2d 70 65 6e 74 20 69 6d 61 67 65 20 22  ake-pent image "
3ba0: 33 22 20 20 20 20 28 70 65 6e 74 2d 72 65 66 20  3"    (pent-ref 
3bb0: 72 65 66 20 32 29 20 65 64 67 65 2d 6c 65 6e 67  ref 2) edge-leng
3bc0: 74 68 29 29 0a 20 20 20 20 28 73 65 74 21 20 6d  th)).    (set! m
3bd0: 61 79 20 28 6d 61 6b 65 2d 70 65 6e 74 20 69 6d  ay (make-pent im
3be0: 61 67 65 20 22 34 22 20 20 20 20 20 20 28 70 65  age "4"      (pe
3bf0: 6e 74 2d 72 65 66 20 72 65 66 20 33 29 20 65 64  nt-ref ref 3) ed
3c00: 67 65 2d 6c 65 6e 67 74 68 29 29 0a 20 20 20 20  ge-length)).    
3c10: 28 73 65 74 21 20 6a 75 6e 20 28 6d 61 6b 65 2d  (set! jun (make-
3c20: 70 65 6e 74 20 69 6d 61 67 65 20 22 35 22 20 20  pent image "5"  
3c30: 20 20 20 28 70 65 6e 74 2d 72 65 66 20 72 65 66     (pent-ref ref
3c40: 20 34 29 20 65 64 67 65 2d 6c 65 6e 67 74 68 29   4) edge-length)
3c50: 29 0a 0a 20 20 20 20 28 67 69 6d 70 2d 69 6d 61  )..    (gimp-ima
3c60: 67 65 2d 72 65 6d 6f 76 65 2d 76 65 63 74 6f 72  ge-remove-vector
3c70: 73 20 69 6d 61 67 65 20 72 65 66 29 0a 20 20 20  s image ref).   
3c80: 20 28 73 65 74 21 20 72 65 66 20 28 63 61 72 20   (set! ref (car 
3c90: 28 67 69 6d 70 2d 76 65 63 74 6f 72 73 2d 63 6f  (gimp-vectors-co
3ca0: 70 79 20 66 65 62 29 29 29 0a 20 20 20 20 28 67  py feb))).    (g
3cb0: 69 6d 70 2d 69 6d 61 67 65 2d 61 64 64 2d 76 65  imp-image-add-ve
3cc0: 63 74 6f 72 73 20 69 6d 61 67 65 20 72 65 66 20  ctors image ref 
3cd0: 30 29 20 3b 20 6e 6f 74 20 6e 65 63 65 73 73 61  0) ; not necessa
3ce0: 72 79 0a 20 20 20 20 28 67 69 6d 70 2d 76 65 63  ry.    (gimp-vec
3cf0: 74 6f 72 73 2d 73 65 74 2d 6e 61 6d 65 20 72 65  tors-set-name re
3d00: 66 20 22 72 65 66 22 29 0a 20 20 20 20 28 72 65  f "ref").    (re
3d10: 76 65 72 73 65 2d 70 65 6e 74 20 72 65 66 29 0a  verse-pent ref).
3d20: 0a 20 20 20 20 28 73 65 74 21 20 74 6d 70 20 28  .    (set! tmp (
3d30: 6d 61 6b 65 2d 70 65 6e 74 20 69 6d 61 67 65 20  make-pent image 
3d40: 22 74 6d 70 22 20 28 70 65 6e 74 2d 72 65 66 20  "tmp" (pent-ref 
3d50: 72 65 66 20 32 29 20 65 64 67 65 2d 6c 65 6e 67  ref 2) edge-leng
3d60: 74 68 29 29 0a 0a 20 20 20 20 28 67 69 6d 70 2d  th))..    (gimp-
3d70: 69 6d 61 67 65 2d 72 65 6d 6f 76 65 2d 76 65 63  image-remove-vec
3d80: 74 6f 72 73 20 69 6d 61 67 65 20 72 65 66 29 0a  tors image ref).
3d90: 20 20 20 20 28 73 65 74 21 20 72 65 66 20 28 63      (set! ref (c
3da0: 61 72 20 28 67 69 6d 70 2d 76 65 63 74 6f 72 73  ar (gimp-vectors
3db0: 2d 63 6f 70 79 20 74 6d 70 29 29 29 0a 20 20 20  -copy tmp))).   
3dc0: 20 28 67 69 6d 70 2d 69 6d 61 67 65 2d 72 65 6d   (gimp-image-rem
3dd0: 6f 76 65 2d 76 65 63 74 6f 72 73 20 69 6d 61 67  ove-vectors imag
3de0: 65 20 74 6d 70 29 0a 20 20 20 20 28 67 69 6d 70  e tmp).    (gimp
3df0: 2d 69 6d 61 67 65 2d 61 64 64 2d 76 65 63 74 6f  -image-add-vecto
3e00: 72 73 20 69 6d 61 67 65 20 72 65 66 20 30 29 20  rs image ref 0) 
3e10: 3b 20 6e 6f 74 20 6e 65 63 65 73 73 61 72 79 0a  ; not necessary.
3e20: 20 20 20 20 28 67 69 6d 70 2d 76 65 63 74 6f 72      (gimp-vector
3e30: 73 2d 73 65 74 2d 6e 61 6d 65 20 72 65 66 20 22  s-set-name ref "
3e40: 72 65 66 22 29 0a 20 20 20 20 28 72 65 76 65 72  ref").    (rever
3e50: 73 65 2d 70 65 6e 74 20 72 65 66 29 0a 0a 20 20  se-pent ref)..  
3e60: 20 20 28 73 65 74 21 20 64 65 63 20 28 6d 61 6b    (set! dec (mak
3e70: 65 2d 70 65 6e 74 20 69 6d 61 67 65 20 22 31 31  e-pent image "11
3e80: 22 20 28 70 65 6e 74 2d 72 65 66 20 72 65 66 20  " (pent-ref ref 
3e90: 31 29 20 65 64 67 65 2d 6c 65 6e 67 74 68 29 29  1) edge-length))
3ea0: 0a 0a 20 20 20 20 28 67 69 6d 70 2d 69 6d 61 67  ..    (gimp-imag
3eb0: 65 2d 72 65 6d 6f 76 65 2d 76 65 63 74 6f 72 73  e-remove-vectors
3ec0: 20 69 6d 61 67 65 20 72 65 66 29 0a 20 20 20 20   image ref).    
3ed0: 28 73 65 74 21 20 72 65 66 20 28 63 61 72 20 28  (set! ref (car (
3ee0: 67 69 6d 70 2d 76 65 63 74 6f 72 73 2d 63 6f 70  gimp-vectors-cop
3ef0: 79 20 64 65 63 29 29 29 0a 20 20 20 20 28 67 69  y dec))).    (gi
3f00: 6d 70 2d 69 6d 61 67 65 2d 61 64 64 2d 76 65 63  mp-image-add-vec
3f10: 74 6f 72 73 20 69 6d 61 67 65 20 72 65 66 20 30  tors image ref 0
3f20: 29 20 3b 20 6e 6f 74 20 6e 65 63 65 73 73 61 72  ) ; not necessar
3f30: 79 0a 20 20 20 20 28 67 69 6d 70 2d 76 65 63 74  y.    (gimp-vect
3f40: 6f 72 73 2d 73 65 74 2d 6e 61 6d 65 20 72 65 66  ors-set-name ref
3f50: 20 22 72 65 66 22 29 0a 20 20 20 20 28 72 65 76   "ref").    (rev
3f60: 65 72 73 65 2d 70 65 6e 74 20 72 65 66 29 0a 0a  erse-pent ref)..
3f70: 20 20 20 20 28 73 65 74 21 20 6a 75 6c 20 28 6d      (set! jul (m
3f80: 61 6b 65 2d 70 65 6e 74 20 69 6d 61 67 65 20 22  ake-pent image "
3f90: 36 22 20 28 70 65 6e 74 2d 72 65 66 20 72 65 66  6" (pent-ref ref
3fa0: 20 31 29 20 65 64 67 65 2d 6c 65 6e 67 74 68 29   1) edge-length)
3fb0: 29 0a 20 20 20 20 28 73 65 74 21 20 61 75 67 20  ).    (set! aug 
3fc0: 28 6d 61 6b 65 2d 70 65 6e 74 20 69 6d 61 67 65  (make-pent image
3fd0: 20 22 37 22 20 20 20 28 70 65 6e 74 2d 72 65 66   "7"   (pent-ref
3fe0: 20 72 65 66 20 32 29 20 65 64 67 65 2d 6c 65 6e   ref 2) edge-len
3ff0: 67 74 68 29 29 0a 20 20 20 20 28 73 65 74 21 20  gth)).    (set! 
4000: 73 65 70 20 28 6d 61 6b 65 2d 70 65 6e 74 20 69  sep (make-pent i
4010: 6d 61 67 65 20 22 38 22 20 28 70 65 6e 74 2d 72  mage "8" (pent-r
4020: 65 66 20 72 65 66 20 33 29 20 65 64 67 65 2d 6c  ef ref 3) edge-l
4030: 65 6e 67 74 68 29 29 0a 20 20 20 20 28 73 65 74  ength)).    (set
4040: 21 20 6f 63 74 20 28 6d 61 6b 65 2d 70 65 6e 74  ! oct (make-pent
4050: 20 69 6d 61 67 65 20 22 39 22 20 20 28 70 65 6e   image "9"  (pen
4060: 74 2d 72 65 66 20 72 65 66 20 34 29 20 65 64 67  t-ref ref 4) edg
4070: 65 2d 6c 65 6e 67 74 68 29 29 0a 20 20 20 20 28  e-length)).    (
4080: 73 65 74 21 20 6e 6f 76 20 28 6d 61 6b 65 2d 70  set! nov (make-p
4090: 65 6e 74 20 69 6d 61 67 65 20 22 31 30 22 20 20  ent image "10"  
40a0: 28 70 65 6e 74 2d 72 65 66 20 72 65 66 20 30 29  (pent-ref ref 0)
40b0: 20 65 64 67 65 2d 6c 65 6e 67 74 68 29 29 0a 20   edge-length)). 
40c0: 20 20 20 28 67 69 6d 70 2d 69 6d 61 67 65 2d 72     (gimp-image-r
40d0: 65 6d 6f 76 65 2d 76 65 63 74 6f 72 73 20 69 6d  emove-vectors im
40e0: 61 67 65 20 72 65 66 29 0a 0a 20 20 20 20 28 73  age ref)..    (s
40f0: 65 74 21 20 70 65 6e 74 73 20 28 6c 69 73 74 20  et! pents (list 
4100: 6a 61 6e 20 66 65 62 20 6d 61 72 20 61 70 72 20  jan feb mar apr 
4110: 6d 61 79 20 6a 75 6e 20 6a 75 6c 20 61 75 67 20  may jun jul aug 
4120: 73 65 70 20 6f 63 74 20 6e 6f 76 20 64 65 63 29  sep oct nov dec)
4130: 29 0a 0a 20 20 20 20 28 73 65 74 21 20 74 61 62  )..    (set! tab
4140: 2d 6a 75 6e 20 28 6d 61 6b 65 2d 74 61 62 20 69  -jun (make-tab i
4150: 6d 61 67 65 20 22 74 61 62 2d 6a 75 6e 22 20 6a  mage "tab-jun" j
4160: 75 6e 20 65 64 67 65 2d 6c 65 6e 67 74 68 29 29  un edge-length))
4170: 0a 20 20 20 20 28 73 65 74 21 20 74 61 62 73 20  .    (set! tabs 
4180: 28 63 6f 6e 73 20 74 61 62 2d 6a 75 6e 20 74 61  (cons tab-jun ta
4190: 62 73 29 29 0a 0a 20 20 20 20 28 73 65 74 21 20  bs))..    (set! 
41a0: 74 61 62 2d 6d 61 79 20 28 6d 61 6b 65 2d 74 61  tab-may (make-ta
41b0: 62 20 69 6d 61 67 65 20 22 74 61 62 2d 6d 61 79  b image "tab-may
41c0: 22 20 6d 61 79 20 65 64 67 65 2d 6c 65 6e 67 74  " may edge-lengt
41d0: 68 29 29 0a 20 20 20 20 28 73 65 74 21 20 74 61  h)).    (set! ta
41e0: 62 73 20 28 63 6f 6e 73 20 74 61 62 2d 6d 61 79  bs (cons tab-may
41f0: 20 74 61 62 73 29 29 0a 0a 20 20 20 20 28 73 65   tabs))..    (se
4200: 74 21 20 74 61 62 2d 61 70 72 20 28 6d 61 6b 65  t! tab-apr (make
4210: 2d 74 61 62 20 69 6d 61 67 65 20 22 74 61 62 2d  -tab image "tab-
4220: 61 70 72 22 20 61 70 72 20 65 64 67 65 2d 6c 65  apr" apr edge-le
4230: 6e 67 74 68 29 29 0a 20 20 20 20 28 73 65 74 21  ngth)).    (set!
4240: 20 74 61 62 73 20 28 63 6f 6e 73 20 74 61 62 2d   tabs (cons tab-
4250: 61 70 72 20 74 61 62 73 29 29 0a 0a 20 20 20 20  apr tabs))..    
4260: 28 73 65 74 21 20 74 61 62 2d 6d 61 72 20 28 6d  (set! tab-mar (m
4270: 61 6b 65 2d 74 61 62 20 69 6d 61 67 65 20 22 74  ake-tab image "t
4280: 61 62 2d 6d 61 72 22 20 6d 61 72 20 65 64 67 65  ab-mar" mar edge
4290: 2d 6c 65 6e 67 74 68 29 29 0a 20 20 20 20 28 73  -length)).    (s
42a0: 65 74 21 20 74 61 62 73 20 28 63 6f 6e 73 20 74  et! tabs (cons t
42b0: 61 62 2d 6d 61 72 20 74 61 62 73 29 29 0a 20 0a  ab-mar tabs)). .
42c0: 20 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 66 61   .    (let* ((fa
42d0: 63 65 74 2d 6c 61 79 65 72 20 30 29 0a 20 20 20  cet-layer 0).   
42e0: 20 20 20 20 20 20 20 20 28 66 61 63 65 74 2d 6c          (facet-l
42f0: 61 79 65 72 73 20 27 28 29 29 0a 20 20 20 20 20  ayers '()).     
4300: 20 20 20 20 20 20 28 63 6f 75 6e 74 20 30 29 0a        (count 0).
4310: 20 20 20 20 20 20 20 20 20 20 20 28 72 6f 74 2d             (rot-
4320: 59 73 20 27 28 20 2d 31 30 38 20 3b 20 6e 6f 72  Ys '( -108 ; nor
4330: 74 68 20 70 6f 6c 65 0a 20 20 20 20 20 20 20 20  th pole.        
4340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 20                0 
4350: 2d 37 32 20 2d 31 34 34 20 31 34 34 20 37 32 20  -72 -144 144 72 
4360: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
4370: 20 20 20 20 20 20 2d 37 32 20 30 20 37 32 20 31        -72 0 72 1
4380: 34 34 20 2d 31 34 34 20 0a 20 20 20 20 20 20 20  44 -144 .       
4390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 33                -3
43a0: 36 20 3b 20 73 6f 75 74 68 20 70 6f 6c 65 0a 20  6 ; south pole. 
43b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
43c0: 20 20 20 20 29 29 0a 20 20 20 20 20 20 20 20 20      )).         
43d0: 20 20 28 72 6f 74 2d 5a 73 20 28 61 70 70 65 6e    (rot-Zs (appen
43e0: 64 20 28 6c 69 73 74 20 39 30 29 20 3b 20 6e 6f  d (list 90) ; no
43f0: 72 74 68 20 70 6f 6c 65 0a 20 20 20 20 20 20 20  rth pole.       
4400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4410: 20 20 20 20 28 6d 61 6b 65 2d 6c 69 73 74 20 35      (make-list 5
4420: 20 32 37 2e 37 29 0a 20 20 20 20 20 20 20 20 20   27.7).         
4430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4440: 20 20 28 6d 61 6b 65 2d 6c 69 73 74 20 35 20 28    (make-list 5 (
4450: 2b 20 32 37 2e 37 20 31 38 30 29 29 0a 20 20 20  + 27.7 180)).   
4460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4470: 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 2d 39          (list -9
4480: 30 29 20 3b 20 73 6f 75 74 68 20 70 6f 6c 65 0a  0) ; south pole.
4490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
44a0: 20 20 20 20 20 20 20 20 20 20 20 29 29 29 0a 20             ))). 
44b0: 20 20 20 20 20 28 77 68 69 6c 65 20 28 3c 20 63       (while (< c
44c0: 6f 75 6e 74 20 31 32 29 0a 20 20 20 20 20 20 20  ount 12).       
44d0: 20 28 73 65 74 21 20 66 61 63 65 74 2d 6c 61 79   (set! facet-lay
44e0: 65 72 20 28 63 61 72 20 28 67 69 6d 70 2d 6c 61  er (car (gimp-la
44f0: 79 65 72 2d 63 6f 70 79 20 6f 72 69 67 2d 64 72  yer-copy orig-dr
4500: 61 77 61 62 6c 65 20 54 52 55 45 29 29 29 0a 20  awable TRUE))). 
4510: 20 20 20 20 20 20 20 28 67 69 6d 70 2d 69 6d 61         (gimp-ima
4520: 67 65 2d 61 64 64 2d 6c 61 79 65 72 20 6f 72 69  ge-add-layer ori
4530: 67 2d 69 6d 61 67 65 20 66 61 63 65 74 2d 6c 61  g-image facet-la
4540: 79 65 72 20 31 29 0a 20 20 20 20 20 20 20 20 28  yer 1).        (
4550: 67 69 6d 70 2d 64 72 61 77 61 62 6c 65 2d 73 65  gimp-drawable-se
4560: 74 2d 6e 61 6d 65 20 66 61 63 65 74 2d 6c 61 79  t-name facet-lay
4570: 65 72 20 28 6e 75 6d 62 65 72 2d 3e 73 74 72 69  er (number->stri
4580: 6e 67 20 63 6f 75 6e 74 29 29 0a 20 20 20 20 20  ng count)).     
4590: 20 20 20 28 66 75 2d 6d 61 70 2d 73 70 68 65 72     (fu-map-spher
45a0: 65 20 6f 72 69 67 2d 69 6d 61 67 65 20 66 61 63  e orig-image fac
45b0: 65 74 2d 6c 61 79 65 72 20 31 2e 34 36 20 28 63  et-layer 1.46 (c
45c0: 61 72 20 72 6f 74 2d 59 73 29 20 20 28 63 61 72  ar rot-Ys)  (car
45d0: 20 72 6f 74 2d 5a 73 29 29 0a 20 20 20 20 20 20   rot-Zs)).      
45e0: 20 20 28 6c 65 74 2a 20 28 28 68 65 69 67 68 74    (let* ((height
45f0: 20 28 63 61 72 20 28 67 69 6d 70 2d 64 72 61 77   (car (gimp-draw
4600: 61 62 6c 65 2d 68 65 69 67 68 74 20 66 61 63 65  able-height face
4610: 74 2d 6c 61 79 65 72 29 29 29 29 0a 20 20 20 20  t-layer)))).    
4620: 20 20 20 20 20 20 28 67 69 6d 70 2d 6c 61 79 65        (gimp-laye
4630: 72 2d 72 65 73 69 7a 65 20 66 61 63 65 74 2d 6c  r-resize facet-l
4640: 61 79 65 72 20 0a 20 20 20 20 20 20 20 20 20 20  ayer .          
4650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4660: 20 20 20 28 63 61 72 20 28 67 69 6d 70 2d 64 72     (car (gimp-dr
4670: 61 77 61 62 6c 65 2d 77 69 64 74 68 20 66 61 63  awable-width fac
4680: 65 74 2d 6c 61 79 65 72 29 29 0a 20 20 20 20 20  et-layer)).     
4690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
46a0: 20 20 20 20 20 20 20 20 28 2a 20 68 65 69 67 68          (* heigh
46b0: 74 20 30 2e 38 38 29 0a 20 20 20 20 20 20 20 20  t 0.88).        
46c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
46d0: 20 20 20 20 20 30 0a 20 20 20 20 20 20 20 20 20       0.         
46e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
46f0: 20 20 20 20 28 2d 20 28 2a 20 68 65 69 67 68 74      (- (* height
4700: 20 30 2e 38 38 29 20 68 65 69 67 68 74 29 0a 20   0.88) height). 
4710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4720: 20 20 20 20 20 20 20 20 20 20 20 20 29 29 0a 20              )). 
4730: 20 20 20 20 20 20 20 28 73 65 74 21 20 66 61 63         (set! fac
4740: 65 74 2d 6c 61 79 65 72 73 20 28 63 6f 6e 73 20  et-layers (cons 
4750: 66 61 63 65 74 2d 6c 61 79 65 72 20 66 61 63 65  facet-layer face
4760: 74 2d 6c 61 79 65 72 73 29 29 0a 20 20 20 20 20  t-layers)).     
4770: 20 20 20 28 73 65 74 21 20 72 6f 74 2d 59 73 20     (set! rot-Ys 
4780: 28 63 64 72 20 72 6f 74 2d 59 73 29 29 0a 20 20  (cdr rot-Ys)).  
4790: 20 20 20 20 20 20 28 73 65 74 21 20 72 6f 74 2d        (set! rot-
47a0: 5a 73 20 28 63 64 72 20 72 6f 74 2d 5a 73 29 29  Zs (cdr rot-Zs))
47b0: 0a 20 20 20 20 20 20 20 20 28 73 65 74 21 20 63  .        (set! c
47c0: 6f 75 6e 74 20 28 2b 20 63 6f 75 6e 74 20 31 29  ount (+ count 1)
47d0: 29 20 29 0a 20 20 20 20 20 20 28 73 65 74 21 20  ) ).      (set! 
47e0: 66 61 63 65 74 73 20 28 72 65 76 65 72 73 65 20  facets (reverse 
47f0: 66 61 63 65 74 2d 6c 61 79 65 72 73 29 29 0a 20  facet-layers)). 
4800: 20 20 20 20 20 28 63 6f 70 79 2d 66 61 63 65 74       (copy-facet
4810: 73 20 69 6d 61 67 65 20 62 67 2d 6c 61 79 65 72  s image bg-layer
4820: 20 6f 72 69 67 2d 69 6d 61 67 65 20 66 61 63 65   orig-image face
4830: 74 73 20 70 65 6e 74 73 20 65 64 67 65 2d 6c 65  ts pents edge-le
4840: 6e 67 74 68 29 20 29 0a 0a 20 20 20 20 28 67 69  ngth) )..    (gi
4850: 6d 70 2d 64 69 73 70 6c 61 79 2d 6e 65 77 20 69  mp-display-new i
4860: 6d 61 67 65 29 0a 20 20 20 20 3b 20 77 65 20 61  mage).    ; we a
4870: 72 65 20 64 6f 6e 65 20 77 69 74 68 20 6f 72 69  re done with ori
4880: 67 69 6e 61 6c 20 69 6d 61 67 65 0a 20 20 20 20  ginal image.    
4890: 28 67 69 6d 70 2d 73 65 6c 65 63 74 69 6f 6e 2d  (gimp-selection-
48a0: 6c 6f 61 64 20 6f 72 69 67 2d 73 65 6c 29 0a 20  load orig-sel). 
48b0: 20 20 20 28 67 69 6d 70 2d 69 6d 61 67 65 2d 72     (gimp-image-r
48c0: 65 6d 6f 76 65 2d 63 68 61 6e 6e 65 6c 20 6f 72  emove-channel or
48d0: 69 67 2d 69 6d 61 67 65 20 6f 72 69 67 2d 73 65  ig-image orig-se
48e0: 6c 29 0a 20 20 20 20 28 6d 61 70 20 28 6c 61 6d  l).    (map (lam
48f0: 62 64 61 20 28 78 29 20 28 67 69 6d 70 2d 69 6d  bda (x) (gimp-im
4900: 61 67 65 2d 72 65 6d 6f 76 65 2d 6c 61 79 65 72  age-remove-layer
4910: 20 6f 72 69 67 2d 69 6d 61 67 65 20 78 29 29 20   orig-image x)) 
4920: 66 61 63 65 74 73 29 0a 20 20 20 20 28 67 69 6d  facets).    (gim
4930: 70 2d 69 6d 61 67 65 2d 75 6e 64 6f 2d 74 68 61  p-image-undo-tha
4940: 77 20 6f 72 69 67 2d 69 6d 61 67 65 29 0a 20 20  w orig-image).  
4950: 20 20 0a 20 20 20 20 28 67 69 6d 70 2d 63 6f 6e    .    (gimp-con
4960: 74 65 78 74 2d 73 65 74 2d 70 61 69 6e 74 2d 6d  text-set-paint-m
4970: 65 74 68 6f 64 20 22 67 69 6d 70 2d 70 61 69 6e  ethod "gimp-pain
4980: 74 62 72 75 73 68 22 29 0a 20 20 20 20 28 67 69  tbrush").    (gi
4990: 6d 70 2d 63 6f 6e 74 65 78 74 2d 73 65 74 2d 66  mp-context-set-f
49a0: 6f 72 65 67 72 6f 75 6e 64 20 27 28 31 32 38 20  oreground '(128 
49b0: 31 32 38 20 31 32 38 29 29 0a 20 20 20 20 28 67  128 128)).    (g
49c0: 69 6d 70 2d 63 6f 6e 74 65 78 74 2d 73 65 74 2d  imp-context-set-
49d0: 62 72 75 73 68 20 22 43 69 72 63 6c 65 20 28 30  brush "Circle (0
49e0: 31 29 22 29 0a 20 20 20 20 28 73 65 74 21 20 66  1)").    (set! f
49f0: 6f 6c 64 73 2d 6c 61 79 65 72 20 28 63 61 72 20  olds-layer (car 
4a00: 28 67 69 6d 70 2d 6c 61 79 65 72 2d 6e 65 77 20  (gimp-layer-new 
4a10: 69 6d 61 67 65 20 0a 20 20 20 20 20 20 20 20 20  image .         
4a20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4a30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4a40: 20 20 28 63 61 72 20 28 67 69 6d 70 2d 69 6d 61    (car (gimp-ima
4a50: 67 65 2d 77 69 64 74 68 20 69 6d 61 67 65 29 29  ge-width image))
4a60: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
4a70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4a80: 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72              (car
4a90: 20 28 67 69 6d 70 2d 69 6d 61 67 65 2d 68 65 69   (gimp-image-hei
4aa0: 67 68 74 20 69 6d 61 67 65 29 29 0a 20 20 20 20  ght image)).    
4ab0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4ac0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4ad0: 20 20 20 20 20 20 20 52 47 42 41 2d 49 4d 41 47         RGBA-IMAG
4ae0: 45 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  E .             
4af0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4b00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 46                "F
4b10: 6f 6c 64 73 22 20 0a 20 20 20 20 20 20 20 20 20  olds" .         
4b20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4b30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4b40: 20 20 31 30 30 20 0a 20 20 20 20 20 20 20 20 20    100 .         
4b50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4b60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4b70: 20 20 4e 4f 52 4d 41 4c 2d 4d 4f 44 45 20 29 29    NORMAL-MODE ))
4b80: 29 0a 20 20 20 20 28 67 69 6d 70 2d 69 6d 61 67  ).    (gimp-imag
4b90: 65 2d 61 64 64 2d 6c 61 79 65 72 20 69 6d 61 67  e-add-layer imag
4ba0: 65 20 66 6f 6c 64 73 2d 6c 61 79 65 72 20 30 29  e folds-layer 0)
4bb0: 0a 20 20 20 20 28 67 69 6d 70 2d 64 72 61 77 61  .    (gimp-drawa
4bc0: 62 6c 65 2d 66 69 6c 6c 20 66 6f 6c 64 73 2d 6c  ble-fill folds-l
4bd0: 61 79 65 72 20 54 52 41 4e 53 50 41 52 45 4e 54  ayer TRANSPARENT
4be0: 2d 46 49 4c 4c 29 0a 20 20 20 20 28 6d 61 70 20  -FILL).    (map 
4bf0: 28 6c 61 6d 62 64 61 20 28 70 61 74 68 29 0a 20  (lambda (path). 
4c00: 20 20 20 20 20 20 20 20 20 20 20 28 67 69 6d 70             (gimp
4c10: 2d 65 64 69 74 2d 73 74 72 6f 6b 65 2d 76 65 63  -edit-stroke-vec
4c20: 74 6f 72 73 20 66 6f 6c 64 73 2d 6c 61 79 65 72  tors folds-layer
4c30: 20 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20   path)).        
4c40: 20 28 61 70 70 65 6e 64 20 74 61 62 73 20 70 65   (append tabs pe
4c50: 6e 74 73 29 20 29 0a 20 20 20 20 28 6d 61 70 20  nts) ).    (map 
4c60: 28 6c 61 6d 62 64 61 20 28 6c 61 79 65 72 29 20  (lambda (layer) 
4c70: 28 67 69 6d 70 2d 64 72 61 77 61 62 6c 65 2d 73  (gimp-drawable-s
4c80: 65 74 2d 76 69 73 69 62 6c 65 20 6c 61 79 65 72  et-visible layer
4c90: 20 46 41 4c 53 45 29 29 0a 20 20 20 20 20 20 20   FALSE)).       
4ca0: 20 20 28 76 65 63 74 6f 72 2d 3e 6c 69 73 74 20    (vector->list 
4cb0: 28 63 61 64 72 20 28 67 69 6d 70 2d 69 6d 61 67  (cadr (gimp-imag
4cc0: 65 2d 67 65 74 2d 6c 61 79 65 72 73 20 69 6d 61  e-get-layers ima
4cd0: 67 65 29 29 29 20 29 0a 20 20 20 20 28 6d 61 70  ge))) ).    (map
4ce0: 20 28 6c 61 6d 62 64 61 20 28 6c 61 79 65 72 29   (lambda (layer)
4cf0: 20 28 67 69 6d 70 2d 64 72 61 77 61 62 6c 65 2d   (gimp-drawable-
4d00: 73 65 74 2d 76 69 73 69 62 6c 65 20 6c 61 79 65  set-visible laye
4d10: 72 20 54 52 55 45 29 29 0a 20 20 20 20 20 20 20  r TRUE)).       
4d20: 20 20 66 61 63 65 74 2d 6c 61 79 65 72 73 20 29    facet-layers )
4d30: 0a 20 20 20 20 28 73 65 74 21 20 73 75 72 66 61  .    (set! surfa
4d40: 63 65 2d 6c 61 79 65 72 20 28 63 61 72 20 28 67  ce-layer (car (g
4d50: 69 6d 70 2d 69 6d 61 67 65 2d 6d 65 72 67 65 2d  imp-image-merge-
4d60: 76 69 73 69 62 6c 65 2d 6c 61 79 65 72 73 20 69  visible-layers i
4d70: 6d 61 67 65 20 45 58 50 41 4e 44 2d 41 53 2d 4e  mage EXPAND-AS-N
4d80: 45 43 45 53 53 41 52 59 29 29 29 0a 20 20 20 20  ECESSARY))).    
4d90: 28 67 69 6d 70 2d 64 72 61 77 61 62 6c 65 2d 73  (gimp-drawable-s
4da0: 65 74 2d 6e 61 6d 65 20 73 75 72 66 61 63 65 2d  et-name surface-
4db0: 6c 61 79 65 72 20 22 41 6c 6c 20 66 61 63 65 74  layer "All facet
4dc0: 73 22 29 0a 20 20 20 20 28 67 69 6d 70 2d 6c 61  s").    (gimp-la
4dd0: 79 65 72 2d 72 65 73 69 7a 65 2d 74 6f 2d 69 6d  yer-resize-to-im
4de0: 61 67 65 2d 73 69 7a 65 20 73 75 72 66 61 63 65  age-size surface
4df0: 2d 6c 61 79 65 72 29 0a 20 20 20 20 28 67 69 6d  -layer).    (gim
4e00: 70 2d 64 72 61 77 61 62 6c 65 2d 73 65 74 2d 76  p-drawable-set-v
4e10: 69 73 69 62 6c 65 20 73 75 72 66 61 63 65 2d 6c  isible surface-l
4e20: 61 79 65 72 20 46 41 4c 53 45 29 0a 20 20 20 20  ayer FALSE).    
4e30: 0a 20 20 20 20 28 6d 61 70 20 28 6c 61 6d 62 64  .    (map (lambd
4e40: 61 20 28 6c 61 79 65 72 29 20 28 67 69 6d 70 2d  a (layer) (gimp-
4e50: 64 72 61 77 61 62 6c 65 2d 73 65 74 2d 76 69 73  drawable-set-vis
4e60: 69 62 6c 65 20 6c 61 79 65 72 20 54 52 55 45 29  ible layer TRUE)
4e70: 29 0a 20 20 20 20 20 20 20 20 20 28 76 65 63 74  ).         (vect
4e80: 6f 72 2d 3e 6c 69 73 74 20 28 63 61 64 72 20 28  or->list (cadr (
4e90: 67 69 6d 70 2d 69 6d 61 67 65 2d 67 65 74 2d 6c  gimp-image-get-l
4ea0: 61 79 65 72 73 20 69 6d 61 67 65 29 29 29 20 29  ayers image))) )
4eb0: 0a 20 20 20 20 28 67 69 6d 70 2d 69 6d 61 67 65  .    (gimp-image
4ec0: 2d 73 65 74 2d 61 63 74 69 76 65 2d 6c 61 79 65  -set-active-laye
4ed0: 72 20 69 6d 61 67 65 20 62 67 2d 6c 61 79 65 72  r image bg-layer
4ee0: 29 0a 20 20 20 20 28 67 69 6d 70 2d 73 65 6c 65  ).    (gimp-sele
4ef0: 63 74 69 6f 6e 2d 6e 6f 6e 65 20 69 6d 61 67 65  ction-none image
4f00: 29 0a 20 20 20 20 28 67 69 6d 70 2d 63 6f 6e 74  ).    (gimp-cont
4f10: 65 78 74 2d 70 6f 70 29 0a 20 20 20 20 28 67 69  ext-pop).    (gi
4f20: 6d 70 2d 69 6d 61 67 65 2d 75 6e 64 6f 2d 65 6e  mp-image-undo-en
4f30: 61 62 6c 65 20 69 6d 61 67 65 29 0a 20 20 20 20  able image).    
4f40: 28 67 69 6d 70 2d 64 69 73 70 6c 61 79 73 2d 66  (gimp-displays-f
4f50: 6c 75 73 68 29 0a 20 20 20 20 29 0a 20 20 29 0a  lush).    ).  ).
4f60: 0a 28 73 63 72 69 70 74 2d 66 75 2d 72 65 67 69  .(script-fu-regi
4f70: 73 74 65 72 20 22 73 63 72 69 70 74 2d 66 75 2d  ster "script-fu-
4f80: 73 67 2d 70 72 6f 6a 65 63 74 69 6f 6e 2d 74 6f  sg-projection-to
4f90: 2d 64 6f 64 65 63 61 68 65 64 72 6f 6e 22 0a 20  -dodecahedron". 
4fa0: 20 22 50 72 6f 6a 65 63 74 69 6f 6e 20 74 6f 20   "Projection to 
4fb0: 44 6f 64 65 63 61 68 65 64 72 6f 6e 22 0a 20 20  Dodecahedron".  
4fc0: 22 47 65 6e 65 72 61 74 65 20 61 20 64 6f 64 65  "Generate a dode
4fd0: 63 61 68 65 64 72 6f 6e 20 5c 22 67 6c 6f 62 65  cahedron \"globe
4fe0: 5c 22 20 66 72 6f 6d 20 61 20 70 72 6f 6a 65 63  \" from a projec
4ff0: 74 69 6f 6e 20 6d 61 70 22 0a 20 20 22 53 61 75  tion map".  "Sau
5000: 6c 20 47 6f 6f 64 65 22 0a 20 20 22 53 61 75 6c  l Goode".  "Saul
5010: 20 47 6f 6f 64 65 22 0a 20 20 22 4a 61 6e 20 32   Goode".  "Jan 2
5020: 30 31 31 22 0a 20 20 22 52 47 42 2a 2c 47 52 41  011".  "RGB*,GRA
5030: 59 2a 22 0a 20 20 53 46 2d 49 4d 41 47 45 20 22  Y*".  SF-IMAGE "
5040: 49 6d 61 67 65 22 20 30 0a 20 20 53 46 2d 44 52  Image" 0.  SF-DR
5050: 41 57 41 42 4c 45 20 22 44 72 61 77 61 62 6c 65  AWABLE "Drawable
5060: 22 20 30 0a 20 20 29 0a 0a 28 73 63 72 69 70 74  " 0.  )..(script
5070: 2d 66 75 2d 6d 65 6e 75 2d 72 65 67 69 73 74 65  -fu-menu-registe
5080: 72 20 22 73 63 72 69 70 74 2d 66 75 2d 73 67 2d  r "script-fu-sg-
5090: 70 72 6f 6a 65 63 74 69 6f 6e 2d 74 6f 2d 64 6f  projection-to-do
50a0: 64 65 63 61 68 65 64 72 6f 6e 22 0a 20 20 22 3c  decahedron".  "<
50b0: 49 6d 61 67 65 3e 2f 46 69 6c 74 65 72 73 2f 4d  Image>/Filters/M
50c0: 61 70 22 0a 20 20 29 0a                          ap".  ).