WxPerl: Pixel färben schnell gemacht - #142823 (Graphische Oberflächen)

lichtkind

2010-11-17 17:49

User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn

habs nur etwas in zeile 41 kompakter geschrieben:

Code (perl): (dl )

1
2
3

        $data .= ${$punkt[$i]}[$j] < 51
                ? pack('C3',0,5*${$punkt[$i]}[$j],5*${$punkt[$i]}[$j])
                : pack('C3',0,255,255) ;

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.