| Server IP : 127.0.0.2 / Your IP : 18.191.37.16 Web Server : Apache/2.4.18 (Ubuntu) System : User : www-data ( ) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : disk_free_space,disk_total_space,diskfreespace,dl,exec,fpaththru,getmyuid,getmypid,highlight_file,ignore_user_abord,leak,listen,link,opcache_get_configuration,opcache_get_status,passthru,pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,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,php_uname,phpinfo,posix_ctermid,posix_getcwd,posix_getegid,posix_geteuid,posix_getgid,posix_getgrgid,posix_getgrnam,posix_getgroups,posix_getlogin,posix_getpgid,posix_getpgrp,posix_getpid,posix,_getppid,posix_getpwnam,posix_getpwuid,posix_getrlimit,posix_getsid,posix_getuid,posix_isatty,posix_kill,posix_mkfifo,posix_setegid,posix_seteuid,posix_setgid,posix_setpgid,posix_setsid,posix_setuid,posix_times,posix_ttyname,posix_uname,pclose,popen,proc_open,proc_close,proc_get_status,proc_nice,proc_terminate,shell_exec,source,show_source,system,virtual MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/graphviz/lefty/ |
Upload File : |
load ('def.lefty');
definit ();
#
# initialize window data
#
canvas = defcanvas;
wrect = [0 = ['x' = 0; 'y' = 0;]; 1 = ['x' = 800; 'y' = 1000;];];
lmargin = 100;
width = 800;
height = 1000;
setwidgetattr (canvas, ['window' = wrect;]);
fonts = [
'timr' = [
14 = 'timr14';
18 = 'timr18';
24 = 'timr24';
];
'courr' = [
14 = 'courr14';
18 = 'courr18';
24 = 'courr24';
];
];
x2ps = [
'timr24' = 'Times-Roman';
'timr18' = 'Times-Roman';
'timr14' = 'Times-Roman';
'courr24' = 'Courier';
'courr18' = 'Courier';
'courr14' = 'Courier';
];
calc = function () {
local i, j, cpos, tsiz, dist, slidep;
tsiz = ['x' = 0; 'y' = 0;];
for (i = 0; slides[i]; i = i + 1) {
slidep = slides[i];
if (slidep.skip) {
tsiz.y = tsiz.y + slidep.skip;
} else {
for (j = 0; slidep.text[j]; j = j + 1) {
if (j > 0)
tsiz.y = tsiz.y + 5;
if (~slidep.font)
slidep.font = slides.font;
if (~slidep.size)
slidep.size = slides.size;
if (~slidep.just)
slidep.just = slides.just;
slidep.tsiz[j] = textsize (canvas, slidep.text[j],
fonts[slidep.font][slidep.size], 0);
tsiz.y = tsiz.y + slidep.tsiz[j].y;
}
}
}
dist = (height - tsiz.y) / (i + 1);
cpos = ['x' = lmargin; 'y' = height - dist;];
for (i = 0; slides[i]; i = i + 1) {
slidep = slides[i];
if (slidep.skip) {
cpos.y = cpos.y - slidep.skip - dist;
} else {
for (j = 0; slidep.text[j]; j = j + 1) {
if (j > 0)
cpos.y = cpos.y - 5;
if (slidep.just == 0)
slidep.tpos[j].x = cpos.x;
else
slidep.tpos[j].x = width / 2;
cpos.y = cpos.y - slidep.tsiz[j].y;
slidep.tpos[j].y = cpos.y;
}
cpos.y = cpos.y - dist;
}
}
};
redraw = function () {
local i, j, slidep;
for (i = 0; slides[i]; i = i + 1) {
slidep = slides[i];
if (~slidep.skip)
for (j = 0; slidep.text[j]; j = j + 1)
text (canvas, slidep, slidep.tpos[j], slidep.text[j],
fonts[slidep.font][slidep.size], 0, slidep.just);
}
};
dops = function () {
local i, j, slidep, r;
r = [0 = ['x' = 0; 'y' = 0;]; 1 = ['x' = 8 * 300; 'y' = 10.5 * 300;];];
canvas = createwidget (-1, ['type' = 'ps'; 'origin' = r[0]; 'size' = r[1]
;]);
setwidgetattr (canvas, ['window' = wrect;]);
for (i = 0; slides[i]; i = i + 1) {
slidep = slides[i];
if (~slidep.skip)
for (j = 0; slidep.text[j]; j = j + 1)
text (canvas, slidep, slidep.tpos[j], slidep.text[j],
x2ps[fonts[slidep.font][slidep.size]],
slidep.tsiz[j].y, slidep.just, 1);
}
destroywidget (canvas);
canvas=defcanvas;
};
doit = function () {
calc ();
redraw ();
dops ();
};