en ymmärrä ohjelmoinnista juuri mitään, mutta enpä sinänsä niin paljon välittäisikään:
mutta keksinpäs tuollaisen perus ootraus (puupinnan mukailu) tekniikan, ja mietin, että kuinkahan iso vaiva tuollainen on kääntää photoshoppiin plug-inniksi???
eli pascalilla mcga tilassa tuo mallintamisen riemuvoitto menisi seuraavasti;
------------niks-----------naks---
xx1 := 130;
for y := 1 to 199 do
for x := 0 to 319 do begin
vertaus := 320 random(5);
if mem[$a000:(y-1)*vertaus x] > (xx1 1) then
inc(xx1);
if mem[$a000:(y-1)*vertaus x] < (xx1 - 1) then
dec(xx1);
if xx1 < 0 then xx1 := 0;
if xx1 > 180 then xx1 := 180;
mem[$a000:y*320 x] := xx1;
xx1 := xx1 random(9) - 4;
end;
------------avataan tästä!-----
hieno puumukailu onkin! (siis paletin on syytä olla nouseva tyyliin 0=musta 180=kirkkain käytettävä sävy)
ja xx1 : integer, muut olkoon mitä on.
"vertaus" voi yhtähyvin olla kokoajan vaikka 321, tuolla 320 random(5) tulee vaan vaihtelempia muotoja (ei välttämättä hyvä asia)
eli jos joku osaa noita plug-ineja tehdä, niin tollee vaan.. tai siis että kertokaa joku vinkki, että millä kielellä kannattaa edes jne..?
mutta keksinpäs tuollaisen perus ootraus (puupinnan mukailu) tekniikan, ja mietin, että kuinkahan iso vaiva tuollainen on kääntää photoshoppiin plug-inniksi???
eli pascalilla mcga tilassa tuo mallintamisen riemuvoitto menisi seuraavasti;
------------niks-----------naks---
xx1 := 130;
for y := 1 to 199 do
for x := 0 to 319 do begin
vertaus := 320 random(5);
if mem[$a000:(y-1)*vertaus x] > (xx1 1) then
inc(xx1);
if mem[$a000:(y-1)*vertaus x] < (xx1 - 1) then
dec(xx1);
if xx1 < 0 then xx1 := 0;
if xx1 > 180 then xx1 := 180;
mem[$a000:y*320 x] := xx1;
xx1 := xx1 random(9) - 4;
end;
------------avataan tästä!-----
hieno puumukailu onkin! (siis paletin on syytä olla nouseva tyyliin 0=musta 180=kirkkain käytettävä sävy)
ja xx1 : integer, muut olkoon mitä on.
"vertaus" voi yhtähyvin olla kokoajan vaikka 321, tuolla 320 random(5) tulee vaan vaihtelempia muotoja (ei välttämättä hyvä asia)
eli jos joku osaa noita plug-ineja tehdä, niin tollee vaan.. tai siis että kertokaa joku vinkki, että millä kielellä kannattaa edes jne..?
Vastaukset 1
Vanhimmat
hupsis! eihän se paletti noin ollutkaan!
siis mielummin vaikka jotain tällaista:
for x = 0 to 63 do begin
pal(x,x,x*x div 63,x div 2);
pal(x 63,63-x,63-x,32-x div 2);
pal(x 126,x,x*x div 63,x div 2);
end;
elikkä siis noin - ja ehkä vertausluvuksi suosittelisin mielummin vakiota, esim. 321 tai joku vastaava..