|
Server : Apache/2.4.18 (Ubuntu) System : Linux canvaswebdesign 3.13.0-71-generic #114-Ubuntu SMP Tue Dec 1 02:34:22 UTC 2015 x86_64 User : oppastar ( 1041) PHP Version : 7.0.33-0ubuntu0.16.04.15 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, Directory : /var/www/jualakionline.com/public_html/application/third_party/dompdf/lib/ttf2ufm/src/other/ |
Upload File : |
#!/usr/bin/perl
#
# script to create HTML file with character table
# in plain, italic, bold, bold-italic
#
# see COPYRIGHT
#
# width of tables
$step=16;
# commands to enable and disable the font modes
# (the fastest changing is first)
@matrix = (
[ "Roman", "Italic", "</i>", "<i>" ],
[ "Medium", "Bold", "</b>", "<b>" ],
[ "Variable", "Fixed", "</tt>", "<tt>" ],
);
sub printall
{
local $i, $j;
printf("<table border=\"0\" >\n");
for($j=32; $j<256; $j+=$step) {
printf("<tr>\n");
for $i ($j..$j+$step-1) {
$c=chr($i);
if($c eq "<") {
$c="<";
} elsif($c eq ">") {
$c=">";
}
printf("<td><font color=\"gray\">%03d</font></td><td>\n", $i);
printf("<font color=\"white\">%s%s%s</font>\n", $enmode, $c, $dismode);
printf("</td>\n");
}
printf("</tr>\n");
}
printf("</table><p>\n");
}
printf("<HTML><HEAD></HEAD><BODY bgcolor=\"black\">\n<font color=\"white\"><p>\n");
for $mask (0.. (1<<@matrix)-1) {
#printf("<table><tr>");
$mode = $enmode = $dismode = "";
for $bit (0.. $#matrix) {
$val = ($mask >> $bit) & 1;
$mode = $matrix[$bit]->[$val] . "<br>" . $mode;
if( $val ) {
$enmode = $matrix[$bit]->[3] . $enmode;
$dismode = $dismode . $matrix[$bit]->[2];
}
#printf("=== %d %s %s %s\n", $val, $mode, $enmode, $dismode);
}
#printf("%x %s %s %s\n", $mask, $mode, $enmode, $dismode);
printf("<table border=\"0\"><tr><td>\n");
&printall();
printf("</td><td valign=top><font size=\"+1\" color=\"yellow\"><b>\n");
printf("%s\n", $mode);
printf("</b></font></td></tr></table>\n");
}
printf("</font></BODY></HTML>\n");