source: libcaca/trunk/caca-php/examples/export.php @ 3243

Last change on this file since 3243 was 3242, checked in by bsittler, 12 years ago

typo

  • Property svn:executable set to *
  • Property svn:keywords set to Id
File size: 4.2 KB
RevLine 
[3239]1#!/usr/bin/php5
2<?php
[622]3/*
[2821]4 *  export        libcaca export test program
[3239]5 *  Copyright (c) 2008 Benjamin C. Wiley Sittler <bsittler@gmail.com>
6 *
7 *  This file is a Php port of "examples/export.c"
8 *  which is:
[622]9 *  Copyright (c) 2006 Sam Hocevar <sam@zoy.org>
10 *                All Rights Reserved
11 *
12 *  $Id: export.php 3242 2008-11-03 20:01:20Z bsittler $
13 *
[1462]14 *  This program is free software. It comes without any warranty, to
[1452]15 *  the extent permitted by applicable law. You can redistribute it
16 *  and/or modify it under the terms of the Do What The Fuck You Want
17 *  To Public License, Version 2, as published by Sam Hocevar. See
[622]18 *  http://sam.zoy.org/wtfpl/COPYING for more details.
19 */
20
[3239]21if (php_sapi_name() != "cli") {
22    die("You have to run this program with php-cli!\n");
23}
[622]24
[3239]25define('WIDTH', 80);
26define('HEIGHT', 32);
[622]27
[3239]28$pixels = imagecreatetruecolor(256, 256);
[622]29
[3239]30$exports = caca_get_export_list();
[622]31
[3239]32if($argc < 2 || $argc > 3)
33{
34    $msg = ($argv[0] . ": wrong argument count\n" .
35            "usage: " . $argv[0] . " [file] <format>\n" .
36            "where <format> is one of:\n");
37    foreach($exports as $format => $name)
38        $msg .= " \"" . $name . "\" (" . $format . ")\n";
39    die($msg);
40}
[622]41
[3239]42if($argc == 2)
[622]43{
[3239]44    $file = NULL;
45    $format = $argv[1];
46}
47else
48{
49    $file = $argv[1];
50    $format = $argv[2];
51}
[622]52
[3239]53if(! array_key_exists($format, $exports))
54{
[3242]55    $msg = ($argv[0] . ": unknown format `" . $format . "'\n" .
[3239]56            "please use one of:\n");
57    foreach($exports as $format => $name)
58        $msg .= " \"" . $name . "\" (" . $format . ")\n";
59    die($msg);
60}
[788]61
[3239]62if($file)
63{
64    $cv = caca_create_canvas(0, 0);
65    if(caca_import_file($cv, $file, "") < 0)
[622]66    {
[3239]67        die($argv[0] . ": `" . $file . "' has unknown $format\n");
[622]68    }
[3239]69}
70else
71{
72    $cv = caca_create_canvas(WIDTH, HEIGHT);
[622]73
[3239]74    for($y = 0; $y < 256; $y++)
[919]75    {
[3239]76        for($x = 0; $x < 256; $x++)
[622]77        {
[3239]78            $r = $x;
79            $g = (255 - $y + $x) / 2;
80            $b = $y * (255 - $x) / 256;
81            imagesetpixel($pixels, $x, $y, imagecolorallocate($pixels, $r, $g, $b));
[919]82        }
[622]83    }
84
[3239]85    $dither = caca_create_dither($pixels);
86    if(($format == "ansi") || ($format == "utf8"))
87        caca_set_dither_charset($dither, "shades");
88    caca_dither_bitmap($cv, 0, 0, caca_get_canvas_width($cv),
89                       caca_get_canvas_height($cv), $dither, $pixels);
[622]90
[3239]91    caca_set_color_ansi($cv, CACA_WHITE, CACA_BLACK);
92    caca_draw_thin_box($cv, 0, 0, WIDTH - 1, HEIGHT - 1);
[622]93
[3239]94    caca_set_color_ansi($cv, CACA_BLACK, CACA_WHITE);
95    caca_fill_ellipse($cv, WIDTH / 2, HEIGHT / 2,
96                      WIDTH / 4, HEIGHT / 4, ord(' '));
[622]97
[3239]98    caca_set_color_ansi($cv, CACA_LIGHTGRAY, CACA_BLACK);
99    caca_put_str($cv, WIDTH / 2 - 12, HEIGHT / 2 - 6,
100                 "   lightgray on black   ");
101    caca_set_color_ansi($cv, CACA_DEFAULT, CACA_TRANSPARENT);
102    caca_put_str($cv, WIDTH / 2 - 12, HEIGHT / 2 - 5,
103                 " default on transparent ");
104    caca_set_color_ansi($cv, CACA_BLACK, CACA_WHITE);
105    caca_put_str($cv, WIDTH / 2 - 12, HEIGHT / 2 - 4,
106                 "     black on white     ");
[1417]107
[3239]108    caca_set_color_ansi($cv, CACA_BLACK, CACA_WHITE);
109    caca_put_str($cv, WIDTH / 2 - 8, HEIGHT / 2 - 3, "[<><><><> <>--<>]");
110    caca_put_str($cv, WIDTH / 2 - 8, HEIGHT / 2 - 2, "[ドラゴン ボーレ]");
111    caca_put_str($cv, WIDTH / 2 - 7, HEIGHT / 2 + 2, "äβç ░▒▓█▓▒░ ΔЗҒ");
112    caca_put_str($cv, WIDTH / 2 - 5, HEIGHT / 2 + 4, "(\") \\o/ <&>");
[1417]113
[3239]114    caca_set_attr($cv, CACA_BOLD, CACA_DEFAULT);
115    caca_put_str($cv, WIDTH / 2 - 16, HEIGHT / 2 + 3, "Bold");
116    caca_set_attr($cv, CACA_BLINK, CACA_DEFAULT);
117    caca_put_str($cv, WIDTH / 2 - 9, HEIGHT / 2 + 3, "Blink");
118    caca_set_attr($cv, CACA_ITALICS, CACA_DEFAULT);
119    caca_put_str($cv, WIDTH / 2 - 1, HEIGHT / 2 + 3, "Italics");
120    caca_set_attr($cv, CACA_UNDERLINE, CACA_DEFAULT);
121    caca_put_str($cv, WIDTH / 2 + 8, HEIGHT / 2 + 3, "Underline");
122    caca_set_attr($cv, 0, CACA_DEFAULT);
[622]123
[3239]124    caca_set_color_ansi($cv, CACA_WHITE, CACA_LIGHTBLUE);
125    caca_put_str($cv, WIDTH / 2 - 7, HEIGHT / 2, "    LIBCACA    ");
[1263]126
[3239]127    for($x = 0; $x < 16; $x++)
128    {
129        caca_set_color_argb($cv, 0xff00 | $x, 0xf00f | ($x << 4));
130        caca_put_char($cv, WIDTH / 2 - 7 + $x, HEIGHT / 2 + 6, ord('#'));
[788]131    }
[3239]132}
[788]133
[3239]134echo caca_export_string($cv, $format);
[622]135
[3239]136?>
Note: See TracBrowser for help on using the repository browser.