KingBushidonr.1
Bismarckapfel
- Registriert
- 08.10.09
- Beiträge
- 75
Man muss schließlich Ordnung haltenZeugs - und Müll
Man muss schließlich Ordnung haltenZeugs - und Müll
#!/usr/bin/perluse strict;use warnings;use Getopt::Long;package Screen;sub new { my ($class, $wx, $wy) = @_; my $self = {_wx => $wx, _wy => $wy, _data => [ ((' ') x $wx , "\n") x $wy ]}; bless $self, $class;}sub _index { my ($self, $x, $y) = @_; return $x + ($y * (1 + $self->{_wx}));}sub inbound { my ($self, $x, $y) = @_; return ($x >= 0 && $y >= 0 && $x < $self->{_wx} && $y < $self->{_wy});}sub set { my ($self, $x, $y, $v) = @_; return undef unless $self->inbound($x, $y); $self->{_data}->[$self->_index($x, $y)] = $v;}sub to_string { return join('', @{$_[0]->{_data}});}package main;use POSIX 'ceil';my $pi2 = 2 * atan2(0, -1);my ($wx, $wy) = @ARGV;my $breaker;while (! $breaker) { print "\n", anaclock($wx, $wy); sleep(1); $breaker++;}sub adjust {return ceil($_[0] - 1.5);}sub draw_circle { my ($screen, $cx, $cy, $rx, $ry, $c) = @_; my $radius = ($rx > $ry) ? $rx : $ry; my $step = abs(1 / ($radius * $pi2)); for (my $a = 0.0; $a < 2 * $pi2; $a += $step) { $screen->set(adjust($cx + $rx * cos($a)), adjust($cy + $ry * sin($a)), $c); }}sub draw_line { my ($screen, $ax, $ay, $bx, $by, $c) = @_; my ($dx, $dy) = ($bx - $ax, $by - $ay); my ($adx, $ady) = (abs($dx), abs($dy)); my $delta = ($adx > $ady) ? $adx : $ady; $dx /= $delta; $dy /= $delta; for (; $delta > 0; $ax += $dx, $ay += $dy, --$delta) { $screen->set(adjust($ax), adjust($ay), $c); }}sub anaclock { my $width = shift || 44; my $height = shift || 22; my ($rx, $ry) = ($width / 2, $height / 2); my ($cx, $cy) = (1 + $rx, 1 + $ry); my $screen = Screen->new($width + 1, $height + 1); draw_circle($screen, $cx, $cy, $rx, $ry, '.'); $rx *= 6/8; $ry *= 6/8; my ($sec, $min, $hour) = (localtime(time))[0 .. 2]; $sec *= $pi2 / 60; $min = ($min * $pi2 + $sec) / 60; $hour = (($hour % 12) * $pi2 + $min) / 12; draw_line($screen, $cx, $cy, $cx + $rx * sin($hour) * 2 / 3, $cy - $ry * cos($hour) * 2 / 3, '#'); draw_line($screen, $cx, $cy, $cx + $rx * sin($min), $cy - $ry * cos($min), '+'); return $screen->to_string();}
Ihr habt wirklich super Wallpaper bzw. Schreibtische
bin ein Mac Neuling und würde gerne so einige Sachen wissen wie ich mein Schreibtisch auch so gestallten kann...
Habe jetzt bei einigen Usern gesehen das dass Album cover inkl. Interpret auf dem Schreibtisch eingezeigt wird.
Wie kann ich das einstellen ?
Wir verwenden essentielle Cookies, damit diese Website funktioniert, und optionale Cookies, um den Komfort bei der Nutzung zu verbessern.
Für die Ihnen angezeigten Verarbeitungszwecke können Cookies, Geräte-Kennungen oder andere Informationen auf Ihrem Gerät gespeichert oder abgerufen werden.
Anzeigen und Inhalte können basierend auf einem Profil personalisiert werden. Es können mehr Daten hinzugefügt werden, um Anzeigen und Inhalte besser zu personalisieren. Die Performance von Anzeigen und Inhalten kann gemessen werden. Erkenntnisse über Zielgruppen, die die Anzeigen und Inhalte betrachtet haben, können abgeleitet werden. Daten können verwendet werden, um Benutzerfreundlichkeit, Systeme und Software aufzubauen oder zu verbessern.
Durch das Klicken des Buttons "Zustimmen" willigen Sie gem. Art. 49 Abs. 1 DSGVO ein, dass auch Anbieter in den USA Ihre Daten verarbeiten. In diesem Fall ist es möglich, dass die übermittelten Daten durch lokale Behörden verarbeitet werden.