… | |
… | |
7 | white=$1 |
7 | white=$1 |
8 | w=$2 |
8 | w=$2 |
9 | |
9 | |
10 | convert -size 152x152 xc:$white -matte -fill none -draw "matte 0,0 reset" -channel rgba \ |
10 | convert -size 152x152 xc:$white -matte -fill none -draw "matte 0,0 reset" -channel rgba \ |
11 | +fill -stroke $white \ |
11 | +fill -stroke $white \ |
12 | -draw "stroke-antialias 1 stroke-width $WIDTH circle 75,75 35.75,75" \ |
12 | -draw "stroke-antialias 1 stroke-width $WIDTH circle 75.5,75.5 35.75,75" \ |
13 | -blur $BLUR \ |
13 | -blur $BLUR \ |
14 | circle-$w.png |
14 | circle-$w.png |
15 | |
15 | |
16 | convert -size 152x152 xc:$white -matte -fill none -draw "matte 0,0 reset" -channel rgba \ |
16 | convert -size 152x152 xc:$white -matte -fill none -draw "matte 0,0 reset" -channel rgba \ |
17 | +fill -stroke $white \ |
17 | +fill -stroke $white \ |
18 | -draw "stroke-antialias 1 stroke-width $WIDTH roundrectangle 37.5,37.5 114.5,114.5 8,8" \ |
18 | -draw "stroke-antialias 1 stroke-width $WIDTH roundrectangle 37.5,37.5 113.5,113.5 8,8" \ |
19 | -blur $BLUR \ |
19 | -blur $BLUR \ |
20 | square-$w.png |
20 | square-$w.png |
21 | |
21 | |
22 | convert -size 152x152 xc:$white -matte -fill none -draw "matte 0,0 reset" -channel rgba \ |
22 | convert -size 152x152 xc:$white -matte -fill none -draw "matte 0,0 reset" -channel rgba \ |
23 | +fill -stroke $white \ |
23 | +fill -stroke $white \ |
24 | -draw "stroke-antialias 1 stroke-width $WIDTH line 40,40 112,112 line 112,40 40,112" \ |
24 | -draw "stroke-antialias 1 stroke-width $WIDTH line 40,40 111,111 line 111,40 40,111" \ |
25 | -blur $BLUR \ |
25 | -blur $BLUR \ |
26 | cross-$w.png |
26 | cross-$w.png |
27 | |
27 | |
28 | R=46 |
28 | R=46 |
29 | A=$(perl -e "print 76.5-$R") |
29 | A=$(perl -e "print 75.5-$R") |
30 | B=$(perl -e "print 76.5 + $R * sin 120/360*4*atan2 1,1") |
30 | B=$(perl -e "print 75.5 + $R * sin 120/360*4*atan2 1,1") |
31 | C=$(perl -e "print 76.5 - $R * sin 120/360*4*atan2 1,1") |
31 | C=$(perl -e "print 75.5 - $R * sin 120/360*4*atan2 1,1") |
32 | D=$(perl -e "print 76.5 + $R * 0.5") |
32 | D=$(perl -e "print 75.5 + $R * 0.5") |
33 | set -x |
|
|
34 | convert -size 152x152 xc:$white -matte -fill none -draw "matte 0,0 reset" -channel rgba \ |
33 | convert -size 152x152 xc:$white -matte -fill none -draw "matte 0,0 reset" -channel rgba \ |
35 | +fill -stroke $white \ |
34 | +fill -stroke $white \ |
36 | -draw "stroke-antialias 1 stroke-width $WIDTH polygon 76.5,$A $B,$D $C,$D" \ |
35 | -draw "stroke-antialias 1 stroke-width $WIDTH polygon 75.5,$A $B,$D $C,$D" \ |
37 | -blur $BLUR \ |
36 | -blur $BLUR \ |
38 | triangle-$w.png |
37 | triangle-$w.png |
39 | } |
38 | } |
40 | |
39 | |
41 | draw white w |
40 | draw white w |