MACRO ZOUT2
ZOUT;2
ENDM


MACRO ZIN2
ZIN;2
ENDM


MACRO celt
SELSAVE
SAVESETTINGS
GP C1 ^DSelect lower left corner
IFERR MacroDone
GP C2 ^DSelect upper left corner
IFERR MacroDone
GV bwidth 40
GV bwidth ^DEnter border width: (40)
IFZ bwidth MacroDone
IFN bwidth MacroDone
GV backcolor 11
GV backcolor ^DEnter background color: (11)
COLOR backcolor
GV insidecolor 19
GV insidecolor ^DEnter line background color: (19)
GV linecolor 21
GV linecolor ^DEnter line color: (21)
GETX X1 C1
GETX X2 C2
GETY Y1 C1
GETY Y2 C2
LWIDTH 0
FSTYLE Solid
SHEET BDRBACK
BOX C1 ref C1 @-bwidth,Y2-Y1
BOX C2 ref C2 @bwidth,Y1-Y2
BOX ref C1 @-bwidth,0 ref C2 @bwidth,Y1-Y2-bwidth
BOX ref C1 @-bwidth,Y2-Y1 ref C2 @bwidth,bwidth
GN hN (Y2-Y1)/bwidth*2
SHEET BDRLINEBACK
COLOR insidecolor
LWIDTH bwidth/8
GV hwidth (Y2-Y1)/hN
GN hindex 0
:Loop1
GP P1 ref C1 @0,hwidth*hindex
GP P2 ref C1 @X2-X1,hwidth*hindex
SPLINE ref P1 @-bwidth/8,0 ref P1 @-bwidth/8,hwidth/4 ref P1 @-7*bwidth/16,7*hwidth/8;;;
SPLINE ref P2 @7*bwidth/8,0 ref P2 @7*bwidth/8,hwidth/4 ref P2 @9*bwidth/16,7*hwidth/8;;;
SPLINE ref P1 @-bwidth/8,hwidth ref P1 @-bwidth/8,3*hwidth/4 ref P1 @-3*bwidth/16,5*hwidth/8;;;
SPLINE ref P2 @7*bwidth/8,hwidth ref P2 @7*bwidth/8,3*hwidth/4 ref P2 @13*bwidth/16,5*hwidth/8;;;
SPLINE ref P1 @-bwidth/2,0 ref P1 @-5*bwidth/16,3*hwidth/8;;;
SPLINE ref P2 @bwidth/2,0 ref P2 @11*bwidth/16,3*hwidth/8;;;
SPLINE ref P1 @-9*bwidth/16,hwidth/8 ref P1 @-7*bwidth/8,3*hwidth/4 ref P1 @-7*bwidth/8,hwidth;;;
SPLINE ref P2 @7*bwidth/16,hwidth/8 ref P2 @bwidth/8,3*hwidth/4 ref P2 @bwidth/8,hwidth;;;
SPLINE ref P1 @-11*bwidth/16,5*hwidth/8 ref P1 @-bwidth/2,hwidth;;;
SPLINE ref P2 @5*bwidth/16,5*hwidth/8 ref P2 @bwidth/2,hwidth;;;
SPLINE ref P1 @-7*bwidth/8,0 ref P1 @-7*bwidth/8,hwidth/4 ref P1 @-13*bwidth/16,3*hwidth/8;;;
SPLINE ref P2 @bwidth/8,0 ref P2 @bwidth/8,hwidth/4 ref P2 @3*bwidth/16,3*hwidth/8;;;
GN hindex hindex+1
IFP hN-hindex-0 Loop1
GN lN (X2-X1)/bwidth*2
GV lwid (X2-X1)/lN
GN lindex 0
:Loop2
GP P1 ref C1 @lindex*lwid,0
GP P2 ref C1 @lindex*lwid,Y2-Y1+bwidth
SPLINE ref P1 @0,-7*bwidth/8 ref P1 @lwid/4,-7*bwidth/8 ref P1 @7*lwid/8,-9*bwidth/16;;;
SPLINE ref P2 @0,-7*bwidth/8 ref P2 @lwid/4,-7*bwidth/8 ref P2 @7*lwid/8,-9*bwidth/16;;;
SPLINE ref P1 @5*lwid/8,-13*bwidth/16 ref P1 @3*lwid/4,-7*bwidth/8 ref P1 @lwid,-7*bwidth/8;;;
SPLINE ref P2 @5*lwid/8,-13*bwidth/16 ref P2 @3*lwid/4,-7*bwidth/8 ref P2 @lwid,-7*bwidth/8;;;
SPLINE ref P1 @0,-bwidth/2 ref P1 @3*lwid/8,-11*bwidth/16;;;
SPLINE ref P2 @0,-bwidth/2 ref P2 @3*lwid/8,-11*bwidth/16;;;
SPLINE ref P1 @lwid/8,-7*bwidth/16 ref P1 @3*lwid/4,-bwidth/8 ref P1 @lwid,-bwidth/8;;;
SPLINE ref P2 @lwid/8,-7*bwidth/16 ref P2 @3*lwid/4,-bwidth/8 ref P2 @lwid,-bwidth/8;;;
SPLINE ref P1 @5*lwid/8,-5*bwidth/16 ref P1 @lwid,-bwidth/2;;;
SPLINE ref P2 @5*lwid/8,-5*bwidth/16 ref P2 @lwid,-bwidth/2;;;
SPLINE ref P1 @0,-bwidth/8 ref P1 @lwid/4,-bwidth/8 ref P1 @3*lwid/8,-3*bwidth/16;;;
SPLINE ref P2 @0,-bwidth/8 ref P2 @lwid/4,-bwidth/8 ref P2 @3*lwid/8,-3*bwidth/16;;;
GN lindex lindex+1
IFP lN-lindex-0 Loop2
GP P1 C1
GP P2 C2
SPLINE ref P1 @-7*bwidth/8,0 ref P1 @-7*bwidth/8,-bwidth/8 ref P1 @-5*bwidth/16,-11*bwidth/16;;;
SPLINE ref P2 @7*bwidth/8,0 ref P2 @7*bwidth/8,bwidth/8 ref P2 @5*bwidth/16,11*bwidth/16;;;
SPLINE ref P1 @-bwidth/2,0 ref P1 @-11*bwidth/16,-3*bwidth/16;;;
SPLINE ref P2 @bwidth/2,0 ref P2 @11*bwidth/16,3*bwidth/16;;;
SPLINE ref P1 @-7*bwidth/16,-bwidth/16 ref P1 @0,-8*bwidth/16;;;
SPLINE ref P2 @7*bwidth/16,bwidth/16 ref P2 @0,8*bwidth/16;;;
SPLINE ref P1 @-13*bwidth/16,-5*bwidth/16 ref P1 @-7*bwidth/8,-3*bwidth/8 ref P1 @-7*bwidth/8,-5*bwidth/8 ref P1 @-5*bwidth/8,-7*bwidth/8
ref P1 @-3*bwidth/8,-7*bwidth/8 ref P1 @-bwidth/16,-9*bwidth/16;;;
SPLINE ref P2 @13*bwidth/16,5*bwidth/16 ref P2 @7*bwidth/8,3*bwidth/8 ref P2 @7*bwidth/8,5*bwidth/8 ref P2 @5*bwidth/8,7*bwidth/8
ref P2 @3*bwidth/8,7*bwidth/8 ref P2 @bwidth/16,9*bwidth/16;;;
SPLINE ref P1 @-bwidth/8,0 ref P1 @0,-bwidth/8;;;
SPLINE ref P2 @bwidth/8,0 ref P2 @0,bwidth/8;;;
SPLINE ref P1 @-3*bwidth/16,-13*bwidth/16 ref P1 @-bwidth/8,-7*bwidth/8 ref P1 @0,-7*bwidth/8;;;
SPLINE ref P2 @3*bwidth/16,13*bwidth/16 ref P2 @bwidth/8,7*bwidth/8 ref P2 @0,7*bwidth/8;;;
GP P1 ref C1 @0,Y2-Y1
GP P2 ref C1 @X2-X1,0
SPLINE ref P1 @0,7*bwidth/8 ref P1 @-bwidth/8,7*bwidth/8 ref P1 @-11*bwidth/16,5*bwidth/16;;;
SPLINE ref P2 @0,-7*bwidth/8 ref P2 @bwidth/8,-7*bwidth/8 ref P2 @11*bwidth/16,-5*bwidth/16;;;
SPLINE ref P1 @0,bwidth/2 ref P1 @-3*bwidth/16,11*bwidth/16;;;
SPLINE ref P2 @0,-bwidth/2 ref P2 @3*bwidth/16,-11*bwidth/16;;;
SPLINE ref P1 @-bwidth/16,7*bwidth/16 ref P1 @-8*bwidth/16,0;;;
SPLINE ref P2 @bwidth/16,-7*bwidth/16 ref P2 @8*bwidth/16,0;;;
SPLINE ref P1 @-5*bwidth/16,13*bwidth/16 ref P1 @-3*bwidth/8,7*bwidth/8 ref P1 @-5*bwidth/8,7*bwidth/8 ref P1 @-7*bwidth/8,5*bwidth/8
ref P1 @-7*bwidth/8,3*bwidth/8 ref P1 @-9*bwidth/16,bwidth/16;;;
SPLINE ref P2 @5*bwidth/16,-13*bwidth/16 ref P2 @3*bwidth/8,-7*bwidth/8 ref P2 @5*bwidth/8,-7*bwidth/8 ref P2 @7*bwidth/8,-5*bwidth/8
ref P2 @7*bwidth/8,-3*bwidth/8 ref P2 @9*bwidth/16,-bwidth/16;;;
SPLINE ref P1 @0,bwidth/8 ref P1 @-bwidth/8,0;;;
SPLINE ref P2 @0,-bwidth/8 ref P2 @bwidth/8,0;;;
SPLINE ref P1 @-13*bwidth/16,3*bwidth/16 ref P1 @-7*bwidth/8,bwidth/8 ref P1 @-7*bwidth/8,0;;;
SPLINE ref P2 @13*bwidth/16,-3*bwidth/16 ref P2 @7*bwidth/8,-bwidth/8 ref P2 @7*bwidth/8,0;;;
SHEET BDRLINE
COLOR linecolor
LWIDTH 2.5
GN hindex 0
:Loop3
GP P1 ref C1 @0,hwidth*hindex
GP P2 ref C1 @X2-X1,hwidth*hindex
SPLINE ref P1 @-bwidth/8,0 ref P1 @-bwidth/8,hwidth/4 ref P1 @-7*bwidth/16,7*hwidth/8;;;
SPLINE ref P2 @7*bwidth/8,0 ref P2 @7*bwidth/8,hwidth/4 ref P2 @9*bwidth/16,7*hwidth/8;;;
SPLINE ref P1 @-bwidth/8,hwidth ref P1 @-bwidth/8,3*hwidth/4 ref P1 @-3*bwidth/16,5*hwidth/8;;;
SPLINE ref P2 @7*bwidth/8,hwidth ref P2 @7*bwidth/8,3*hwidth/4 ref P2 @13*bwidth/16,5*hwidth/8;;;
SPLINE ref P1 @-bwidth/2,0 ref P1 @-5*bwidth/16,3*hwidth/8;;;
SPLINE ref P2 @bwidth/2,0 ref P2 @11*bwidth/16,3*hwidth/8;;;
SPLINE ref P1 @-9*bwidth/16,hwidth/8 ref P1 @-7*bwidth/8,3*hwidth/4 ref P1 @-7*bwidth/8,hwidth;;;
SPLINE ref P2 @7*bwidth/16,hwidth/8 ref P2 @bwidth/8,3*hwidth/4 ref P2 @bwidth/8,hwidth;;;
SPLINE ref P1 @-11*bwidth/16,5*hwidth/8 ref P1 @-bwidth/2,hwidth;;;
SPLINE ref P2 @5*bwidth/16,5*hwidth/8 ref P2 @bwidth/2,hwidth;;;
SPLINE ref P1 @-7*bwidth/8,0 ref P1 @-7*bwidth/8,hwidth/4 ref P1 @-13*bwidth/16,3*hwidth/8;;;
SPLINE ref P2 @bwidth/8,0 ref P2 @bwidth/8,hwidth/4 ref P2 @3*bwidth/16,3*hwidth/8;;;
GN hindex hindex+1
IFP hN-hindex-0 Loop3
GN lindex 0
:Loop4
GP P1 ref C1 @lindex*lwid,0
GP P2 ref C1 @lindex*lwid,Y2-Y1+bwidth
SPLINE ref P1 @0,-7*bwidth/8 ref P1 @lwid/4,-7*bwidth/8 ref P1 @7*lwid/8,-9*bwidth/16;;;
SPLINE ref P2 @0,-7*bwidth/8 ref P2 @lwid/4,-7*bwidth/8 ref P2 @7*lwid/8,-9*bwidth/16;;;
SPLINE ref P1 @5*lwid/8,-13*bwidth/16 ref P1 @3*lwid/4,-7*bwidth/8 ref P1 @lwid,-7*bwidth/8;;;
SPLINE ref P2 @5*lwid/8,-13*bwidth/16 ref P2 @3*lwid/4,-7*bwidth/8 ref P2 @lwid,-7*bwidth/8;;;
SPLINE ref P1 @0,-bwidth/2 ref P1 @3*lwid/8,-11*bwidth/16;;;
SPLINE ref P2 @0,-bwidth/2 ref P2 @3*lwid/8,-11*bwidth/16;;;
SPLINE ref P1 @lwid/8,-7*bwidth/16 ref P1 @3*lwid/4,-bwidth/8 ref P1 @lwid,-bwidth/8;;;
SPLINE ref P2 @lwid/8,-7*bwidth/16 ref P2 @3*lwid/4,-bwidth/8 ref P2 @lwid,-bwidth/8;;;
SPLINE ref P1 @5*lwid/8,-5*bwidth/16 ref P1 @lwid,-bwidth/2;;;
SPLINE ref P2 @5*lwid/8,-5*bwidth/16 ref P2 @lwid,-bwidth/2;;;
SPLINE ref P1 @0,-bwidth/8 ref P1 @lwid/4,-bwidth/8 ref P1 @3*lwid/8,-3*bwidth/16;;;
SPLINE ref P2 @0,-bwidth/8 ref P2 @lwid/4,-bwidth/8 ref P2 @3*lwid/8,-3*bwidth/16;;;
GN lindex lindex+1
IFP lN-lindex-0 Loop4
GP P1 C1
GP P2 C2
SPLINE ref P1 @-7*bwidth/8,0 ref P1 @-7*bwidth/8,-bwidth/8 ref P1 @-5*bwidth/16,-11*bwidth/16;;;
SPLINE ref P2 @7*bwidth/8,0 ref P2 @7*bwidth/8,bwidth/8 ref P2 @5*bwidth/16,11*bwidth/16;;;
SPLINE ref P1 @-bwidth/2,0 ref P1 @-11*bwidth/16,-3*bwidth/16;;;
SPLINE ref P2 @bwidth/2,0 ref P2 @11*bwidth/16,3*bwidth/16;;;
SPLINE ref P1 @-7*bwidth/16,-bwidth/16 ref P1 @0,-8*bwidth/16;;;
SPLINE ref P2 @7*bwidth/16,bwidth/16 ref P2 @0,8*bwidth/16;;;
SPLINE ref P1 @-13*bwidth/16,-5*bwidth/16 ref P1 @-7*bwidth/8,-3*bwidth/8 ref P1 @-7*bwidth/8,-5*bwidth/8 ref P1 @-5*bwidth/8,-7*bwidth/8
ref P1 @-3*bwidth/8,-7*bwidth/8 ref P1 @-bwidth/16,-9*bwidth/16;;;
SPLINE ref P2 @13*bwidth/16,5*bwidth/16 ref P2 @7*bwidth/8,3*bwidth/8 ref P2 @7*bwidth/8,5*bwidth/8 ref P2 @5*bwidth/8,7*bwidth/8
ref P2 @3*bwidth/8,7*bwidth/8 ref P2 @bwidth/16,9*bwidth/16;;;
SPLINE ref P1 @-bwidth/8,0 ref P1 @0,-bwidth/8;;;
SPLINE ref P2 @bwidth/8,0 ref P2 @0,bwidth/8;;;
SPLINE ref P1 @-3*bwidth/16,-13*bwidth/16 ref P1 @-bwidth/8,-7*bwidth/8 ref P1 @0,-7*bwidth/8;;;
SPLINE ref P2 @3*bwidth/16,13*bwidth/16 ref P2 @bwidth/8,7*bwidth/8 ref P2 @0,7*bwidth/8;;;
GP P1 ref C1 @0,Y2-Y1
GP P2 ref C1 @X2-X1,0
SPLINE ref P1 @0,7*bwidth/8 ref P1 @-bwidth/8,7*bwidth/8 ref P1 @-11*bwidth/16,5*bwidth/16;;;
SPLINE ref P2 @0,-7*bwidth/8 ref P2 @bwidth/8,-7*bwidth/8 ref P2 @11*bwidth/16,-5*bwidth/16;;;
SPLINE ref P1 @0,bwidth/2 ref P1 @-3*bwidth/16,11*bwidth/16;;;
SPLINE ref P2 @0,-bwidth/2 ref P2 @3*bwidth/16,-11*bwidth/16;;;
SPLINE ref P1 @-bwidth/16,7*bwidth/16 ref P1 @-8*bwidth/16,0;;;
SPLINE ref P2 @bwidth/16,-7*bwidth/16 ref P2 @8*bwidth/16,0;;;
SPLINE ref P1 @-5*bwidth/16,13*bwidth/16 ref P1 @-3*bwidth/8,7*bwidth/8 ref P1 @-5*bwidth/8,7*bwidth/8 ref P1 @-7*bwidth/8,5*bwidth/8
ref P1 @-7*bwidth/8,3*bwidth/8 ref P1 @-9*bwidth/16,bwidth/16;;;
SPLINE ref P2 @5*bwidth/16,-13*bwidth/16 ref P2 @3*bwidth/8,-7*bwidth/8 ref P2 @5*bwidth/8,-7*bwidth/8 ref P2 @7*bwidth/8,-5*bwidth/8
ref P2 @7*bwidth/8,-3*bwidth/8 ref P2 @9*bwidth/16,-bwidth/16;;;
SPLINE ref P1 @0,bwidth/8 ref P1 @-bwidth/8,0;;;
SPLINE ref P2 @0,-bwidth/8 ref P2 @bwidth/8,0;;;
SPLINE ref P1 @-13*bwidth/16,3*bwidth/16 ref P1 @-7*bwidth/8,bwidth/8 ref P1 @-7*bwidth/8,0;;;
SPLINE ref P2 @13*bwidth/16,-3*bwidth/16 ref P2 @7*bwidth/8,-bwidth/8 ref P2 @7*bwidth/8,0;;;
:MacroDone
GETSETTINGS
SELREST
ENDM