#!/usr/local/bin/perl5
chdir
(
't'
);
print
"1..1\n"
;
my
$p
= Tk::SlideShow->init(1024,768);
$p
->save;
my
(
$mw
,
$c
,
$h
,
$w
) = (
$p
->mw,
$p
->canvas,
$p
->h,
$p
->w);
sub
compuman {
my
$s
=
$p
->newSprite(
shift
);
my
$id
=
$s
->id;
my
@o1
= (-width ,4,-fill,
'black'
, -tags ,
$id
);
my
@o2
= (-fill,
'blue'
, -tags ,
$id
);
my
@o3
= (-width ,4,-fill,
'red'
, -tags ,
$id
);
$c
->createLine(
qw(10 20 10 40 25 40 25 50)
,
@o1
);
$c
->createLine(
qw(15 15 15 35 30 35 30 50 35 50)
,
@o1
);
$c
->createOval(
qw(11 11 18 18)
,
@o2
);
$c
->createLine(
qw(15 25 30 25)
,
@o1
);
$c
->createLine(
qw(30 27 40 22)
,
@o3
);
$c
->createPolygon(
qw(35 20 40 0 55 10 55 20)
,
@o3
);
$c
->createLine(
qw(45 20 45 30 35 30 35 30)
,
@o3
);
$s
->pan(1);
return
$s
;
}
$p
->add(
'sprite'
,
sub
{
$p
->Text(
'text'
,
'Text Sprite'
,-font,
$p
->f3);
$p
->Image(
'image'
,
'Xcamel.gif'
);
$p
->Image(
'i2'
,
'eq1.gif'
);
$p
->newLink(
$p
->Anim(
'anim'
,
'anim.gif'
),
$p
->Oval(
'oval'
,-width,4,-outline,
'orange'
));
$p
->newArrow(
'text'
,
'i2'
);
for
(1..10) {compuman(
"gus$_"
);}
$p
->load ;
print
"ok 1\n"
;
});
$p
->current(
$_
[0] || 0);
if
(
@ARGV
) {
$p
->play;
}
else
{
$p
->play(1);
}