Gentoo Forums :: View topic - cool perl script for random tints w/ aterm (8 lines)

cool perl script for random tints w/ aterm (8 lines)

View unanswered posts
View posts from last 24 hours
View posts from last 7 days

Gentoo Forums Forum Index

Desktop Environments

View previous topic :: View next topic

Author

Message

destatnj2
n00b
n00b

Joined: 26 Oct 2002
Posts: 4

Posted: Sat Nov 02, 2002 11:04 am Post subject: cool perl script for random tints w/ aterm (8 lines)

Here's a nice little script that will choose a random tint color each time you run aterm.

Code:

#!/usr/bin/perl -w
use strict;

my @color = qw(green blue yellow magenta);

exec 'aterm',
qw(-bg black -fg white -vb -sl 1500 -fn 8x13 -geometry 105x48 +sb -bw 0 -tr),
-tint => $color[rand @color];

have fun!
_________________
<insert clever text here>

Display posts from previous:

	Gentoo Forums Forum Index Desktop Environments	All times are GMT
Page 1 of 1

Jump to:

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

Copyright 2001-2024 Gentoo Foundation, Inc. Designed by Kyle Manna © 2003; Style derived from original subSilver theme. | Hosting by Gossamer Threads Inc. © | Powered by phpBB 2.0.23-gentoo-p11 © 2001, 2002 phpBB Group
Privacy Policy