關於BMP轉logo

Butler99

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

" l2 @$ Y9 i$ \7 _1 [% N以下是skill
$ m4 W& O) j- w3 x* E! V! N8 K; Dlet((win cv bmpfile bmpSize WORD Wnum number Grid Layer row column max_column
        i dot x y signature offset width height pixel ImageSize )
. c" T- {# F9 P2 P* B! C' Z
9 t; r! Y0 j$ u! k5 O/ {6 r        win = hiGetCurrentWindow()
8 @8 o! @& M- Z+ ^( f4 ]" D( d        cv = getEditRep(win)
4 f2 N+ \# U- O6 Q( @1 L) J
% I0 h( T) \$ ]1 v0 B! S        bmpfile = "~/number_mini.bmp"                        ;;; Input BMP File
5 K% E1 S2 w# N        Layer = list("TTOPME" "drawing")        ;;; Output Layer
        Grid = 1                                ;;; Rectangle Size
1 H& b- N% G; T% g        column = 0

: _5 k( G( A: `procedure(MessageForm(text)
    prog( ()
        hiDisplayAppDBox(
; O7 ]- l) ?, D9 h' x& O                ?name 'JWDBox_Message
                ?dboxBanner "Message!!"
                ?buttonLayout 'Close
                ?dboxText text
1 x6 z$ C" ~) `) G" r( P9 m) K        )
    );prog
);procedure
) z; i' S/ y4 i+ c$ v: F/ d, {
) B* I$ \- O- e+ ~* d4 d;Read BMP file
/ L* `# j) u; A/ P        if(InFile = infile(bmpfile) then
                bmpSize = fileLength(bmpfile)
                declare(WORD[bmpSize])
: J+ q+ z7 d' l* Y& X% w7 r) G2 l                for(Wnum 0 bmpSize-1        WORD[Wnum] = charToInt(getc(InFile)) )
' ]3 m2 {+ ?. s3 L! Z6 `                close(InFile)
) Y; ^5 J5 g0 t) I; P5 p' O# x: Z, F3 s        else
) a5 U. C! z9 q$ A9 o/ n4 V                MessageForm("Input file does not exist!")
) l+ U9 u- J: x0 }0 _/ g                return()
! \7 x& r! }% w8 L% ?! I        )

" X. ]) r$ W/ w        sprintf(signature "%02x%02x" WORD[0] WORD[1])
" u( t- j- b8 F2 d$ a        offset = (WORD[0x0d]<<24) + (WORD[0x0c]<<16) + (WORD[0x0b]<<8) + WORD[0x0a]
/ `4 H) z1 m4 t  ~! h$ S2 c9 o        width  = (WORD[0x15]<<24) + (WORD[0x14]<<16) + (WORD[0x13]<<8) + WORD[0x12]
        height = (WORD[0x19]<<24) + (WORD[0x18]<<16) + (WORD[0x17]<<8) + WORD[0x16]
$ @# K# G; O' n% R: t9 D  b        pixel  = (WORD[0x1d]<<8) + WORD[0x1c]
5 v, @3 V; D, M; W: c" `  }$ B        ImageSize = (WORD[0x25]<<24) + (WORD[0x24]<<16) + (WORD[0x23]<<8) + WORD[0x22]

        printf("--- BMP2LAY Start --- %L\n" getCurrentTime())
8 a+ W$ ?' @4 Y( H        printf("offset  : 0x%x \n" offset)
# I2 @! V& S* b+ B8 H  i  \        printf("width   : 0x%x \n" width)
        printf("height  : 0x%x \n" height)
        printf("ImgSize : 0x%x \n" ImageSize)

;check bmp file
* V8 t  ]8 t- n& {        if(!equal(signature "424d") then
                MessageForm("*ERROR* Standard Input is not a BMP file")
- _( z3 v0 m& y* G. X                return()
        )
9 P( H, I6 o' n$ {. n' N
5 F  \; o' }" I" V' o) X+ R;check mono bmp file
: H! B. `4 L: N: x        if(!equal(pixel 0x01) then
                MessageForm("*ERROR* only supports mono bmp files")
" Q4 v1 Q' x1 t! Q% l, n( u                return()
        )

$ T, W* N. X# H0 G/ ?3 v;BMP2LAY
        max_column = ImageSize/height<<3
( c* y$ ^: H- l, V; L        number = offset+ImageSize-1
7 M% U$ w  g1 S! H9 V
        for(Wnum offset number
                row = fix((Wnum-offset)/(max_column>>3))
                y = Grid*row

                for(i 0 7
. @; t$ r. c! h' E$ g$ d                        dot = bitfield1(WORD[Wnum] 7-i)                ; bit<7> ~ bit<0>
                        x = Grid*column
5 U4 z$ H  d/ T# T" l7 Y                        if(zerop(dot) && column<width then
1 t$ @& R6 V# V                                geSelectObject(dbCreateRect(cv Layer list(x:y x+Grid:y+Grid)))
& O$ T/ M" b4 \5 J                        )
                        column++
                );for
                if(equal(column max_column)        column=0)
                Wnum++
3 O6 B$ p' D) \: E# L: o( ?        );for
% ^$ T1 i  I2 R. K% J
        hiZoomIn(win list(-10:-10 x+10:y+10))
- e% }' N. ]0 R) R        printf("--- BMP2LAY End ----- %L\nt\n" getCurrentTime())
, {5 E4 L' A6 w);let