關於BMP轉logo

Butler99

請問大家layout logo是怎麽做得，感覺BMP 單色位轉成layout效果不好，如果采用這個方法要每個字母做成一個cell，然後還要load一個可以自動縮放的script，而且轉成單色位圖片會有很嚴重的毛邊，轉出來會很難看，所以是怎麽做比較好
9 C- s5 N1 h( o1 L% p0 j3 M  F6 }$ `
( c6 t- w" d, F以下是skill
& G) d7 j! [8 v& f+ q8 j2 z; qlet((win cv bmpfile bmpSize WORD Wnum number Grid Layer row column max_column
+ G( E! n( k. J) @' ]* ^$ F. I' t        i dot x y signature offset width height pixel ImageSize )
7 z% C/ W" s4 `+ d5 ^" n% I- ~6 t$ M
! w. @; v7 z5 I2 M7 D6 Q        win = hiGetCurrentWindow()
        cv = getEditRep(win)

        bmpfile = "~/number_mini.bmp"                        ;;; Input BMP File
        Layer = list("TTOPME" "drawing")        ;;; Output Layer
        Grid = 1                                ;;; Rectangle Size
        column = 0

procedure(MessageForm(text)
    prog( ()
% n; p# W' l2 i$ G/ b" e- B        hiDisplayAppDBox(
! y5 A& e7 c( H3 c6 y                ?name 'JWDBox_Message
; p' u5 V1 Z5 S# ~# x# p3 [' g                ?dboxBanner "Message!!"
4 V2 h8 H; t, v" P* F$ U  ]$ |                ?buttonLayout 'Close
                ?dboxText text
4 W; m1 C+ B$ y3 A        )
    );prog
' v* Y, {6 o' k! j);procedure
/ `7 V+ n# l% I! U) W
& H0 Y+ Y, i4 [, O: s;Read BMP file
# f/ V) G8 R9 u6 z        if(InFile = infile(bmpfile) then
- G* b8 K" H* b3 Q7 N# {                bmpSize = fileLength(bmpfile)
                declare(WORD[bmpSize])
  E" v7 I6 O4 V" g6 U                for(Wnum 0 bmpSize-1        WORD[Wnum] = charToInt(getc(InFile)) )
                close(InFile)
        else
                MessageForm("Input file does not exist!")
; c; f' ~: g% c5 _- `- @$ A* W1 M                return()
; {% U# H5 ^! x/ T        )
* e  e: D7 \3 y, u
( v) P) z% G/ {* D        sprintf(signature "%02x%02x" WORD[0] WORD[1])
        offset = (WORD[0x0d]<<24) + (WORD[0x0c]<<16) + (WORD[0x0b]<<8) + WORD[0x0a]
        width  = (WORD[0x15]<<24) + (WORD[0x14]<<16) + (WORD[0x13]<<8) + WORD[0x12]
8 @6 D; r+ B# _3 d. O9 i9 P9 r        height = (WORD[0x19]<<24) + (WORD[0x18]<<16) + (WORD[0x17]<<8) + WORD[0x16]
        pixel  = (WORD[0x1d]<<8) + WORD[0x1c]
) M  r$ m- Y$ X! G, N1 ~        ImageSize = (WORD[0x25]<<24) + (WORD[0x24]<<16) + (WORD[0x23]<<8) + WORD[0x22]

        printf("--- BMP2LAY Start --- %L\n" getCurrentTime())
        printf("offset  : 0x%x \n" offset)
        printf("width   : 0x%x \n" width)
        printf("height  : 0x%x \n" height)
! y- J0 H4 s3 W  P' a+ a        printf("ImgSize : 0x%x \n" ImageSize)

. f3 `3 a; \2 Q! r2 l;check bmp file
$ J0 i! e/ `5 @" g        if(!equal(signature "424d") then
9 ]6 V6 a0 j' H/ t1 o( }$ c5 s                MessageForm("*ERROR* Standard Input is not a BMP file")
                return()
        )
3 i7 D9 f3 u2 Q; `. P. ?# G
* l- l6 W. J/ ]# C;check mono bmp file
        if(!equal(pixel 0x01) then
                MessageForm("*ERROR* only supports mono bmp files")
                return()
6 p6 G  |' d! m6 `7 `        )

; Z5 I6 v3 j3 u: A;BMP2LAY
& |# z( y3 y1 K9 r! V3 C  v" k+ j        max_column = ImageSize/height<<3
% Z4 Z5 V2 D  _6 \        number = offset+ImageSize-1

        for(Wnum offset number
2 a, k* ~- L/ O; I                row = fix((Wnum-offset)/(max_column>>3))
. r; k0 {2 |$ K  z- B" |4 a                y = Grid*row
1 d- Y1 u+ I) E! X/ g. ]* ^
                for(i 0 7
8 e/ Z1 Q: ~/ @, [# y                        dot = bitfield1(WORD[Wnum] 7-i)                ; bit<7> ~ bit<0>
                        x = Grid*column
; ]+ e4 J/ z1 b  R  J+ L0 M  S                        if(zerop(dot) && column<width then
4 y) P/ a: ~  `: e# N                                geSelectObject(dbCreateRect(cv Layer list(x:y x+Grid:y+Grid)))
                        )
: M! R1 _8 o& ]3 T                        column++
                );for
  p: u/ k( @+ ?8 M0 f$ }) I. y0 x                if(equal(column max_column)        column=0)
                Wnum++
        );for

) C4 K. P  z2 g) R; z        hiZoomIn(win list(-10:-10 x+10:y+10))
        printf("--- BMP2LAY End ----- %L\nt\n" getCurrentTime())
);let