lmfaoI got into a car this evening I presumed to be my Uber. It wasn't. It took the driver a while to realise I'd been sitting there but when he did, he went completely fucking mental, just my luck getting into a violent psychopath's car by mistake...cunt.
#!/usr/bin/perl
use strict;
# PUBLIC DOMAIN 2016 Julie Kirsty Louise Montoya
my ($from_hex, $from_red, $from_green, $from_blue,
$to_hex, $to_red, $to_green, $to_blue,
$step, $steps, $hex, $red, $green, $blue,
$text, $sep, $letter);
$from_hex = shift;
die "Bad 'from' colour" unless $from_hex =~ /^[0-9a-fA-F]{6}$/;
$to_hex = shift;
die "Bad 'to' colour" unless $to_hex =~ /^[0-9a-fA-F]{6}$/;
$text = $sep = "";
while (@ARGV) {
$text .= $sep . shift;
$sep = " ";
};
$from_hex =~ /([0-9a-fA-F]{2})([0-9a-fA-F]{2})([0-9a-fA-F]{2})/;
$from_red = hex $1;
$from_green = hex $2;
$from_blue = hex $3;
$to_hex =~ /([0-9a-fA-F]{2})([0-9a-fA-F]{2})([0-9a-fA-F]{2})/;
$to_red = hex $1;
$to_green = hex $2;
$to_blue = hex $3;
print "\n";
$steps = length $text;
for ($step = 0; $step < $steps; ++$step) {
$red = $from_red + ($to_red - $from_red) * $step / ($steps - 1);
$green = $from_green + ($to_green - $from_green) * $step / ($steps - 1);
$blue = $from_blue + ($to_blue - $from_blue) * $step / ($steps - 1);
$letter = substr $text, $step, 1;
if ($letter eq " ") {
print " ";
}
else {
printf "[color=#%02x%02x%02x]%1s[/color]", $red, $green, $blue, $letter;
};
};
print "\n";
exit;
lmfao, did he deck you?
I'd do the same if some randomer just jumped in to me freaking car...
sprout said:in his mirror to check he was clear to reverse and had his gaze returned not by a cat-eye but a pinned pupil...![]()
I just knocked up a quick Perl script to do thisJust supply hex codes for starting and finishing colours and text .....Code:#!/usr/bin/perl use strict; # PUBLIC DOMAIN 2016 Julie Kirsty Louise Montoya my ($from_hex, $from_red, $from_green, $from_blue, $to_hex, $to_red, $to_green, $to_blue, $step, $steps, $hex, $red, $green, $blue, $text, $sep, $letter); $from_hex = shift; die "Bad 'from' colour" unless $from_hex =~ /^[0-9a-fA-F]{6}$/; $to_hex = shift; die "Bad 'to' colour" unless $to_hex =~ /^[0-9a-fA-F]{6}$/; $text = $sep = ""; while (@ARGV) { $text .= $sep . shift; $sep = " "; }; $from_hex =~ /([0-9a-fA-F]{2})([0-9a-fA-F]{2})([0-9a-fA-F]{2})/; $from_red = hex $1; $from_green = hex $2; $from_blue = hex $3; $to_hex =~ /([0-9a-fA-F]{2})([0-9a-fA-F]{2})([0-9a-fA-F]{2})/; $to_red = hex $1; $to_green = hex $2; $to_blue = hex $3; print "\n"; $steps = length $text; for ($step = 0; $step < $steps; ++$step) { $red = $from_red + ($to_red - $from_red) * $step / ($steps - 1); $green = $from_green + ($to_green - $from_green) * $step / ($steps - 1); $blue = $from_blue + ($to_blue - $from_blue) * $step / ($steps - 1); $letter = substr $text, $step, 1; if ($letter eq " ") { print " "; } else { printf "[color=#%02x%02x%02x]%1s[/color]", $red, $green, $blue, $letter; }; }; print "\n"; exit;
The output from the program is ready-to-paste BBCode.
Hydromorph is one of the few opioid big boys that lives up to its name - not in anyway sustainable though, it gives the PPD's a run for their money in the tolerance stakes.
The programming language required to produce this dangerous mind-altering text effect is is already installed on every Apple Mac and included in all popular Linux distributions. Truly the Work of the Devil!And to think, I've been relying on 'Cid all these years![]()
I have virtually no tolerance. 2 mg not only s great pain relief but I turn into a zombie.
for ($step = 0; $step < $steps; ++$step) {
$red = $step % 2 ? $to_red : $from_red;
$green = $step % 2 ? $to_green : $from_green;
$blue = $step % 2 ? $to_blue : $from_blue;
$letter = substr $text, $step, 1;
if ($letter eq " ") {
print " ";
}
else {
printf "[color=#%02x%02x%02x]%1s[/color]", $red, $green, $blue, $letter;
};
};
Where's my dunce hat and sandals of shame?