package Animation::Animation;

use feature "say";

use Image::Magick;
use Data::Dumper;
use Math::Trig;
use Tie::Cfg;
use File::Spec::Functions;

sub new
{
    my $class = shift;
    my $self = bless {arguments => shift}, $class;
    $self->setConfig();
    $self->setFrames();
    $self;
}

sub setConfig
{
    my $self = shift;
    my $path = $FindBin::Bin . "/config";
    tie my %global_config, "Tie::Cfg", READ=>$path, SEP=>"=";
    $self->{"global_config"} = \%global_config;
    if ($self->getOption("config"))
    {
	tie my %local_config, "Tie::Cfg", READ=>$self->getOption("config"), SEP=>"=";
	$self->{"local_config"} = \%local_config;
    }
}

sub setFrames
{
    my ($self, $frames) = @_;
    $self->{"frames"} = $frames;
}

sub getOption
{
    my ($self, $name, $section) = @_;
    my $arguments = $self->{"arguments"};
    my $local_config = $self->{"local_config"};
    my $global_config = $self->{"global_config"};
    my $value;
    if ($section)
    {
	$compound_name = "$section-$name";
	if (exists $arguments->{$compound_name})
	{
	    $value = $arguments->{$compound_name};
	}
	elsif ($local_config && exists $local_config->{$section}{$name})
	{
	    $value = $local_config->{$section}{$name};
	}
	elsif (exists $global_config->{$section}{$name})
	{
	    $value = $global_config->{$section}{$name};
	}
    }
    else
    {
	if (exists $arguments->{$name})
	{
	    $value = $arguments->{$name};
	}
	elsif ($local_config && exists $local_config->{$name})
	{
	    $value = $local_config->{$name};
	}
	elsif (exists $global_config->{$name})
	{
	    $value = $global_config->{$name};
	}
    }
    $value;
}

sub buildPoints
{
    my ($self, $shape, $radius, $cx, $cy, $rotation, $cross_angle, $cross_minor_radius_size) = @_;
    my @points;
    for ($shape)
    {
	if (/^star$/)
	{
	    @points = $self->buildStarPoints($radius, $cx, $cy, $rotation);
	}
	elsif (/^triangle$/)
	{
	    @points = $self->buildPolygonPoints(3, $radius, $cx, $cy, $rotation);
	}
	elsif (/^circle$/)
	{
	    @points = $self->buildCirclePoints($radius, $cx, $cy);
	}
	elsif (/^square$/)
	{
	    @points = $self->buildPolygonPoints(4, $radius, $cx, $cy, $rotation);
	}
	elsif (/^cross$/)
	{
	    @points = $self->buildCrossPoints($radius, $cross_angle, $cx, $cy, $rotation,
					      $cross_minor_radius_size);
	}
    }
    @points;
}

sub buildStarPoints
{
    my ($self, $radius, $cx, $cy, $rotation) = @_;
    my $count = 10;
    my $step = deg2rad(360 / $count);
    my @points;
    my ($len, $angle, $x, $y);
    for (0..$count - 1)
    {
	$len = $radius;
	if ($_ % 2)
	{
	    $len /= 2;
	}
	$angle = $rotation + $step * $_;
	push @points, [$self->getPointOnCircle($len, $angle, $cx, $cy)];
    }
    @points;
}

sub buildPolygonPoints
{
    my ($self, $sides, $radius, $cx, $cy, $rotation) = @_;
    my $step = deg2rad(360 / $sides);
    my @points;
    for (0..$sides - 1)
    {
	$angle = $rotation + $step * $_;
	push @points, [$self->getPointOnCircle($radius, $angle, $cx, $cy)];
    }
    @points;
}

sub buildCirclePoints
{
    my ($self, $radius, $cx, $cy) = @_;
    [$cx, $cy], [$cx, $cy + $radius];
}

sub buildCrossPoints
{
    my ($self, $radius, $angle, $cx, $cy, $rotation, $minor_radius_size) = @_;
    my @points;
    my $step = deg2rad(90);
    my ($x, $y, $offset, $minor_radius);
    for (0..3)
    {
	$offset = $step * $_;
	push @points, [$self->getPointOnCircle($radius, $rotation + $offset, $cx, $cy)];
	push @points, [$self->getPointOnCircle($radius, $rotation + $offset + $angle, $cx, $cy)];
	$minor_radius = sqrt((2 * (sin($angle * $minor_radius_size) * $radius)) ** 2);
	push @points, [$self->getPointOnCircle($minor_radius,
					       $rotation + $offset + $angle + ($step - $angle) / 2,
					       $cx, $cy)];
    }
    @points;
}

sub getPointOnCircle
{
    my ($self, $radius, $angle, $cx, $cy) = @_;
    my $x = $self->round(($radius * sin($angle)) + $cx);
    my $y = $self->round(($radius * cos($angle)) + $cy);
    $x, $y;
}

sub round
{
    int(@_[1] + .5);
}

sub getPrimitive
{
    @_[1] eq "circle" ? @_[1] : "polygon";
}

sub buildPointsString
{
    my $points = @_[1];
    my $str = "";
    my @point;
    for (0..$#{$points})
    {
	@point = @{${$points}[$_]};
	$str .= $point[0] . "," . $point[1] . " ";
    }
    $str;
}

sub getColor
{
    my ($self, $gradient, $index, $resolution) = @_;
    int(($index % $resolution + 1) * ($#{$gradient} + 1) / $resolution) - 1;
}

sub wrapIndex
{
    @_[1] % (@_[2] + 1);
}

sub readGradient
{
    my ($self, $name) = @_;
    my $gradient = Image::Magick->new;
    $gradient->read($self->findGradientFile($name));
    my @colors;
    for (0..$gradient->Get("width") - 1)
    {
	push @colors, $self->buildColorName($gradient->GetPixel(x=>$_, 'y'=>0, map=>'str',
								normalize=>"False"));
    }
    @colors;
}

sub findGradientFile
{
    my ($self, $name) = @_;
    my $section = "gradients";
    my $root = $FindBin::Bin . "/" . $self->getOption("root", "gradients");
    say "root: " . $root;
    for (glob $root . "*")
    {
	if (/$name\..*$/)
	{
	    return $_;
	}
    }
}

sub buildColorName
{
    "rgb(" . (@_[1] >> 8) . ", " . (@_[2] >> 8) . ", " . (@_[3] >> 8) . ")";
}

sub write
{
    my $self = shift;
    my $destination = $self->getDestination();
    my $frames = $self->{"frames"};
    if (!$self->getOption("split"))
    {
	$frames->Write($destination);
    }
    else
    {
	mkdir $destination;
	my $delay;
	for ($ii = 0; $frames->[$ii]; $ii++)
	{
	    $delay = $frames->[$ii]->Get("delay");
	    $frames->[$ii]->Write("$destination/$ii-$delay.png");
	}
    }
    say "wrote: $destination";
}

sub getDestination
{
    my $self = shift;
    my $root = $self->getOption("destination", "file");
    my $pad_length = $self->getOption("name-pad-length", "file");
    my $destination;
    if ($self->getOption("out"))
    {
	$destination = $self->getOption("out");
    }
    elsif (!$self->getOption("split"))
    {
	$destination = $self->buildPathPrefix($self->findSlot("$root/*.gif"));
	$destination .= ".gif";
    }
    else
    {
	$destination = $self->buildPathPrefix($self->findSlot("$root/*/"));
    }
    $destination;
}

sub findSlot
{
    my $self = shift;
    my @existing = glob shift;
    for (1..@existing)
    {
	$existing[$_ - 1] =~ /([0-9]+)/;
	if ($_ < int($1))
	{
	    return $_;
	}
    }
    @existing + 1;
}

sub buildPathPrefix
{
    my $self = shift;
    my $pad_length = $self->getOption("name_pad_length", "file");
    $self->getOption("destination", "file") . sprintf("%0${pad_length}d", shift);
}

1;
3.144.35.148
3.144.35.148
3.144.35.148
 
March 3, 2021♦

Video 📺

Computers are a gun. They can see the target; they can pull the trigger. Computers were made by the military to blow people's brains out if they stepped out of line. Google Coral is the same technology that pollutes the oceans, and so is the computer I'm using, and so are the platforms I'm using to post this.

Game 🎲

Games are a context in which all play is purposeful. Games expose the fundamentally nihilistic nature of the universe and futility of pursuing any path other than the inevitability of death and the torture of an evil that knows and exploits absolute freedom. Games are not educational; they are education.

Propaganda 🆒

Education is propaganda — ego driven by-product conveying nothing that would enable us to expose that vanities made for gain subject us further to an illusion created by those in control: the illusion that quantity can represent substance and that data or observation can replace meaning. And why say it, or how, without contradicting yourself, that everything, once registered, no longer exists, and in fact never did, exists only in relation to other non-existent things, and when you look, it's not there, not only because it's long vanished, but because where would it be?


fig. 2: Gamer goo is a lubricant — not for your skin, but for facilitating your ability to own the competition (image from Gamer goo review)

As a result of video games, the great Trojan horse 🎠 of imperialist consumerist representationalism, people are divided in halves to encourage them to act according to market ordained impulses, to feign assurance, penetrating themselves deeper into a tyranny from which every action signals allegiance, confusing the world with definitions and borders, constantly struggling to balance or brace themselves against forces that threaten the crumbling stability of their ego.

F

or example, a cup 🥃 is designed and built to hold something, maintain order and prevent chaos. It keeps water from spilling back to where it belongs, back where it wants to go and gravity wants it to go. The cup is a trap, and it is used to assert dominance over nature, to fill with thoughts about existence, time and self, thoughts regarding dissimilarity between equal parts and patterns that manifest in variation. These ruminations disguised as revelations boil away to reveal isolated and self-aggrandizing thoughts about an analogy fabricated to herald the profundity of one's campaign's propaganda. You have no authentic impulse except to feed a delusion of ultimate and final supremacy. That is why you play games. That is your nature. That is why you eventually smash the cup to bits 💥 or otherwise watch it disintegrate forever because it, by being useful, threatens your facade of ownership and control.


fig. 3: worth1000

The cup is you; it reflects you; it is a lens through which you see yourself; it reassures you, confirming your presence; it says something, being something you can observe. When you move, it moves, and it opens after being closed. You can use it as a vessel for penetration fantasies, keeping you warm and fertile, a fine host for the plague of consciousness, you reptile, you sun scorched transgressor that not only bites the hand that feeds, but buries it deep within a sterile chamber where nothing remains for it as a means of escape except the corpses of others that infringed upon your feeding frenzy.