GD GD

Size: px

Start display at page:

Download "1 1 2 2 3 GD 3 3.1 GD.............................. 3 3.2..................................... 4 3.3............................... 4 4 7 5 2 9 5.1..."

りえこうい
7 years ago
Views:

2 GD GD PNG HTML point point point HTML i

1.................................. 13 6.2............................... 14 7 point 16 7.1 2...................... 16 7.2 point.

3 24 ii

4 WWW Unix Unix 2004 WWW SVG 2 2 iii

5 WWW ( 1) Tgif Tgif Unix Tgif WWW WWW 1 URL 16 1) SVG SVG WWW PNG WWW HTML Fig. 1 1

6 2 16 1) Tcl/Tk GUI AWK SVG squiggle WWW PNG AWK Tcl/Tk Tcl Tk GUI SVG W3C WWW SVG SVG SVG SVG 2 1 GD PNG GD PNG SVG PNG GD PNG size size x 1 y 1 x 2 y 2 build build " " x 1 y 1 road road " " x 1 y 1 x 2 y 2...x n y n Table 1 size (x 1, y 1 ) (x 2, y 2 ) build 2

1 3 size size x 1 y 1 x 2 y 2 build build " " x 1 y 1 road road " "

7 2 (x 1, y 1 ) road (x 1, y 1 ) (x n, y m ) 3 GD 3.1 GD GD gd lib perl gd lib PNG JPEG GIF PNG gd lib gd lib perl GD GD GD #!/usr/local/gnu/bin/perl use GD; # GD lib $im = new GD::Image(400,400); # $white = $im->colorallocate(255,255,255); $black = $im->colorallocate(0,0,0); $red = $im->colorallocate(255,0,0); # binmode STDOUT; # print $im->png; # PNG 3

/usr/local/gnu/bin/perl use GD; # GD lib $im = new GD::Image(400,400); # $white =

8 file.pl perl file.pl > file.png xli file.png PNG PNG 3.2 GD 3 GD::Image GD GD::Font GD 5 GD::Polygon 3.3 new() new() GD::Image truecolor 24 (R/G/B 8 ) 8 $im->new([$width,$heigt],[$truecolor]) $im->new(*filehandle) $im->new($filename) $im->new($data) newfrompng() 4

3 new() new() GD::Image 64 64 truecolor 24 (R/G/B 8 ) 8

9 2 newfrompng() PNG PNG undef binmode(filehandle) STDIN $im->$newfrompng($file, [$truecolor]) $im->newfrompngdata($data, [$truecolor]) colorallocate() colorallocate() GD::Image 1 $im->colorallocate($red,$green,$blue) line() line() (x1,y1) (x2,y2) $im->line($x1,$y1,$x2,$y2,$color) setthickness() setthickness() line(),rectangle(),arc() 1 (10, 190) (140, 10) 3 $im->setthickness($thickness) ( ) $im->setthickness(3); $im->line(10,190,140,10,$black); 5

$im->colorallocate($red,$green,$blue) line() line() (x1,y1) (x2,y2) $im->line($x1,$y1,$x2,$y2,$color)

10 ellipse() filledellipse() ellipse() (cx,cy) (width,height) filledellipse() $im->ellipse($cx,$cy,$width,$height,$color) $im->filledellipse($cx,$cy,$width,$height,$color) fill() fill() (x,y) $im->fill($x,$y,$color) unclosedpolygon() unclosedpolygon() new GD::polygon Polygon (250, 10) (200, 80) (280, 100) (250, 180) $im->unclosedpolygon($poly,$color) ( ) $poly = new GD::Polygon; $poly->addpt(250,10); $poly->addpt(200,80); $poly->addpt(280,100); $poly->addpt(250,180); $im->unclosedpolygon($poly,$black); 6

unclosedpolygon() new GD::polygon Polygon (250, 10) (200, 80) (280, 100) (250, 180) $im->unclosedpolygon($poly,$color) ( )

11 2 string() GD lib 5 string() (x,y) gdsmallfont gdmediumboldfont gdtinyfont gd- LargeFont gdgiantfont 5 $im->string($font,$x,$y,$string,$color) stringft() stringft() TrueType 1 2 (120,150) 12 = $im->stringft($fgcolor,$fontname,$ptsize,$angle,$x,$y, $string) fgcolor : fontname : ptsize : ( ) angle : ( ) x,y : string : ( )$jpmfont= /usr/local/x11/share/fonts/ttf/ipam.ttf = $im->stringft($black,$jpmfont,12,120,150,80," "); 4 PNG 7

$im->stringft($fgcolor,$fontname,$ptsize,$angle,$x,$y, $string) fgcolor : fontname : ptsize : ( ) angle : ( )

12 #!/usr/local/gnu/bin/perl use GD; use encoding "euc-jp"; $jpmfont= /usr/local/x11/share/fonts/ttf/ipam.ttf ; $im = new GD::Image(300,200); $white = $im->colorallocate(255,255,255); $black = $im->colorallocate(0,0,0); $red = $im->colorallocate(255,0,0); $im->line(0,0,300,200,$red); $im->setthickness(3); $im->line(10,190,140,10,$black); $im->setthickness(1); $im->ellipse(120,130,150,100,$black); $im->fill(120,130,$red); $poly = new GD::Polygon; $poly->addpt(250,10); $poly->addpt(200,80); $poly->addpt(280,100); $poly->addpt(250,180); = $im->stringft($black,$jpmfont,12,120,150,80," "); binmode STDOUT; print $im->png; 2 PNG 8

$im->line(0,0,300,200,$red); $im->setthickness(3); $im->line(10,190,140,10,$black); $im->setthickness(1); $im->ellipse(120,130,150,100,$black);

13 2 Fig ID r 1,r 2,r 3, b 1,b 2,b 3, ID road r1 " 8 " w build b1 " " r ID 9

14 3 (1) (2) (1) GD (2) ( ) GD 2 (1) (2) Fig. 3 (1) (2) (2) (2) (2) 2 1 build ID ID build b1 " " r e1 r e2 r build ID ID ID e 2 build link link ID ID ID link link e b1 r1 link e b1 r2 10

20 50 e1 r1 30 40 e2 r2 30 60 build ID ID ID e 2 build

15 2 2 build build build build build link link 5.2 road road ( ) point point p1 c r1 r2 point p2 c r4 r6 point p3 l b1 r1 2 p 1 p 2 p n ID 3 c l c l r 1 r 2 2 ID b 1 r 1 ID 2 11

point p2 c 90 30 r4 r6 point p3 l 60 60 b1 r1 2 p

16 road 1 1 road road size build road point 2 size size x 1 y 1 x 2 y 2 build build ID " " x 1 y 1 road road ID " " x 1 y 1 x 2 y 2...x n y n point ( ) point ID " " x 1 y 1 r a r b point ( ) point ID " " x 1 y 1 r a b a Table 2 size (x 1, y 1 ) (x 2, y 2 ) (x 1, y 1 ) (x 2, y 2 ) build ID (x 1, y 1 ) 3 12

17 2 r c s Table 3 build road ID (x 1, y 1 ) (x n, y m ) 4n n w r Table 4 road point ID c (x 1, y 1 ) IDr a r b ID l (x 1, y 1 ) IDr a b a ID point 2 6 PNG HTML PNG HTML 6.1 point point size road r1 " " n

18 road r2 "" n road r3 "" n road r4 "" w road r5 "" w road r6 "" w road r7 "" w road r8 "" w road r9 "" w road r10 "" w road r11 "" r build b1 " " r build b2 " " r build b3 " " r build b4 " " r build b5 " " r build b6 " " r build b7 "ENEOS" s build b8 "ENEOS" s build b9 "JOMO" s build b10 " " c build b11 " " t PNG HTML perl PNG HTML GD lib (0, 0) (0, 0) (0, 0) 5 14

1000 530 build b1 " " r 195 480 build b2 " " r 460 450 build b3 " " r 550 420 build b4 " " r 600 420 build b5 " " r 770 350 build b6 " " r 180 400 build b7 "ENEOS"

19 2 n 7 w 4 r 4 r 8 c 6 s 6 t 10 Table 5 HTML build build b1 " " re <area shape="circle" coords="195,220,8" href="#b1 " alt=" "> PNG 4 15

20 Fig. 4 7 point road point A B A OP = OP 1 + P 1 P = OP 1 + t P 1 P 2 = OP + t( OP 2 OP 1 ) 16

21 2 P1 (x1, y1) t OP1 OP O (0,0) P3 (x3, y3) 1 - s s P(x, y) 1 - P2 (x2, y2) P4 (x4, y4) 0 < = s < = 1 0 < t < = = 1 t A B Fig. 5 A B = [ x1 y 1 ] + t [ x2 x 1 y 2 y 1 ] = [ x1 + t(x 2 x 1 ) y 1 + t(y 2 y 1 ) ] { x = x1 + t(x 2 x 1 ) y = y 1 + t(y 2 y 1 ) (0 t 1) (1) B { x = x3 + s(x 4 x 3 ) y = y 3 + s(y 4 y 3 ) (0 s 1) (2) 2 (1) (2) { x1 + t(x 2 x 1 ) = x 3 + s(x 4 x 3 ) y 1 + t(y 2 y 1 ) = y 3 + s(y 4 y 3 ) (3) (3) s t { (x2 x 1 )t (x 4 x 3 )s = x 3 x 1 (y 2 y 1 )t (y 4 y 3 )s = y 3 y 1 (4) 17

22 (4) [ x2 x 1 x 3 x 4 ] [ t } y 2 y 1 y 3 y 4 {{ } s A ] = [ x3 x 1 y 3 y 1 ] (5) A = (x 2 x 1 )(y 3 y 4 ) (x 3 x 4 )(y 2 y 1 ) 0 (6) (6) 0 (6) (5) t s [ t s ] = A 1 [ x3 x 1 y 3 y 1 ] = 1 [ y3 y 4 x 4 x 3 A y 1 y 2 x 2 x 1 ] [ x3 x 1 y 3 y 1 ] (7) (7) (5) P 1 P 2 P 3 P 4 0 t 1 0 s 1 (8) (8) point point perl size build road ID point 18

23 2 road r1 " " n road r2 "" n road r100 "" w point p1 "" c r1 r2 point p2 "" c r1 r100 6 (0, 0) (1000,700) Fig. 6 point ID point point p1 "" c r1 r2 point p2 "" c r1 r3 point p3 "" c r1 r4 point p4 "" c r1 r5 point p5 "" c r1 r6 19

24 point p6 "" c r1 r8 point p7 "" c r1 r11 point p8 "" c r2 r11 point p9 "" c r4 r5 point p10 "" c r4 r6 point p11 "" c r4 r8 point p12 "" c r4 r9 point p13 "" c r4 r11 point p14 "" c r5 r11 point p15 "" c r6 r7 point p16 "" c r6 r10 point p17 "" c r6 r11 point p18 "" c r7 r8 point p19 "" c r8 r9 point p20 "" c r8 r10 point p21 "" c r9 r point point point 2 1 s p 1 p 2 p 3 p 4 p 6 p 7 p 8 p 9 p 12 p 14 p 15 p 16 point ( ) b 20

25 2 point p22 " " b r4 point p23 " " b r4 point p24 "" b r4 point p25 "" b r8 point p26 "" b r7 point p27 "" b r5 7.4 HTML PNG HTML 1 point point s b 7 Fig. 7 HTML point p17 " " b r4 <area shape="circle" coords="300,314,8" href="#p17 " alt=" "> 21

26 PNG PNG 8 Fig. 8 8 perl GD PNG 2 PNG ) SVG SVG WWW 22

27 2 PNG GD 2 ID 1 1 point perl 2 point HTML PNG HTML perl PNG HTML

28 [1] (2005) [2] Lincoln D.Stein GD (ver 2.28) [3] ( ) 24

1 1 2 Unix 1 3 4 4 SVG 6 4.1 SVG................................... 6 4.2 SVG......................... 6 4.3 SVG.............................. 7 4.4..

WWW 17 2 10 1 1 2 Unix 1 3 4 4 SVG 6 4.1 SVG................................... 6 4.2 SVG......................... 6 4.3 SVG.............................. 7 4.4................................. 8 4.5...........................