witam wszystkich! Mam pewien problem związany z napisaniem programu. chodzi mi o program który będzie przekształcać trójkąt w koło i odwrotnie a fazami pośrednimi ma stanowić trójkąt z zaokrąglonymi rogami. Nie wiem jak wogóle sie za to zabrać a zależy mi na czasie ponieważ mam do napisania jeszcze dwa dość proste programy.

Na stronach wikipedii znalazłem niezbędne informacje i postanowiłem zarwać nockę, żeby coś sklecić w temacie Krzywych Béziera.

Nie wiem czy tym razem nie przegiąłem i czy autor tego wątku cokolwiek z niego zrozumie, gdyby nawet nie - to pocieszam się faktem iż
jest dużo ambitnych osób szukających ciekawych kodów na różnych forach tematycznych.
Żeby cokolwiek skumać polecam poczytać najpierw o Wielomianowych krzywych Béziera trzeciego stopnia
tutaj link http://pl.wikipedia.org/wiki/Krzywa_B%C3%A9ziera

Poniższy program poprostu rysuje krzywą Béziera na podstawie podanych punktów A,B,C,D. Uses Graph; Type TPunkt = record x,y : Integer; end; procedure Bezier(A,B,C,D : TPunkt;Dodatki : Boolean); var Odcinek,t,x,y : Real; begin t:=0; Odcinek:=1/32; MoveTo(A.x,A.y); while t<=1 do begin x:=A.x*(1-t)*(1-t)*(1-t) + 3*B.x*t*Sqr(1-t) + 3*C.x*Sqr(t)*(1-t) + D.x*t*t*t; y:=A.y*(1-t)*(1-t)*(1-t) + 3*B.y*t*Sqr(1-t) + 3*C.y*Sqr(t)*(1-t) + D.y*t*t*t; LineTo(Round(x),Round(y)); t:=t+Odcinek; if Dodatki then Bar(Round(x)-1,Round(y)-1,Round(x)+1,Round(y)+1) end; if Dodatki then begin LineTo(C.x,C.y); LineTo(B.x,B.y); LineTo(A.x,A.y); Bar(B.x-1,B.y-1,B.x+1,B.y+1); Bar(C.x-1,C.y-1,C.x+1,C.y+1) end end; Const A : TPunkt = (x: 10;y:240); B : TPunkt = (x:100;y: 50); C : TPunkt = (x:350;y:100); D : TPunkt = (x:600;y:400); Var Sterownik,Tryb : Integer; Begin InitGraph(Sterownik,Tryb,''); Bezier(A,B,C,D,True); Readln; CloseGraph End.
Pozdrawiam
Stefan Pruszkiewicz

A nie mówiłem... buahahahaaa - pstryk i zwątpił!- nie ma to jak fascynująca wymiana zdań,
a zostało tak niewiele - sklecić tylko do kupy 3 krzywe jak na rysunku i przejść z postaci czerwonej na postać podobną do zielonej,
Pewnie myślał chłopina o wbudowanej procedurze Triangle2Circle; : )
a tu niestety prawie zahaczyłby o morphing.

Pozdrawiam
Stefan Pruszkiewicz

P.S. "parysm" Sorki za sarkazm.
(...) też kiedyś byłem murzynem i grałem w koszykówkę (...)

Ja tu czegoś nie kumam.
Dostałeś odemnie gotową procedurę rysującą krzywą beziera która może przyjąć kształt prostej lub łuku.
Nie zagłębiając się w jej działanie możesz ustawić trzy krzywe beziera tworząc trójkąt,
pozostaje tylko tak ustawić wierzchołki B i C każdej krzywej żeby z trójkąta otrzymać okrąg.

Z tego co piszesz wynika że jesteś na poziomie przekształcania prostokąta w kwadrat,
a dostajesz zadanie które nie wiele osób w polsce jest w stanie na miejscu rozwiązać - o co tu chodzi?
Zadania takie nie dostaje się na pierwszych zajęciach z Programowania.
No chyba że jest to Twoje jakieś "widzi mi się"... jeśli tak, wybacz - ale marnujesz mój cenny czas.

a narazie masz takie coś:
Begin NarysujTrojkąt; WyczyscEkran; NarysujOkrag; end.

I powiedz panu psorowi że jest to przekształcenie trójkąta w okrąg,
bo i faktycznie jest, tyle tylko że nie płynne, a w jednym kroku,
na ocenę mierną napewno wystarczy, jesli będziesz miał gadane.
A jak się z tym nie zgodzi to przyślij go do mnie, ja mu to udowodnię!

Pogódź się z porażką.

Jeśli tego nie pojąłeś, nie zrozumiesz już nic ponadto... bynajmniej na razie.
Zadanie poprostu przerasta Twój zasób wiedzy i doświadczeń.
Więc nie widzę sensu go bardziej rozwijać skoro i tak go na tym poziomie nie trawisz.

Utwórz 3 linie Beziera z punktów A,B,C,D
przykładowo:
Bezier(A1,B1,C1,D1,False);
Bezier(A2,B2,C2,D2,False);
Bezier(A3,B3,C3,D3,False);

i zmieniaj tak parametry:
B1,C1,
B2,C2,
B3,C3
żeby otrzymać raz linię(bok trójkąta), a raz łuk.
Trzy takie łuki dadzą Ci okrąg.

MAM PYTANIE do innych forumowiczów! Czy jest to dla was zrozumiałe?
Czy może ja coś źle po raz trzeci tłumaczę. Bo zaczynam mieć wątpliwości

P.S. Wracając do 5 minut, jesteś w ogromnym błedzie myśląc że wymyślenie i stworzenie procedury rysującej krzywą Beziera zajeło mi pięć minut.
Chyba naprawdę nie pojmujesz ile już czasu na Ciebie zmarnowałem.

witam po raz kolejny. Postanowiłem zrobić przekształcenie na podstawie tego co podawał Steficzek kilka postów wyżej. Zainicjowałem grafike , narysowałem kółko, napisałem składnie ClrScr, następnie narysowałem prostokąt , ponieważ przeszukując google nie mogłem znaleźć składni która umożliwiłaby mi narysowanie trójkąta. Program jako tako działa ale niewyswitla mi tego czego chciałem. Mianowicie chodzi mi o to że kółko nie pzechodzi w prostokąt. Próbowałem na różzne sposoby ale dalej nic mi niewychodzi Kod podałem poniżej jesli ktoś zauważy co zrobiłem źle i dlaczego kólko niezmienia sie w prostokąt . A jeśli chciałbym zrobić tak aby kółko zmienialo sie w trójkąt i odwrotnie to muszę zastosować pętle. Czy dobrze myśle? Uses GRAPH,CRT; Var ster,tryb:integer; Begin ster:=VGA; tryb:=VGAHi; InitGraph(ster, tryb, 'C:\TP\BGI' ); Circle(320,240,40); ClrScr; Rectangle(320,240,40,40); Repeat Until Keypressed; CloseGraph; End. EDIT: już wiem w czym tkwi problem: CLRSCR jest to procedura do czyszczenia ekranu w trybie tekstowym, do trybu graficznego używamy CLearDevice . Zastosowałem również składnie DELAY co umożliwi zmiane figury. Moje starania do uzyskania trójkąta na razie nie przyniosi rezultatu. Jeszcze popracuje nad tym żeby te figury zmieniały sie cały czas , kóko w prostokąt, prostokąt w kółko itd itd. Czy któś mógłby mnie naprowadzić na własciwy trop....

Dziękuje że miałeś jeszcze cierpliwość tu zajrzeć i mi pomóc. Tym razem i ja wziełem się do roboty, mogłem wczesniej ale niestety chciałem pójśc na łatwizne. Dziękuje że odpowiedziałeś na moje pytania Pozdrawiam !