source: trunk/client/inc/hpdf5/tecnickcom/tcpdf/examples/example_012.php@ 384

Last change on this file since 384 was 347, checked in by roby, 3 years ago

Aggiornamento per compatibilità con php7.4

File size: 7.6 KB
Line 
1<?php
2//============================================================+
3// File name : example_012.php
4// Begin : 2008-03-04
5// Last Update : 2013-05-14
6//
7// Description : Example 012 for TCPDF class
8// Graphic Functions
9//
10// Author: Nicola Asuni
11//
12// (c) Copyright:
13// Nicola Asuni
14// Tecnick.com LTD
15// www.tecnick.com
16// info@tecnick.com
17//============================================================+
18
19/**
20 * Creates an example PDF TEST document using TCPDF
21 * @package com.tecnick.tcpdf
22 * @abstract TCPDF - Example: Graphic Functions
23 * @author Nicola Asuni
24 * @since 2008-03-04
25 */
26
27// Include the main TCPDF library (search for installation path).
28require_once('tcpdf_include.php');
29
30// create new PDF document
31$pdf = new TCPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', false);
32
33// set document information
34$pdf->SetCreator(PDF_CREATOR);
35$pdf->SetAuthor('Nicola Asuni');
36$pdf->SetTitle('TCPDF Example 012');
37$pdf->SetSubject('TCPDF Tutorial');
38$pdf->SetKeywords('TCPDF, PDF, example, test, guide');
39
40// disable header and footer
41$pdf->setPrintHeader(false);
42$pdf->setPrintFooter(false);
43
44// set default monospaced font
45$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
46
47// set margins
48$pdf->SetMargins(PDF_MARGIN_LEFT, PDF_MARGIN_TOP, PDF_MARGIN_RIGHT);
49
50// set auto page breaks
51$pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);
52
53// set image scale factor
54$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
55
56// set some language-dependent strings (optional)
57if (@file_exists(dirname(__FILE__).'/lang/eng.php')) {
58 require_once(dirname(__FILE__).'/lang/eng.php');
59 $pdf->setLanguageArray($l);
60}
61
62// ---------------------------------------------------------
63
64// set font
65$pdf->SetFont('helvetica', '', 10);
66
67// add a page
68$pdf->AddPage();
69
70$style = array('width' => 0.5, 'cap' => 'butt', 'join' => 'miter', 'dash' => '10,20,5,10', 'phase' => 10, 'color' => array(255, 0, 0));
71$style2 = array('width' => 0.5, 'cap' => 'butt', 'join' => 'miter', 'dash' => 0, 'color' => array(255, 0, 0));
72$style3 = array('width' => 1, 'cap' => 'round', 'join' => 'round', 'dash' => '2,10', 'color' => array(255, 0, 0));
73$style4 = array('L' => 0,
74 'T' => array('width' => 0.25, 'cap' => 'butt', 'join' => 'miter', 'dash' => '20,10', 'phase' => 10, 'color' => array(100, 100, 255)),
75 'R' => array('width' => 0.50, 'cap' => 'round', 'join' => 'miter', 'dash' => 0, 'color' => array(50, 50, 127)),
76 'B' => array('width' => 0.75, 'cap' => 'square', 'join' => 'miter', 'dash' => '30,10,5,10'));
77$style5 = array('width' => 0.25, 'cap' => 'butt', 'join' => 'miter', 'dash' => 0, 'color' => array(0, 64, 128));
78$style6 = array('width' => 0.5, 'cap' => 'butt', 'join' => 'miter', 'dash' => '10,10', 'color' => array(0, 128, 0));
79$style7 = array('width' => 0.5, 'cap' => 'butt', 'join' => 'miter', 'dash' => 0, 'color' => array(255, 128, 0));
80
81// Line
82$pdf->Text(5, 4, 'Line examples');
83$pdf->Line(5, 10, 80, 30, $style);
84$pdf->Line(5, 10, 5, 30, $style2);
85$pdf->Line(5, 10, 80, 10, $style3);
86
87// Rect
88$pdf->Text(100, 4, 'Rectangle examples');
89$pdf->Rect(100, 10, 40, 20, 'DF', $style4, array(220, 220, 200));
90$pdf->Rect(145, 10, 40, 20, 'D', array('all' => $style3));
91
92// Curve
93$pdf->Text(5, 34, 'Curve examples');
94$pdf->Curve(5, 40, 30, 55, 70, 45, 60, 75, null, $style6);
95$pdf->Curve(80, 40, 70, 75, 150, 45, 100, 75, 'F', $style6);
96$pdf->Curve(140, 40, 150, 55, 180, 45, 200, 75, 'DF', $style6, array(200, 220, 200));
97
98// Circle and ellipse
99$pdf->Text(5, 79, 'Circle and ellipse examples');
100$pdf->SetLineStyle($style5);
101$pdf->Circle(25,105,20);
102$pdf->Circle(25,105,10, 90, 180, null, $style6);
103$pdf->Circle(25,105,10, 270, 360, 'F');
104$pdf->Circle(25,105,10, 270, 360, 'C', $style6);
105
106$pdf->SetLineStyle($style5);
107$pdf->Ellipse(100,103,40,20);
108$pdf->Ellipse(100,105,20,10, 0, 90, 180, null, $style6);
109$pdf->Ellipse(100,105,20,10, 0, 270, 360, 'DF', $style6);
110
111$pdf->SetLineStyle($style5);
112$pdf->Ellipse(175,103,30,15,45);
113$pdf->Ellipse(175,105,15,7.50, 45, 90, 180, null, $style6);
114$pdf->Ellipse(175,105,15,7.50, 45, 270, 360, 'F', $style6, array(220, 200, 200));
115
116// Polygon
117$pdf->Text(5, 129, 'Polygon examples');
118$pdf->SetLineStyle(array('width' => 0.5, 'cap' => 'butt', 'join' => 'miter', 'dash' => 0, 'color' => array(0, 0, 0)));
119$pdf->Polygon(array(5,135,45,135,15,165));
120$pdf->Polygon(array(60,135,80,135,80,155,70,165,50,155), 'DF', array($style6, $style7, $style7, 0, $style6), array(220, 200, 200));
121$pdf->Polygon(array(120,135,140,135,150,155,110,155), 'D', array($style6, 0, $style7, $style6));
122$pdf->Polygon(array(160,135,190,155,170,155,200,160,160,165), 'DF', array('all' => $style6), array(220, 220, 220));
123
124// Polygonal Line
125$pdf->SetLineStyle(array('width' => 0.5, 'cap' => 'butt', 'join' => 'miter', 'dash' => 0, 'color' => array(0, 0, 164)));
126$pdf->PolyLine(array(80,165,90,160,100,165,110,160,120,165,130,160,140,165), 'D', array(), array());
127
128// Regular polygon
129$pdf->Text(5, 169, 'Regular polygon examples');
130$pdf->SetLineStyle($style5);
131$pdf->RegularPolygon(20, 190, 15, 6, 0, 1, 'F');
132$pdf->RegularPolygon(55, 190, 15, 6);
133$pdf->RegularPolygon(55, 190, 10, 6, 45, 0, 'DF', array($style6, 0, $style7, 0, $style7, $style7));
134$pdf->RegularPolygon(90, 190, 15, 3, 0, 1, 'DF', array('all' => $style5), array(200, 220, 200), 'F', array(255, 200, 200));
135$pdf->RegularPolygon(125, 190, 15, 4, 30, 1, null, array('all' => $style5), null, null, $style6);
136$pdf->RegularPolygon(160, 190, 15, 10);
137
138// Star polygon
139$pdf->Text(5, 209, 'Star polygon examples');
140$pdf->SetLineStyle($style5);
141$pdf->StarPolygon(20, 230, 15, 20, 3, 0, 1, 'F');
142$pdf->StarPolygon(55, 230, 15, 12, 5);
143$pdf->StarPolygon(55, 230, 7, 12, 5, 45, 0, 'DF', array('all' => $style7), array(220, 220, 200), 'F', array(255, 200, 200));
144$pdf->StarPolygon(90, 230, 15, 20, 6, 0, 1, 'DF', array('all' => $style5), array(220, 220, 200), 'F', array(255, 200, 200));
145$pdf->StarPolygon(125, 230, 15, 5, 2, 30, 1, null, array('all' => $style5), null, null, $style6);
146$pdf->StarPolygon(160, 230, 15, 10, 3);
147$pdf->StarPolygon(160, 230, 7, 50, 26);
148
149// Rounded rectangle
150$pdf->Text(5, 249, 'Rounded rectangle examples');
151$pdf->SetLineStyle(array('width' => 0.5, 'cap' => 'butt', 'join' => 'miter', 'dash' => 0, 'color' => array(0, 0, 0)));
152$pdf->RoundedRect(5, 255, 40, 30, 3.50, '1111', 'DF');
153$pdf->RoundedRect(50, 255, 40, 30, 6.50, '1000');
154$pdf->RoundedRect(95, 255, 40, 30, 10.0, '1111', null, $style6);
155$pdf->RoundedRect(140, 255, 40, 30, 8.0, '0101', 'DF', $style6, array(200, 200, 200));
156
157// Arrows
158$pdf->Text(185, 249, 'Arrows');
159$pdf->SetLineStyle($style5);
160$pdf->SetFillColor(255, 0, 0);
161$pdf->Arrow(200, 280, 185, 266, 0, 5, 15);
162$pdf->Arrow(200, 280, 190, 263, 1, 5, 15);
163$pdf->Arrow(200, 280, 195, 261, 2, 5, 15);
164$pdf->Arrow(200, 280, 200, 260, 3, 5, 15);
165
166// - . - . - . - . - . - . - . - . - . - . - . - . - . - . -
167
168// ellipse
169
170// add a page
171$pdf->AddPage();
172
173$pdf->Cell(0, 0, 'Arc of Ellipse');
174
175// center of ellipse
176$xc=100;
177$yc=100;
178
179// X Y axis
180$pdf->SetDrawColor(200, 200, 200);
181$pdf->Line($xc-50, $yc, $xc+50, $yc);
182$pdf->Line($xc, $yc-50, $xc, $yc+50);
183
184// ellipse axis
185$pdf->SetDrawColor(200, 220, 255);
186$pdf->Line($xc-50, $yc-50, $xc+50, $yc+50);
187$pdf->Line($xc-50, $yc+50, $xc+50, $yc-50);
188
189// ellipse
190$pdf->SetDrawColor(200, 255, 200);
191$pdf->Ellipse($xc, $yc, 30, 15, 45, 0, 360, 'D', array(), array(), 2);
192
193// ellipse arc
194$pdf->SetDrawColor(255, 0, 0);
195$pdf->Ellipse($xc, $yc, 30, 15, 45, 45, 90, 'D', array(), array(), 2);
196
197
198// ---------------------------------------------------------
199
200//Close and output PDF document
201$pdf->Output('example_012.pdf', 'I');
202
203//============================================================+
204// END OF FILE
205//============================================================+
Note: See TracBrowser for help on using the repository browser.