@cholok, post #30

• Odpowiedz

@peceha, post #26

• Odpowiedz

@] SKOLMAN_MWS ˇ agrEssOr [, post #29

• Odpowiedz

@nostrum666, post #32

• Odpowiedz

@peceha, post #34

• Odpowiedz

@nostrum666, post #9

• Odpowiedz

@nostrum666, post #35

• Odpowiedz

@cholok, post #36

• Odpowiedz

@peceha, post #37

• Odpowiedz

@nostrum666, post #39

• Odpowiedz

@nostrum666, post #40

agmsplayfilm times 1 plikFilmowy

• Odpowiedz

@peceha, post #41

• Odpowiedz

@peceha, post #41

• Odpowiedz

@nostrum666, post #43

• Odpowiedz

@peceha, post #44

link
swoją drogą po Twoim teledysku padła mi validacja na dysku systemowym i nie mogę z tym nic zrobić
Mam na dysku jakieś pliki BF0000 i nie mogę ich usunąć ani nic bo wyskakuje mi komunikat że WB nie jest zaktualizowany.

Ostatnia aktualizacja: 29.10.2017 21:09:35 przez nostrum666

• Odpowiedz

@peceha, post #44

• Odpowiedz

@nostrum666, post #45

• Odpowiedz

@peceha, post #47

Dobra. Jutro to zobacze bo teraz ratuje dysk systemowy

• Odpowiedz

@cholok, post #33

Paleta
$000,$00A,$0A0,$0AA,$A00,$A0A,$AA0,$AAA,$555,$55F,$5F5,$5FF,$F55,$F5F,$FF5,$FFF

DIM rline(0 TO 335) AS ubyte
DIM gline(0 TO 335) AS ubyte
DIM bline(0 TO 335) AS ubyte
DIM hamline(0 TO 335) AS ubyte
dim iline() as ushort
FOR v = vres - 1 TO 0 STEP -1

' wczytaj linię pikseli 15 bit
get #ff,,iline()

' redukcja rgb15 do rgb12
FOR h = 0 TO hres-1
	c=iline(h)
	bline(h) = (c AND 30) shr 1
	gline(h) = (c and 960) shr 6
	rline(h) = (c and 30720) shr 11
NEXT h

' HAMify it
FOR h = 0 TO hres-1
	r = rline(h)
	g = gline(h)
	b = bline(h)

	' dla pierwszego piksela wybierz najbliższy z palety
	IF h = 0 THEN
		IF (r AND 7) + (g AND 7) + (b AND 7) > 12 THEN
			c = 8: oldhamr = 5: oldhamg = 5: oldhamb = 5
		ELSE
			c = 0: oldhamr = 0: oldhamg = 0: oldhamb = 0
		END IF
		IF (r AND 8) THEN c = c + 4: oldhamr = oldhamr + 10
		IF (g AND 8) THEN c = c + 2: oldhamg = oldhamg + 10
		IF (b AND 8) THEN c = c + 1: oldhamb = oldhamb + 10
		hamline(0) = c
		GOTO a52
	END IF

	' jeśli pixel jest biały lub czarny
	IF r = 15 THEN IF g = 15 THEN IF b = 15 THEN hamline(h) = 15: oldhamr = 15: oldhamg = 15: oldhamb = 15: GOTO a52
	IF r = 0 THEN IF g = 0 THEN IF b = 0 THEN hamline(h) = 0: oldhamr = 0: oldhamg = 0: oldhamb = 0: GOTO a52

	' różnice abs
	rdiff = r - oldhamr: IF r < oldhamr THEN rdiff = oldhamr - r
	gdiff = g - oldhamg: IF g < oldhamg THEN gdiff = oldhamg - g
	bdiff = b - oldhamb: IF b < oldhamb THEN bdiff = oldhamb - b

	' wybierz kolor ham
	IF ((bdiff > gdiff) AND (bdiff > rdiff)) THEN c = b + 16: oldhamb = b: GOTO a53
	IF ((rdiff >= bdiff) AND (rdiff > gdiff)) THEN c = r + 32: oldhamr = r: GOTO a53
	c = g + 48: oldhamg = g
a53:
	hamline(h) = c
a52:
NEXT h

• Odpowiedz

@cholok, post #49

Przeczytalem tamten zalinkowany watek. Zaciagnalem Twoja wersje programu i przerobilem jednominutowy teledysk - to cholerstwo wymaga duzej predkosci odczytu moj FFS nie dal rady , na szczescie zmiescilo mi sie do ramu wiec poszlo plynnie. Juto sprawdze jak bedzie wygladalo w odcieniach szarosci bo dzisiejszy efekt mial sporo artefaktow.

• Odpowiedz

@peceha, post #50

• Odpowiedz

@peceha, post #50

• Odpowiedz

@Norbert, post #51

• Odpowiedz

@peceha, post #53

• Odpowiedz

@peceha, post #53

• Odpowiedz

@] SKOLMAN_MWS ˇ agrEssOr [, post #55

2000 nic nie pomoglo - zmiana FFS-a no cos innego to jedyne rozwiazanie

Tymczasem, dzis od rana robie teledysk (1min) ale sposobem ze stala paleta no i tym razem w 32 kolorach. Docelewo beda 3 wersje: bez ditheringu, big ordered no i jeden z error cos tam.
Podesle je tutaj jak beda gotowe.

• Odpowiedz

@peceha, post #56

• Odpowiedz

@peceha, post #57

• Odpowiedz

@peceha, post #57

• Odpowiedz

@cholok, post #59

Wiem ze nie oblusguje zmiennej palety
Mialem tam napisac ze chodzi mi o inny format np. anim ktorys tam + dzwiek.

A wiec tak: program AVB (bodajze tak sie nazywa) ponoc potrafi odegrac dzwiek z animacja ale u mnie sie wiesza.
Dodatkowo kazda anim5,7s, 7L czytana z dysku zacina -(przy mniejszej ilosci klatek niz AGMS, bo tu dalem 12) - wiec juz nie jestem zainteresowany,

Zrobilem kolejna wersje nagrania co powyzej ale tym razem w HAM (uzywajac AGMS) - 16 klatek na sekunde a on dalej idzie plynnie (z dzwiekiem) do tego wydaje mi sie ze efekt jest duzo lepszy niz HV (nie dalem zadnego ditheringu ale zaraz zrobie taka wersje)
Link do klipu w HAM:
link

#nostrum666
juz zaciagam Twoj plik, idzie wolno ale idzie

DODALEM:
palete co prawda tym razem strzelilem losowo z jednego obrazka ze srodka klipu - przerobilem go na HAM i te palete zablokowalem w adPro - efekt i tak zadowalajacy.

Ostatnia aktualizacja: 30.10.2017 19:59:56 przez peceha

• Odpowiedz