關於BMP轉logo

Butler99

請問大家layout logo是怎麽做得，感覺BMP 單色位轉成layout效果不好，如果采用這個方法要每個字母做成一個cell，然後還要load一個可以自動縮放的script，而且轉成單色位圖片會有很嚴重的毛邊，轉出來會很難看，所以是怎麽做比較好

以下是skill
1 u/ [1 e3 [; ]" Llet((win cv bmpfile bmpSize WORD Wnum number Grid Layer row column max_column
        i dot x y signature offset width height pixel ImageSize )
% }3 e6 T' ~2 |% r* E
5 q0 |( F% S& l4 p% j, \4 m        win = hiGetCurrentWindow()
        cv = getEditRep(win)

        bmpfile = "~/number_mini.bmp"                        ;;; Input BMP File
" G) r% d/ G" n/ Z8 ?- m5 r, j        Layer = list("TTOPME" "drawing")        ;;; Output Layer
        Grid = 1                                ;;; Rectangle Size
        column = 0
6 \  f" C' U7 v
procedure(MessageForm(text)
    prog( ()
* O& {1 S& v, ~6 S% d  c1 R        hiDisplayAppDBox(
                ?name 'JWDBox_Message
$ f! y1 P, X! G9 [5 O                ?dboxBanner "Message!!"
" _$ {5 a+ E; }                ?buttonLayout 'Close
4 w/ o. P, h2 T: |5 t9 P                ?dboxText text
        )
    );prog
);procedure
+ a& r% N$ U' O: q2 a6 `
" T% E( \, V5 U4 N1 k;Read BMP file
        if(InFile = infile(bmpfile) then
3 v5 p. a" V1 d4 b2 m# Y' i                bmpSize = fileLength(bmpfile)
6 I( ]: s6 Z8 U* {% [3 d                declare(WORD[bmpSize])
% U) Q* K) i6 k3 k: d5 s1 i- P                for(Wnum 0 bmpSize-1        WORD[Wnum] = charToInt(getc(InFile)) )
                close(InFile)
7 `! M4 [5 [/ O, v1 v# H+ K* u        else
                MessageForm("Input file does not exist!")
+ _: ^9 |' m  X: J$ f/ |: z                return()
1 T4 y: L2 I4 s        )
5 P, L7 S" d2 f& V. }
2 q9 a/ |8 r5 a+ `* }        sprintf(signature "%02x%02x" WORD[0] WORD[1])
        offset = (WORD[0x0d]<<24) + (WORD[0x0c]<<16) + (WORD[0x0b]<<8) + WORD[0x0a]
! e- b* M& R% ^# ]  b' e        width  = (WORD[0x15]<<24) + (WORD[0x14]<<16) + (WORD[0x13]<<8) + WORD[0x12]
4 W6 j. D; x% l8 B" q% R& |        height = (WORD[0x19]<<24) + (WORD[0x18]<<16) + (WORD[0x17]<<8) + WORD[0x16]
        pixel  = (WORD[0x1d]<<8) + WORD[0x1c]
% M& v5 f7 Q+ h. L; I% ]0 S4 b: @        ImageSize = (WORD[0x25]<<24) + (WORD[0x24]<<16) + (WORD[0x23]<<8) + WORD[0x22]

        printf("--- BMP2LAY Start --- %L\n" getCurrentTime())
: k$ v% S1 A$ p2 f; _& Z* j7 @' W        printf("offset  : 0x%x \n" offset)
        printf("width   : 0x%x \n" width)
        printf("height  : 0x%x \n" height)
        printf("ImgSize : 0x%x \n" ImageSize)

$ T8 R* ~$ T* M;check bmp file
6 O8 ]5 ]) y  P+ P7 _" d& d        if(!equal(signature "424d") then
                MessageForm("*ERROR* Standard Input is not a BMP file")
: K* ]* @, k6 s) B" \                return()
5 U8 \' [5 \& L- h, G        )

;check mono bmp file
        if(!equal(pixel 0x01) then
                MessageForm("*ERROR* only supports mono bmp files")
6 h  _( @$ G5 `3 g" U" S; o                return()
        )
- H8 w/ V, ?* E
;BMP2LAY
& |" ^( \9 Y' h' e        max_column = ImageSize/height<<3
        number = offset+ImageSize-1

6 S* r5 T. F9 ?7 I( d        for(Wnum offset number
                row = fix((Wnum-offset)/(max_column>>3))
& A; V* I$ H* }9 T3 Q                y = Grid*row

                for(i 0 7
                        dot = bitfield1(WORD[Wnum] 7-i)                ; bit<7> ~ bit<0>
                        x = Grid*column
                        if(zerop(dot) && column<width then
2 {9 W! x- k9 P, Z3 \                                geSelectObject(dbCreateRect(cv Layer list(x:y x+Grid:y+Grid)))
! g3 a1 h4 X+ [' @                        )
                        column++
                );for
' ^& e' _6 E  n                if(equal(column max_column)        column=0)
% e: }5 o4 B6 ^  Q! @                Wnum++
        );for
8 M' y9 g! N, |+ n5 v- d
2 {2 ^5 v- W6 _        hiZoomIn(win list(-10:-10 x+10:y+10))
        printf("--- BMP2LAY End ----- %L\nt\n" getCurrentTime())
);let

* @& c( q8 p, u# @