關於BMP轉logo

Butler99

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

5 {! }/ v  L+ L7 r+ W# P以下是skill
let((win cv bmpfile bmpSize WORD Wnum number Grid Layer row column max_column
        i dot x y signature offset width height pixel ImageSize )
6 }% I5 F$ c! h5 E
4 s2 O2 A. t; A6 [* [$ z        win = hiGetCurrentWindow()
        cv = getEditRep(win)
3 i6 ^: H5 V( q8 o6 H+ D( L
        bmpfile = "~/number_mini.bmp"                        ;;; Input BMP File
3 O: T/ b4 Y5 T/ H$ U8 x/ F0 e        Layer = list("TTOPME" "drawing")        ;;; Output Layer
        Grid = 1                                ;;; Rectangle Size
; J7 a% a# j0 c2 m% d2 J  C' k        column = 0
2 z6 t" I: _: p6 o
procedure(MessageForm(text)
    prog( ()
- `% @  d& q  F$ z        hiDisplayAppDBox(
                ?name 'JWDBox_Message
                ?dboxBanner "Message!!"
+ Y& I- O6 R8 u3 o                ?buttonLayout 'Close
                ?dboxText text
& z0 t( Q5 d! z4 u; T        )
    );prog
);procedure
; w  S, k- c$ m- t, }
;Read BMP file
  b$ P6 }2 u$ X! a$ T' I$ _' D        if(InFile = infile(bmpfile) then
  `1 }8 J4 e+ y) N                bmpSize = fileLength(bmpfile)
                declare(WORD[bmpSize])
% T1 J0 X  U, C0 c9 m- w2 O2 Z                for(Wnum 0 bmpSize-1        WORD[Wnum] = charToInt(getc(InFile)) )
2 E& j" J; o: C+ d                close(InFile)
        else
                MessageForm("Input file does not exist!")
                return()
- B; z6 h. t; ?( W( V9 x        )
4 Z. l% f# G1 C; A& F
4 f0 v, N4 y  R8 r% F        sprintf(signature "%02x%02x" WORD[0] WORD[1])
' f9 Z* ]8 ^2 G- y  ^7 }( ^        offset = (WORD[0x0d]<<24) + (WORD[0x0c]<<16) + (WORD[0x0b]<<8) + WORD[0x0a]
+ T! V! G/ G2 K( F2 Q/ `* d        width  = (WORD[0x15]<<24) + (WORD[0x14]<<16) + (WORD[0x13]<<8) + WORD[0x12]
. f/ |: |& l$ }( z( y        height = (WORD[0x19]<<24) + (WORD[0x18]<<16) + (WORD[0x17]<<8) + WORD[0x16]
; l" J+ t6 P% `) y        pixel  = (WORD[0x1d]<<8) + WORD[0x1c]
        ImageSize = (WORD[0x25]<<24) + (WORD[0x24]<<16) + (WORD[0x23]<<8) + WORD[0x22]
3 G* T$ @- u9 P. {  k* z6 L" M
        printf("--- BMP2LAY Start --- %L\n" getCurrentTime())
- B9 b# j' g( L" f" ]        printf("offset  : 0x%x \n" offset)
        printf("width   : 0x%x \n" width)
        printf("height  : 0x%x \n" height)
' c6 g$ Y! O7 S0 }/ X2 x        printf("ImgSize : 0x%x \n" ImageSize)

9 M1 h) z5 T' E, ]( A. Y;check bmp file
        if(!equal(signature "424d") then
                MessageForm("*ERROR* Standard Input is not a BMP file")
# \0 z. l. m/ b& |6 s3 }" i                return()
        )
# K# Y/ M2 u/ O8 J; c* Q
;check mono bmp file
  l# Z" q3 B; }$ i8 E3 k        if(!equal(pixel 0x01) then
# ?* }; h  s7 V. {( e                MessageForm("*ERROR* only supports mono bmp files")
7 y9 A: F$ E! `; c                return()
        )
% M% [( |2 ]4 t2 p& _
% T% t1 G( O" j% |, W7 Z( k0 B;BMP2LAY
( v; T# @/ ]6 U# z9 f# M2 G        max_column = ImageSize/height<<3
        number = offset+ImageSize-1

        for(Wnum offset number
                row = fix((Wnum-offset)/(max_column>>3))
% G& P) ]0 z  I2 v; t                y = Grid*row

                for(i 0 7
                        dot = bitfield1(WORD[Wnum] 7-i)                ; bit<7> ~ bit<0>
                        x = Grid*column
4 g2 u* D6 d5 j+ W: I                        if(zerop(dot) && column<width then
                                geSelectObject(dbCreateRect(cv Layer list(x:y x+Grid:y+Grid)))
+ K' @$ @+ c0 O4 Z                        )
                        column++
3 S$ e; M1 S9 R0 b                );for
                if(equal(column max_column)        column=0)
                Wnum++
" j0 ~1 ~( H( _! j* `' y9 g        );for
, h9 u1 J2 \* |5 v& W- S0 D
        hiZoomIn(win list(-10:-10 x+10:y+10))
        printf("--- BMP2LAY End ----- %L\nt\n" getCurrentTime())
  k/ S$ o4 c/ t9 R: ?  A);let
, _( V* z5 L! ?6 p