www.demoscene.ruenglish version
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация   ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 
Может, кто припомнит демку с IFS-фракталами?
На страницу Пред.  1, 2, 3
 
Начать новую тему   Ответить на тему    Список форумов DemoScene.Ru -> Демо
Предыдущая тема :: Следующая тема  
Автор Сообщение
numerouno



Зарегистрирован: 04.09.2011
Сообщения: 390


СообщениеДобавлено: Ср Апр 11, 2012 10:12    Заголовок сообщения: Ответить с цитатой

Заглянул во FracLife,как рисуется, кроме папоротника есть еще и дракон и другие с невнятным названием.
вот код с раскраской точек,258 байт на Fasm'e.

Код:
   org 100h
   use16
push cs
pop ds
   mov al,13h
   int 10h
   mov bh,0a0h
   mov es,bx
@m1:
   call L04B2
   jmp @m1


L04B2:
      mov   si, table;;l0d11;-0Dh;ds:1175h      ; IFS begin
      mov   bx, l116Eh
sub_10471:
      mov   di, l1159h
      mov   bp, 80h
;sub_109D9:
      push   dx
      mov   ax, 41A3h
      mul   [cs:word_10C4C]; here 1
      div   [cs:word_10C4A]
      xchg   ax, dx
      mov   [cs:word_10C4C], ax
      xor   dx, dx
      div   bp
      xchg   ax, dx
      pop   dx
;               retn
loc_1047A:
      add   si, 0Dh
      sub   al, [si]
      jns   short loc_1047A
      inc   si
;               call    sub_10AAF
sub_10AAF:
      pusha
;               call    sub_10A8F
;sub_10A8F:
      pusha
      mov   cl, 2
loc_10A92:
      mov   ch, 2
      xor   bp, bp
      push   bx
loc_10A97:
      lodsw
      imul   word [bx]
      inc   bx
      inc   bx
      shrd   ax, dx, 0Eh
      add   bp, ax
      dec   ch
      jnz   short loc_10A97
      pop   bx
      mov   [di], bp
      inc   di
      inc   di
      loop   loc_10A92
      popa
;               retn
      add   si, 8
      lodsw
      add   [di], ax
      inc   di
      inc   di
      lodsw
      add   [di], ax
      popa
;               retn;aaf

      mov   eax, [di];488
      mov   [bx], eax
;               retn
      mov   si, bx
      mov   ax, [ds:l1172h+7]
      mov   di, l1172h
      inc   byte [di]
      cmp   [di], ah
      jb   short loc_104CC
      mov   [di], al
loc_104CC:
      mov   bx, [ds:l1172h+5]
      mov   cx, [ds:l1172h+1]
;;      push   0A000h
;;      pop   es
      lodsw
      mov   dx, 100h
      imul   dx
      idiv   cx
      xchg   ax, di
      lodsw
      mov   dx, 100h
      imul   dx
      idiv   cx
      imul   ax, 140h
      add   di, ax
      add   di, bx
      movsb
;mov al,0fh
;stosb
      retn
;------------------------------------

word_10C4C   dw 1
word_10C4A   dw 0FFF1h
table=l0d11-0Dh
l0d11:
;DB 0AEh,002h,0ECh,000h,000h,060h,009h,0EEh
;DB 00Ch,051h,082h,041h,080h;+0Dh
db 001h,000h,000h,000h,000h,000h,000h,03Dh
db 00Ah,047h,001h,08Ch,001h,061h,066h,036h,08Fh,002h,071h,0FDh
db 066h,036h,01Eh,000h,009h,000h,00Fh;01eh?
DB 0CDh,00Ch,05Ch,0EFh,0B8h,00Eh,014h,00Eh
DB 080h,001h,0DAh,000h,00Fh,067h,0F6h,0EBh
DB 011h,0A4h,010h,05Ch,00Fh,0F4h,000h,0FDh
DB 000h,000h,0BCh,002h,011h,00Dh,084h,012h
;DB 00Ah,032h,054h,026h,01Bh,04Eh,0D6h,0F9h
;DB 0E0h,0F1h,0E9h,04Bh,001h,08Ch,002h,02Ch
;DB 000h,000h,000h,0E8h,046h,0D7h,08Ch,0FEh

;DB 055h,002h,083h,001h,000h,0BCh,002h,04Eh
;DB 00Dh,024h,013h,01Eh,03Fh,066h,083h,01Ch
;DB 09Eh,032h,0FCh,029h,0E1h,0EBh,0DEh,0FFh
;DB 03Dh,000h,01Ah,060h,0DFh,0C9h,0F2h,003h
;DB 010h,0E2h,0F1h,082h,002h,056h,001h,000h
;DB 084h,003h,071h,00Dh,0B2h,0F3h,01Eh,036h
;DB 052h,00Dh,075h,00Dh,098h,00Dh,0CFh,00Ch
;DB 0F2h,00Ch,015h,00Dh,0A3h,00Dh,070h,020h
;DB 01Eh,034h,01Ah,0A3h,071h,0C0h,023h,00Eh
;DB 08Ch,0CAh,058h,09Ch,0CBh,0C1h,000h,053h
;DB 000h,0AFh,00Dh,0C6h,000h,037h,000h,0B4h
;DB 000h,0FFh,000h,002h,002h,000h,005h,000h
;DB 000h,0C0h,00Dh,0C8h,000h,0B4h,000h,03Ch
;DB 000h,002h,003h,000h,004h,000h,000h,0C0h
;DB 00Dh,030h,060h,020h,0FCh,063h,040h,006h
;DB 064h,0A0h,0E2h,02Dh,003h,031h,020h,003h
;DB 01Dh,050h,000h,0E2h,00Dh,0C6h,000h,06Eh
;DB 000h,0B4h,000h,0C8h,000h,002h,003h,000h
;DB 003h,000h,000h,0F2h,00Dh,022h,001h,0B4h
;DB 000h,01Eh,000h,002h,005h,000h,002h,000h
;--------------------------------
l1159h:
db 0f6h,0,058h,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
l116Eh:
db 0F2h,0,058h,0;,0bch,2,11h,0dh,84h,12h,0Ah
l1172h:
db 0,0BCh,002h,011h,00Dh,084h,012h,00Ah,032h;,0FEh,011h,0FEh,021h,0FEh,031h,0FEh

_________________
вначале было крактро, а потом такое началось,когда праникся дэмоспиритом апасля вайнспирита!1
Аднажды на ДемосценеРупоявился невежа. его с позором прогнали. Так появились тролли.
миниатюры 256bytes.net в одном флаконе
Я программист, Зип Файл!
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов DemoScene.Ru -> Демо Часовой пояс: GMT + 3
На страницу Пред.  1, 2, 3
Страница 3 из 3

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах