Zufallsfrosch; Inspirationsquelle fuer Please login to see this link.
Eher nicht 
Die Idee eines RANDOM results auf das man im Zweifel beliebig lange warten muss gibt es quasi bei jeder Compo.
Meist wird genau das mit 'endlicher Ausfuehrungszeit' explizit verhindert. Neu ist, dass es jemand auch wirklich konsquent durchfuehrt und noch dazu soweit optimiert dass es NICHT auf Zufall + Warten hinauslaeuft.
Auch nicht wirklich neu, wenn man sich Unseens Signatur ansieht
Da der Ansatz ja doch ein wenig anders ist, ein paar Worte dazu
Mir ging es schon darum eine sagen wir mal kompakte Loesung zu generieren, aber dabei mit BASIC selbst zu arbeiten.
Also READ, DATA statt REM und auch Daten in Strings wollte ich nicht. Da ist was Optimierung angeht noch Luft nach oben.
Insgesamt liess sich diese Version aber SEHR schnell programmieren - das war mir wichtig, hehe.
Ich nutze aus, dass der Frosch bis auf den oberen Teil der Pupille symmetrisch ist (das spart kaum Platz, eher im Gegenteil, gefiel mir aber)
Dann habe ich von Hand 'gezeichnet':
von der Mitte ausgehend: start, ende, Farbe, Zeile, flag
In dieser Reihenfolge wird auch gezeichnet.
0 1 5 2 0
0 1 5 3 0
0 4 5 4 0
0 5 5 5 0
0 5 5 6 0
0 5 5 7 0
0 4 0 8 0
0 4 5 9 0
0 4 5 10 0
0 3 5 11 0
0 3 5 12 0
0 3 5 13 0
#feet green
0 5 5 14 0
0 5 5 15 0
0 5 5 16 0
#belly
0 0 1 12 0
0 1 1 13 0
0 1 1 14 0
Please login to see this link. feet
3 4 6 14 0
3 3 6 15 0
5 5 6 15 0
0 1 6 15 0
0 1 6 16 0
#eyes
2 3 1 0 0
1 4 1 1 0
1 4 1 2 0
1 4 1 3 0
2 3 1 4 0
#eyes black
2 3 0 2 0
2 3 0 3 0
3 3 0 1 1
Aus den 5 Bytes mache ich wie folgt zwei:
a=end*16+color+flag*128
b=zeile*8+start
a,b liegen in DATA und werden gelesen. Dann wird von offset+start bis offset+ende in der passenden Farbe links und rechts vom offset geplottet.
Das Flag (welches ich nur in der letzten Zeile benutze) verschiebt einfach die Mitte um 2 chars, so dass auch die Pupille oben noch symmetrisch gezeichnet werden kann, nur eben symmetrisch um eine andere Mitte
Man kann den Code eigentlich ganz gut lesen noch. Durch den Vergleich mit 11 wird ueberprueft ob das letzte Byte schon gelesen wurde. Also ein sauberes Ende.
Das hier ist das gesamte Programm in zwei (etwas langen) Zeilen:
0 reada,b:forc=(band7)*2to(a/8+1)and15:d=1264+int(b/8)*40+20:poked-c-1,160:poked+c,160:e=d+54272:pokee-c-1-(a>2^7)*2,(aand7):pokee+c,(aand7):next:ifb<>11goto0
1 data 21,16,21,24,69,32,85,40,85,48,85,56,64,64,69,72,69,80,53,88,53,96,53,104,85,112,85,120,85,128,1,96,17,104,17,112,70,115,54,123,86,125,22,120,22,128,49,2,65,9,65,17,65,25,49,34,48,18,48,26,176,11
Ich zeichne symmetrisch und die Farben einzeln. Auch die Pupille symmetrisch übrigens 
Ohje,
das hatte ich THeRealWanderer geschickt
Und sogar drueber unterhalten.
Ups
Es war nur schnell zusammengestrickt und konkuriert schwerlich hier...
Ich schick's Dir aber auch wenn ich da nichts mehr dran gemacht habe.
Ich hatte ziemlich am Anfang eine gesendet.
Muesste ich schauen wo ich die nun habe.
Der eher langsame, nicht allzu kleine 2 Zeiler
Was den Hintergrund angeht ist das natürlich subjektiv.
'random' geht, grün eher nicht, was? 
naja. 'auf dem C64' war das ja nicht.
Wieso hat der braune Frosch weniger Byte als der gruene Frosch? Das wuerde mich jetzt schon mal interessieren
dann passen alle Farben in 2 bits.
Bei mit wird's gespiegelt - wenn schon, denn schon.
Kein Hexenwerk, aber es tut in 331 Bytes
