dreiecke in bildern programmieren ?

Wenn du dir nicht sicher bist, in welchem der anderen Foren du die Frage stellen sollst, dann bist du hier im Forum für allgemeine Fragen sicher richtig.
Antworten
kloed
User
Beiträge: 8
Registriert: Sonntag 29. April 2012, 22:12

danke schön ! :)

ich habe es jetzt endlich hinbekommen juhuuu!
BlackJack

@kloed: Glückwunsch! :-)

Ich hatte das zwischenzeitlich mal in Forth implementiert:

Code: Alles auswählen

\ Flag of the Bahamas as PPM.

800 constant width
width 2/  constant height

: black ( -- ) ." 0 0 0" ;
: aquamarine ( -- ) ." 102 205 170" ;
: gold ( -- ) ." 255 215 0" ;

: main ( -- )
    ." P3 " width . height . ." 255" cr
    height 6 /  height 2/
    height 0 ?do
        width 0 ?do
            dup j - abs         \ distance to horziontal middle
            2dup -  dup 2/ +  i >=
                if black
                else dup 3 pick <=  if gold else aquamarine then
                then space drop
        loop cr
    loop 2drop ;

main
bye
Die Breite des Dreiecks stimmt nicht ganz weil ich es einfach/ganzzahlig belassen wollte.
Antworten