Egy kis állapotjelentés csak:

Újabb mérföldkőhöz érkeztünk, és én lehetek az, aki bemutatja. Aminek, bevallom, nagyon örülök. Na nem annak, hogy én mutogatok, hanem annak, hogy van mit mutogatni. :)

Készülgetnek a házak szépen. Megvan az ajtó-ablak-rés generálás, készen vannak a falak, van padló, mennyezet, és van tető is az egyelőre nem létező emberek feje fölött.

Kép lapozás után!

Gondoltam, egy-két hordó jól jöhet a játékban :)

Arany Jánostól előre is elnézést :)

"„Fegyver csörög, haló hörög,
A Hold tengerbe száll,
Vérszagra gyűl az éji vad"...

Képek lapozás után!

Amikor a program elkezd végtelen ciklusban adatokat gyártani a memóriában, egész hamar be tud telni az a szerény 1 GB RAM, amivel megáldott engem az anyatermészet (Butcher szerint 4 GB-t is sikerült gond nélkül kiakasztania :D). És hát a rectangle finder megtette nekem ezt a szívességet. Akit nem érdekel a blabla, az tekerjen le, akit érdekel, az figyeljen.

Sziasztok!

Eléggé sok idő eltelt, mióta utoljára hírt adtam magamról (bár ha valaki figyelte a .plan fájlomat, akkor lehetett látni, hogy lassan-lassan fogynak a készítendő feladatok).

Szóval, eljött az ideje, hogy adjak egy kis átfogó képet arról, hogy mit is csináltunk, és, némi technikai bla-bla után végre eljöjjön az első olyan, ami a nagyközönséget is érdekli. Ha a programozás nem érdekel, a tovább gomb után tekerj az aljára :)

A HLint érdekes kis program. Kiszúrta például, hogy a "foldl1 (&&)" helyett írhatnék simán "and"-et is. A posztok javítva vannak.

Az előző posztban megígértem, hogy megértjük az isPointInPolygon függvényt. Nézzük.

-- Ha egy polygon pontjait az óramutató járásával ellentétes
-- irányban haladva adjuk meg, akkor annyit kell megnézni,
-- hogy az adott pont minden vonal bal oldalán van-e. Ha
-- igen, a polygonon belül van a pont, különben kívül.
-- (Kicsire nem adunk, ha rajta van, kívül van, kész.)
isPointInPolygon :: Position -> Polygon -> Bool
isPointInPolygon p ps =
  and (map (\x -> onLeft (ps !! x)
                         (ps !! ((x + 1) `mod` psn))
                         p)
                   [0..psn-1])
  where
    psn = length ps

 A probléma a következő: adott egy konvex polygon. Keressük meg az ebbe írható legnagyobb ortogonális téglalapot (tehát a téglalap oldalai legyenek párhuzamosak az x és y tengellyel). (Ez ahhoz kell, hogy a telkekre házat tudjak rakni.)

Van is itt egy megoldás:
http://cgm.cs.mcgill.ca/~athens/cs507/Projects/2003/DanielSud/
Namármost, normális ember nem posztol bejegyzést arról, hogy talált egy linket. A probléma, hogy nem bírom felfogni, hogy hogy is kellene ezt lekódolni. Úgyhogy gondolkodtam.

Kellemes Karácsonyi Ünnepeket, és békés, örömökben gazdag új évet kívánunk!