Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Sonnet
Message
 
 
À
22/03/2006 07:37:58
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Re: Sonnet
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Network:
Windows 2000 Server
Database:
Visual FoxPro
Divers
Thread ID:
01106558
Message ID:
01106606
Vues:
20
>// Sonnet 18: Shall I compare thee to a summer's day?
>// by William Shakespeare
>// ported to ActionScript 2.0 by Satori Canton - ActionScript.com
>//
>// entered in the 2006 Turdhead ActionScript Poetry contest
>//
>// Original poem can be viewed at:
>// http://plagiarist.com/poetry/915/
>
>
>var summer:Object = {};
>var thee:Object = {};
>
>summer.name = "Summer Day";
>thee.name = "Thee";
>
>summer.lovelyness = 9;
>thee.lovelyness = 10;
>
>summer.temperature = 98;
>thee.temperature = 98.6;
>
>summer.lease = new Date(2006, 7, 31).getTime() - new Date(2006, 5, 1).getTime();
>thee.lease = new Date(2042, 6, 12).getTime() - new Date(1970, 8, 25).getTime();
>
>summer.complexion = 0xFFCC33;
>thee.complexion = 0xFFCCCC;
>
>summer.fair = 10;
>thee.fair = 10;
>
>summer.getValue = function():Number {
> return --this.fair;
>};
>thee.getValue = function():Number {
> return this.fair;
>};
>
>summer.incrementTime = function():Number {
> return --this.lease;
>};
>thee.incrementTime = function():Number {
> return this.lease;
>};
>
>var man:Object = {};
>man.hasEyes = true;
>man.canBreathe = true;
>man.lease = 10000;
>man.liveLong = function():Void {
> this.lease *= 10;
>};
>man.giveLife = function(o:Object):Void {
> o.lease++;
> trace(o.name + " is given life");
>};
>man.compare = function(o1:Object, o2:Object):Void {
> if (this.canBreathe && this.hasEyes) {
> this.liveLong();
> var n1:Number = 0;
> var n2:Number = 0;
> var o1isBetter:Boolean;
> for (var i in o1) {
> if (typeof (o1[i]) == "function") {
> o1isBetter = o1[i]() > o2[i]() ? true : false;
> } else {
> o1isBetter = o1[i] > o2[i] ? true : false;
> }
> n1 += Number(o1isBetter);
> n2 += Number(!o1isBetter);
> }
> this.giveLife(n1 > n2 ? o1 : o2);
> }
>};
>
>man.compare(summer, thee);

Or, thee, removed the soul and breath from precious jewel
And generated such disastrous program!
Who on Earth can bear the livelty of poetry worn in the Iron stove of digits?...
If it's not broken, fix it until it is.


My Blog
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform