Corel FORUM

Stipa

Już kiedyś pisałem o tym. Ale że program trochę rozbudowałem, to go tu zamieszczam po raz drugi.
Jest to program, który wczytuje pliki eps, najlepiej zawierające same krzywe - bez tekstów, zdjęć i prevki. Robi następujące deformacje:
- "nakleja" rysunek na kulę od równika ku biegunom
- "nakleja" rysunek na kulę od bieguna ku równikowi
- "nakleja" rysunek na walec
- wykonuje poprawną perspektywę (bo np. ta w corelu nie jest poprawna)
- wygina rysunek w kółko, tzn robi coś podobnego do zawijania napisu na kółko w Corelu, ale potrafi zawinąć dowolny rysunek

Na koniec taki rysunek obraca wokół różnych osi, zoomuje i w końcu zapisuje na dysku.
W katalogu program, źródło w pascalu i kilka przykładów, co program potrafi.

http://rapidshare.com/sha...3ADD81D4058E9BB

A tu przy okazji mój drugi projekt pozwalający na tworzenie na ulicy "trójwymiarowych" grafik

http://rapidshare.com/sha...61E202ABD83FA25

$tipa

bidon184

niom,ciekawe ,ciekawe,już w innym temacie ciekawie to zrobiłeś ,a teraz to już poleciałeś można powiedzieć że prawie po całości ,no wielki szacun kolego :poklon

,nie moge dać Ci pochwałki ,która Ci się należy jak nic,ponieważ na tym forum pomógł może kliknąc tylko założyciel tematu,ale wiec że klikam wirtualnie bo naprawde Ci się należy :-)

Artur Miernik

Stipo, chciałbym pobrać Twój program, ale coś na tym rapidzie nie działa. Może zrób załącznik do postu?

Stipa

U mnie Rapid dizała, ale mówisz-masz. exe i źródło we Free Pascalu.

kula.zip

Pobierz Plik ściągnięto 498 raz(y) 43.31 KB

gogman

miszczu jesteś !

Stipa

WAŻNE! WAŻNE!! WAŻNE!!!
Eps-y trzeba eksportować bez thumbnaila - tej małej bitmapki z podglądem eps-a. Gdy eksportowałem z corela z nagłówkiem obrazka, była kicha. Gdy bez - działało.

Stipa

AKTUALIZACJA PROGRAMU
1. teraz po wciśnięciu jedynki program zapisuje wynik na dysku, ale nie kończy działania, dzięku czemu można sprawdzić w Corelu, czy to jest to, czego chcieliśmy, czy może dokonać jeszcze drobnych poprawek.
2. W opcji "zawijanie w kółko" działa obrót rysunku wokół pionowej osi

kula2.zip

Pobierz Plik ściągnięto 483 raz(y) 57.7 KB

Shame

Stipa, nie chciałbym darowanemu w zęby zaglądać i stokrotne browary ci za ten programik, ale jest jeszcze jeden malutki buraczek, który wynalazłem (albo może to był tylko przypadek?): otóż jak zawijałem na kuli po równiku, to obiekt (w tym przypadku była to litera P) zawijała się lewą, pionową krawędzią za horyzont. Efekt był taki, że wszystko co było na pierwszym planie (czyli na tej obserwowanej półkuli) było ładnie wykrzywione a'la rybie oko, ale to co zaszło za horyzont (w tym przypadku były to dwa węzły od lewej krawędzi litery) nie zostały pokrzywione - linia między nimi była prosta. Jak wrócę do domu, to zrobię screena ;-)

Stipa

Sprawdź, czy w epsie ten odcinek nie jest prostą. jesli jest, zamien go na krzywa. Jesli jest krzywa - dodaj tam kilka dodatkowyh wezlow.
Program nie robi czarów-marów, lecz nakleja na kule punkty krzywych i końcówki "wąsów" Beziera. Jeśli więc wąsów nie ma to i nie będzie - odcinki zostaną odcinkami. Jedyne zmieni się położenie ich końców. Ta opcja jest przydatna do rysowania np. kratownicy kopuły.
Jakby co, to nie screen jest potrzebny a eps-y przed i po.