add the GD example

Author: tealang

.gitignore

@@ -0,0 +1 @@
+tmp/*

builtin/core.tea

@@ -11,6 +11,7 @@ public NL = "\n"
 #php empty(expr Any) Bool
 #php var_dump(expr0 Any, expr1 Any = #default, expr2 Any = #default, expr3 Any = #default)
 #php print_r(expr, is_return Bool = #default)
+#php header(info String, replace = true, http_response_code Int = #default)
 
 // php builtin constants
 #php __DIR__ String
@@ -34,6 +35,7 @@ public NL = "\n"
 #php ErrorException: Exception {}
 
 // file
+#php file_exists(filename String) Bool
 #php dirname(path String, levels UInt = #default) String
 #php basename(path String, suffix String = #default) String
 #php realpath(path String) String

dist/examples/__public.th

@@ -4,6 +4,26 @@
 
 public M_PI Float
 
+#php imagecreatetruecolor(width Int, height Int) Any
+
+#php imagecolorallocatealpha(image Any, r Int, g Int, b Int, a Int) Int
+
+#php imagefill(image Any, x Int, y Int, color Int) Bool
+
+#php imagerotate(image Any, angle Float, background_color Int) Any
+
+#php imagesx(image Any) Int
+
+#php imagesy(image Any) Int
+
+#php imagettfbbox(size Float, angle Float, fontfile String, text String) Int.Array
+
+#php imagettftext(image Any, size Float, angle Float, x Int, y Int, color Int, fontfile String, text String) Int.Array
+
+#php imagepng(image Any, to String = none, quality Int = -1, filters Int = #default) Bool
+
+#php imagedestroy(image Any)
+
 #php PDOStatement {
 	fetch(fetch_style Int = #default) String.Dict
 	fetchAll(fetch_style Int = #default) String.Dict.Array

dist/examples/gd.php

@@ -0,0 +1,62 @@
+<?php
+namespace tea\examples;
+
+require_once __DIR__ . '/__unit.php';
+
+// ---------
+$tmp_path = dirname(__DIR__, 2) . '/tmp/';
+$fontfile = $tmp_path . 'SourceHanSansSC-Regular.otf';
+if (!file_exists($fontfile)) {
+	echo "The font file '{$fontfile}' not found.\nPlease download it and put to path {$fontfile}", NL;
+	exit;
+}
+
+$w = 629;
+$h = $w;
+$im = imagecreatetruecolor($w, $h);
+
+$black = imagecolorallocatealpha($im, 0, 0, 0, 0);
+$non_color = imagecolorallocatealpha($im, 0, 0, 0, 127);
+$red = imagecolorallocatealpha($im, 255, 0, 0, 0);
+
+imagefill($im, 0, 0, $red);
+
+$im = imagerotate($im, 45, $non_color);
+$w = imagesx($im);
+$h = imagesy($im);
+
+$size = 310;
+$angle = 0;
+$text = '春';
+$bbox = imagettfbbox($size, $angle, $fontfile, $text);
+$dx = $bbox[2] + $bbox[0];
+$dy = (int)abs($bbox[5] + $bbox[1]);
+imagettftext($im, $size, $angle, intval((($w - $dx) / 2)), $dy + intval((($h - $dy) / 2)), $black, $fontfile, $text);
+
+$size = 30;
+$text = '新春快乐';
+$bbox = imagettfbbox($size, 0, $fontfile, $text);
+$dx = $bbox[2] + $bbox[0];
+$dy = (int)abs($bbox[5] + $bbox[1]);
+imagettftext($im, $size, 0, intval((($w - $dx) / 2)), $h - $dy - 130, $black, $fontfile, $text);
+
+$size = 10;
+$text = 'tealang';
+$bbox = imagettfbbox($size, 0, $fontfile, $text);
+$dx = $bbox[2] + $bbox[0];
+$dy = (int)abs($bbox[5] + $bbox[1]);
+imagettftext($im, $size, 0, intval((($w - $dx) / 2)), $h - $dy - 100, $black, $fontfile, $text);
+
+$target_file = $tmp_path . 'chun.png';
+$result = imagepng($im, $target_file);
+imagedestroy($im);
+
+if ($result) {
+	echo 'Image ' . $target_file . ' generated.', NL;
+}
+else {
+	echo 'Image ' . $target_file . ' generate failure.', NL;
+}
+// ---------
+
+// program end

examples/gd.tea

@@ -0,0 +1,70 @@
+#main
+
+#php imagecreatetruecolor(width Int, height Int) Any
+#php imagecolorallocatealpha(image, r Int, g Int, b Int, a Int) Int
+#php imagefill(image, x Int, y Int, color Int) Bool
+#php imagerotate(image, angle Float, background_color Int) Any
+#php imagesx(image) Int
+#php imagesy(image) Int
+#php imagettfbbox(size Float, angle Float, fontfile String, text String) Int.Array
+#php imagettftext(image, size Float, angle Float, x Int, y Int, color Int, fontfile String, text String) Int.Array
+#php imagepng(image, to String = none, quality = -1, filters Int = #default) Bool
+#php imagedestroy(image)
+
+var tmp_path = dirname(__DIR__, 2) concat '/tmp/'
+var fontfile = tmp_path concat 'SourceHanSansSC-Regular.otf'
+if not file_exists(fontfile) {
+	echo "The font file '$fontfile' not found.\nPlease download it and put to path $fontfile"
+	exit
+}
+
+var w Int = 629
+var h = w
+var im = imagecreatetruecolor(w, h)
+
+var black = imagecolorallocatealpha(im, 0, 0, 0, 0)
+var non_color = imagecolorallocatealpha(im, 0, 0, 0, 127)
+var red = imagecolorallocatealpha(im, 255, 0, 0, 0)
+
+imagefill(im, 0, 0, red)
+
+im = imagerotate(im, 45, non_color)
+w = imagesx(im)
+h = imagesy(im)
+
+// the main text
+var size = 310
+var angle = 0
+var text = '春'
+var bbox = imagettfbbox(size, angle, fontfile, text)
+var dx = bbox[2] + bbox[0]
+var dy = abs(bbox[5] + bbox[1]) as Int
+imagettftext(im, size, angle, ((w - dx) / 2).int(), dy + ((h - dy) / 2).int(), black, fontfile, text)
+
+// the subtext
+size = 30
+text = '新春快乐'
+bbox = imagettfbbox(size, 0, fontfile, text)
+dx = bbox[2] + bbox[0]
+dy = abs(bbox[5] + bbox[1]) as Int
+imagettftext(im, size, 0, ((w - dx) / 2).int(), h - dy - 130, black, fontfile, text)
+
+// the creator
+size = 10
+text = 'tealang'
+bbox = imagettfbbox(size, 0, fontfile, text)
+dx = bbox[2] + bbox[0]
+dy = abs(bbox[5] + bbox[1]) as Int
+imagettftext(im, size, 0, ((w - dx) / 2).int(), h - dy - 100, black, fontfile, text)
+
+var target_file = tmp_path concat 'chun.png'
+result = imagepng(im, target_file)
+imagedestroy(im)
+
+if result {
+	echo 'Image $target_file generated.'
+}
+else {
+	echo 'Image $target_file generate failure.'
+}
+

tmp/README.md

@@ -0,0 +1 @@
+# The temporary directory