Tnx Olecam.
I've done some minor changes to the Windows code.
Putting the system("cls") just before the print gives a better flicker-free image.
And because system("cls") has more chr's than `clear` some frames (for example the 5th frame) are not self-replicating because the output code is incomplete. So I've decreased the radius of the spiral a bit so all the code fit's
in it....
#!/usr/bin/perl
$_='
$q= "\4 7"
;wh ile($;=$z+=.5 ){ %c
=$r =0;$/="";while( 21+$ z> (
$; +=.05)) {$c{i nt $ _+
26 +2*( $r+=. 0 1
9 )*s in $; }{1
- $_ +10+int$r*c os$; }=1
f or(0..1)}$t=re v e r s
e; $/. =`cl s` ."
#! /u sr /bi n/ pe
rl \n\ $_=$q\n" ;f or
$y (1. .20){ $c {$
_ } { $y }? $
/.= chop$ t:( $/
. ="\4 0")for( 0..53 );
$ /.=" \n"}system("cls ")
;p ri nt "$/$q;s ;".
c h r(92) ."s;
; g; eva l\n" }
';s;\s;;g;eval
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|