WebSVN – NedoOS – Diff – /src/scratch/scratch.asm

 palettey=workzoney
 palettex8=rightpanelx8
 navigatorx=rightpanelx8*8
-navigatory=palettey+(8*4)
+navigatory=palettey+(8*5)
 navigatorhgt=31 ;лучше не увеличивать, чтобы не было переполнения при умножении на bitmapwid (max 2048)
 navigatorwid=31
 coordsx=navigatorx
 coordsy=navigatory+navigatorhgt+1
         ;endm
         org PROGSTART
 gfxeditor_begin
 main_go
-;        jp main_go2
+        jp main_go2
-;        ds 256
+        ds 256
-;main_go2
+main_go2
         ld sp,0x4000 ;не должен опускаться ниже 0x3b00! иначе возможна порча OS
         OS_HIDEFROMPARENT
         ld e,0 ;EGA
         OS_SETGFX
         ;OS_GETSCREENPAGES
         jr z,$+5
         ld de,curcolor2
         call ahl_coords
         sub palettey
         rra
+       cp 0x10
+       jr c,$+4
+       ld a,0x10 ;transparent color 16
-        and 0x0c
+        and 0x1c;0x0c
         ld bc,-palettex8*8
         add hl,bc
         srl l
         srl l
         srl l
         call window_mainloop
 ;restore screen:
         call showworkscreen
         ret
-getcontrastcolors
+getcontrastcolors ;out: lx=background fill color byte 0bRLrrrlll, hx=brush color byte 0bRLrrrlll
         push bc
         push de
         push hl
         ld hl,workpal
 ;DDp palette: %grbG11RB(low),%grbG11RB(high), инверсные
         pop hl
         pop de
         pop bc
         ret
-getgreycolor
+getgreycolor ;TODO не самый яркий и не самый тёмный, если возможно
         ld a,0b00111111
         ret
 getblackongrey
         call getcontrastcolors
         call setpgshapes
         ld de,256*colorhgt+2
         push de ;y
         ld bc,256*colory+colorx8
-        ld a,(curcolor1)
+        ld hl,(curcolor1)
+        ld h,tpixelrecode/256
+        ld a,(hl)
-        call shapes_colortocolormask
+        ;call shapes_colortocolormask
         call shapes_prbox
         ;ld de,256*colorhgt+2
         pop de ;y
         ld bc,256*colory+colorx8+2
-        ld a,(curcolor2)
+        ld hl,(curcolor2)
+        ld h,tpixelrecode/256
+        ld a,(hl)
-        call shapes_colortocolormask
+        ;call shapes_colortocolormask
         jp shapes_prbox
 calccurtool
 ;a=y
 ;определяет номер тулзы по координатам стрелки
 prpal1
         push af
         push de
         ld de,0x0801 ;hgt, wid(chr)
         push bc
+        ld l,a
+        ld h,tpixelrecode/256
+        ld a,(hl)
-        call shapes_colortocolormask
+        ;call shapes_colortocolormask
         call shapes_prbox
         pop bc
         pop de
         pop af
         inc c
         db " 50",0
         db "100",0
         db "200",0
         db "400",0
+setpal_de
+        OS_SETPAL
+        ret
 showbitmap
-        ld hl,workpal
+        ld de,workpal
-        call copytemp_setpal
+        call setpal_de
         call setpgs_scr
         ld hl,(curbitmapwid_edit)
         ld de,(curbitmaphgt)
         ld a,d
         or e
 setpgshapes
         push bc
 curpgshapes=$+1
         ld a,0;pgshapes
-        SETPG16K
+        SETPG4000
         pop bc
         ret
 setpgpal
         push bc
         ret
         include "window.asm"
         include "navigator.asm"
-        include "pal.asm"
+        ;include "pal.asm"
         include "bitmap.asm"
         include "prbitmap.asm"
         ;display "$ before align=",/h,$
         .align 256
 ;;;;;;;;;;;;;;;;;;; таблицы для prbitmap
-tpixelrecode
+tpixelrecode ;для увеличенных масштабов (где оба пикселя в байте одинаковые)
 ;%00003210 => %33210210
-        dup 256
+        dup 16
 _3=$&8
 _210=$&7
         db (_3*0x18) + (_210*0x09)
         edup
+        dup 256-16
+        db 0b10111000 ;TODO patched maxbrightL+minbrightR/minbrightL+maxbrightR
+        edup
+;эти две таблицы - для 100% и уменьшенных масштабов
 tpixelrecodeLEFT
 ;%00003210 => %.3...210
-        dup 256
+        dup 16
 _3=$&8
 _210=$&7
         db (_3*0x08) + (_210*0x01)
         edup
+        dup 256-16
+        db 0 ;TODO patched maxbrightL/minrightL
+        edup
 tpixelrecodeRIGHT
 ;%00003210 => %3.210...
-        dup 256
+        dup 16
 _3=$&8
 _210=$&7
         db (_3*0x10) + (_210*0x08)
         edup
+        dup 256-16
+        db 0b10111000 ;TODO patched minbrightR/maxbrightR
+        edup
+tbitmappages
+        ;display "tbitmappages=",tbitmappages
+        ds bmpmaxpages,0x7f
+activeend
+        display "activeend=",activeend
+        ds 0x4000-$
+SHAPES_begin
+        include "prshapes.asm"
+        include "prarrow.asm"
+        include "prtext.asm"
+        include "pal.asm"
+        .align 256
 ;;;;;;;;;;;;;;;;;;; таблицы для палитры
 tsin
         incbin "tsin200"
 tarcsin
         incbin "tarcsin"
         edup
 tsqrt
 ;аргумент 0..255 (соответствует 0..2)
 ;результат 0..127 (соответствует 0..1) и выше
         incbin "sqrtmax2"
-tbitmappages
-        ;display "tbitmappages=",tbitmappages
-        ds bmpmaxpages,0x7f
-activeend
-        display "activeend=",activeend
-        ds 0x4000-$
-SHAPES_begin
-        include "prshapes.asm"
-        include "prarrow.asm"
-        include "prtext.asm"
         .align 256
 font48
         incbin "64qua.fnt"
 SHAPES_sz=$-SHAPES_begin
         display "Shapes size ",/d,SHAPES_sz," bytes"

Subversion Repositories NedoOS

(root)/src/scratch/scratch.asm – Rev 657 → 1410