> =============================== >> 4.10 PC.PROG.2:basic >> ndragan, 29.12.92. 14:56, 2168 chr >> --------------------------------------------------------- >> Neko veče deca nađoše stare crteže rađene svingografom. To je bilo neko >> klatno čiji teg je tabla A4, na tablu se stavi list papira, na stalku je >> klackalica sa mestom za umetanje flomastera, klatno se zaljulja, >> flomaster se spusti i... dobije se šta se dobije. Pošto nikako nisam >> uspeo da im objasnim da mi ne pada napamet da se po ovoj ciči zimi >> zavlačim u garažu i pravim takvu napravu, izvukao sam se napisavši ovaj >> program: >> >> >> DECLARE FUNCTION qrnd! (a!, b!) >> pi = ATN(1) * 4 >> RANDOMIZE TIMER >> DO >> SCREEN 12 ' ovo 12 za VGA, za Herkulesa... neki drugi broj >> ' p0 je odnos brzina između ljuljanja po x i y osi >> ' ograničio sam se na jednostavnije razlomke >> p0 = qrnd(1, 6) / qrnd(2, 7) >> ' fazni pomeraj >> p1 = RND * pi / 2 >> >> ' a ovo je pokušaj da se dobije dovoljno gust crtež >> IF p0 > 0 THEN >> p5 = 1 / p0 >> ELSE >> p5 = p0 >> END IF >> p5 = p5 * (1 - p5) >> p3 = 1 + .02 * RND * p5 >> p5 = .0014 >> p4 = RND * 2 - 1 >> p6 = p5 / 2 >> >> s1 = RND * 2 - 1 >> s2 = RND * 2 - 1 >> max = 800 >> c = 0 >> FOR t = max TO max / 5 STEP -.1 >> ax = SIN(t) + s1 >> ay = COS(t * p0 + p1) + s2 >> cx = ((ax * SIN(t * p5) + ay * COS(t * p6 + p4))) >> cy = ((ax * COS(t * p5) + ay * SIN(t * p6 + p4))) >> bx = ((cx * SIN(t * p3) + cy * COS(t * p3 + p4)) * t / max + 1) * 280 >> by = ((cx * COS(t * p3) + cy * SIN(t * p3 + p4)) * t / max + 1) * 180 >> LINE (bx0, by0)-(bx, by), c >> c = 15 + (bx0 > bx) + 2 * (by0 > by) >> bx0 = bx >> by0 = by >> NEXT t >> >> t = TIMER + 60 >> DO >> LOOP UNTIL INKEY$ = CHR$(27) OR t <= TIMER >> SCREEN 0 >> LOOP >> >> >> >> FUNCTION qrnd (a, b) >> qrnd = INT(RND * (b - a) + a) >> END FUNCTION >> >> Eto, najzad nekako ispada da sam i ja nekog nešto častio za Novu godinu >> :) ili sam se bar izvadio za onaj dupli egzek ;). >> >> Ovo je QBasic, ali mislim da ladno može da se prebaci u bilo koji drugi >> bejzik koji podržava grafiku. Odustao sam od bilo kakvog unosa brojeva - >> lepše mi je da prepravim par linija u programu, nego da kojegde pamtim >> zgodne brojeve od prošli put. >> >> Pustite ovo za vreme dočeka nek se vrti, smanjiće vam potrošnju pića. >> Pretpostavljam da će se naći tipova koji će se ukokavati gledajući ove >> zavrnute Lisažuove figure. Lepo se provedite. >> ----------------------------------------------- 4.10 --- > >