vndb/yhdev
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Moved demos page to the code dump

Browse source 
No new developments in this area. :-(
This commit is contained in:
Yorhel 2011-06-03 09:16:38 +02:00
parent 9c351ed563
commit f534c91225
1 changed files with 43 additions and 46 deletions
Download patch file Download diff file Expand all files Collapse all files

89
index.cgi
View file

@ -17,8 +17,8 @@ TUWF::register(
qr{tuwf} => \&tuwf,
qr{tuwf/man(?:/(db|misc|request|response|xml))?}
=> \&tuwfmanual,
qr{demo} => \&demo,
qr{dump} => \&dump,
qr{demo} => \&dumpdemo,
qr{dump/awshrink} => \&dumpawshrink,
qr{dump/grenamr} => \&dumpgrenamr,
);
@ -260,50 +260,6 @@ sub tuwfmanual {
# D E M O S
sub demo {
my $s = shift;
$s->htmlHeader(title => 'Demos', page => 'demo');
p;
lit <<' E;';
Yes, I realise that the title is plural, suggesting there's more than one demo. That is
not quite true, unfortunately. The reason I chose to use plural form is simply in the
hopes that I do, in fact, write more demos, and that this page will actually get more
content in the future. I still happen to be a huge fan of the <a href="http://demoscene.info/">
demoscene</a>, and still wish to contribute to it... if only I could find the time and
self-discipline to do so. In the meanwhile, here's one demo I did write some time ago:
E;
end;
h2 'Blue Cubes';
img src => '/img/bluecubes.png', style => 'float: right', alt => 'Blue Cubes';
p;
lit <<' E;';
August 2006. My first demo - or more exact: intro. Blue Cubes is a 64kB intro written in
OpenGL/SDL with Linux as target OS. I wrote this intro within 10 days without any prior
experience in any of the fields of computer generated graphics or music. So needlessly to
say, it sucks. I am ashamed even of the thought of releasing it at a respectable demoparty
like <a href="http://www.evoke.eu/2006/">Evoke</a>. Still, it didn't feel I was unwelcome,
I did actually receive three prices: 3rd price in the 64k competition (there were only 3
actual entries, but oh well), best non-windows 64k intro (it was the only one in the
competition), and the Digitale Kultur newcomer award, which actually is something to be
proud of, I guess.
E;
br; br;
a href => '/download/yorhel~bluecubes.zip', 'download';
txt ' - ';
a href => 'http://scene.org/file.php?file=/parties/2006/evoke06/in64/yorhel_bluecubes.zip&fileinfo', 'mirror';
txt " (includes linux binaries, windows port, and sources)"; br;
a href => 'http://pouet.net/prod.php?which=25866', 'pouet'; txt ' - ';
a href => 'http://demoscene.tv/page.php?id=172&lang=uk&vsmaction=view_prod&id_prod=12653', 'demoscene.tv'; txt ' - ';
a href => 'http://demozoo.org/productions/32253', 'demozoo';
end;
$s->htmlFooter;
}
# C O D E D U M P
@ -377,6 +333,47 @@ sub dump {
}
sub dumpdemo {
my $s = shift;
$s->htmlHeader(title => 'Demos', page => 'dump', tab => 'demo');
p;
lit <<' E;';
Yes, I realise that the title is plural, suggesting there's more than one demo. That is
not quite true, unfortunately. The reason I chose to use plural form is simply in the
hopes that I do, in fact, write more demos, and that this page will actually get more
content in the future. I still happen to be a huge fan of the <a href="http://demoscene.info/">
demoscene</a>, and still wish to contribute to it... if only I could find the time and
self-discipline to do so. In the meanwhile, here's one demo I did write some time ago:
E;
end;
h2 'Blue Cubes';
img src => '/img/bluecubes.png', style => 'float: right', alt => 'Blue Cubes';
p;
lit <<' E;';
August 2006. My first demo - or more exact: intro. Blue Cubes is a 64kB intro written in
OpenGL/SDL with Linux as target OS. I wrote this intro within 10 days without any prior
experience in any of the fields of computer generated graphics or music. So needlessly to
say, it sucks. I am ashamed even of the thought of releasing it at a respectable demoparty
like <a href="http://www.evoke.eu/2006/">Evoke</a>. Still, it didn't feel I was unwelcome,
I did actually receive three prices: 3rd price in the 64k competition (there were only 3
actual entries, but oh well), best non-windows 64k intro (it was the only one in the
competition), and the Digitale Kultur newcomer award, which actually is something to be
proud of, I guess.
E;
br; br;
a href => '/download/yorhel~bluecubes.zip', 'download';
txt ' - ';
a href => 'http://scene.org/file.php?file=/parties/2006/evoke06/in64/yorhel_bluecubes.zip&fileinfo', 'mirror';
txt " (includes linux binaries, windows port, and sources)"; br;
a href => 'http://pouet.net/prod.php?which=25866', 'pouet'; txt ' - ';
a href => 'http://demoscene.tv/page.php?id=172&lang=uk&vsmaction=view_prod&id_prod=12653', 'demoscene.tv'; txt ' - ';
a href => 'http://demozoo.org/productions/32253', 'demozoo';
end;
$s->htmlFooter;
}
sub dumpawshrink {
my $s = shift;
$s->htmlHeader(title => 'AWStats data file shrinker', page => 'dump', tab => 'awshrink');
@ -573,7 +570,6 @@ sub htmlHeader {
a href => '/', !$o{page} ? (class => 'sel') : (), 'home'; txt ' ';
a href => '/ncdu', $o{page} eq 'ncdu' ? (class => 'sel') : (), 'ncdu'; txt ' ';
a href => '/tuwf', $o{page} eq 'tuwf' ? (class => 'sel') : (), 'tuwf'; txt ' ';
a href => '/demo', $o{page} eq 'demo' ? (class => 'sel') : (), 'demos'; txt ' ';
a href => '/dump', $o{page} eq 'dump' ? (class => 'sel') : (), 'code dump';
end;
if($o{page} eq 'ncdu') {
@ -593,6 +589,7 @@ sub htmlHeader {
if($o{page} eq 'dump') {
div id => 'mtabs';
a href => '/dump', !$o{tab} ? (class => 'sel') : (), 'misc'; txt ' ';
a href => '/demo', $o{tab} eq 'demo' ? (class => 'sel') : (), 'demos'; txt ' ';
a href => '/dump/awshrink', $o{tab} eq 'awshrink' ? (class => 'sel') : (), 'awshrink'; txt ' ';
a href => '/dump/grenamr', $o{tab} eq 'grenamr' ? (class => 'sel') : (), 'grenamr';
end;