關於BMP轉logo

Butler99

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

& b( S' D2 p2 s/ B  B& y5 J$ }以下是skill
let((win cv bmpfile bmpSize WORD Wnum number Grid Layer row column max_column
% F  t+ k) Y- m, i  e/ p5 [% l; t        i dot x y signature offset width height pixel ImageSize )
+ m* Q" b% V# H. D
" i! j+ r' D3 Z  ~3 a' u; b        win = hiGetCurrentWindow()
        cv = getEditRep(win)

        bmpfile = "~/number_mini.bmp"                        ;;; Input BMP File
0 v( O3 H9 x$ @5 T* e9 F4 r1 k; N8 t        Layer = list("TTOPME" "drawing")        ;;; Output Layer
& A- B9 k3 J8 t; l9 I/ t        Grid = 1                                ;;; Rectangle Size
# M9 Q3 n* n+ M4 T8 \8 q1 R4 R        column = 0
. F5 X- T+ ]3 X+ V0 Q
procedure(MessageForm(text)
    prog( ()
        hiDisplayAppDBox(
% y# D" M' I2 ^% u* z2 G- u                ?name 'JWDBox_Message
                ?dboxBanner "Message!!"
2 s$ v5 C+ W7 a& X                ?buttonLayout 'Close
1 Z6 Y' h, d2 l) a. C) E; M8 p                ?dboxText text
: Y+ I. F8 Y% W4 {/ E3 _5 G        )
5 Q5 |0 Z5 u" i6 g    );prog
% ?# d; K( @+ ~/ Z);procedure

;Read BMP file
        if(InFile = infile(bmpfile) then
0 N  e) P( h9 N- m  W                bmpSize = fileLength(bmpfile)
                declare(WORD[bmpSize])
                for(Wnum 0 bmpSize-1        WORD[Wnum] = charToInt(getc(InFile)) )
                close(InFile)
/ f; m+ M9 B$ V* n        else
                MessageForm("Input file does not exist!")
                return()
6 f% B$ E4 u! W& Z# D        )
$ L% z* E0 I: 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]
1 ~7 M. ^7 t9 B( |+ o, e        height = (WORD[0x19]<<24) + (WORD[0x18]<<16) + (WORD[0x17]<<8) + WORD[0x16]
2 q; O- F! k  }        pixel  = (WORD[0x1d]<<8) + WORD[0x1c]
0 N. [* {2 `# n% Q4 U: D2 q        ImageSize = (WORD[0x25]<<24) + (WORD[0x24]<<16) + (WORD[0x23]<<8) + WORD[0x22]
7 v. X; R) P5 ^. _. F5 S4 v
        printf("--- BMP2LAY Start --- %L\n" getCurrentTime())
" F& P3 [: x1 I2 Z4 A8 |        printf("offset  : 0x%x \n" offset)
& v, t3 J, P) y! g        printf("width   : 0x%x \n" width)
        printf("height  : 0x%x \n" height)
        printf("ImgSize : 0x%x \n" ImageSize)

+ Z: n$ g) s9 ^" f& W;check bmp file
( }/ \# A$ y6 I- T" O/ X; a  k& p5 x8 \" z        if(!equal(signature "424d") then
9 z3 f7 W, ~+ `$ w                MessageForm("*ERROR* Standard Input is not a BMP file")
; d" a& U! e* N9 m2 q                return()
3 S( t) d3 V$ |; |. h        )
6 v( A3 |  {( Q1 ~! ?
; J8 J0 m7 t0 c;check mono bmp file
7 o5 f, F8 P% V4 V$ K6 V8 U. r        if(!equal(pixel 0x01) then
  A% M; t3 T- K7 y5 ~) H( w                MessageForm("*ERROR* only supports mono bmp files")
' b+ m  z* z" j) ~5 f# i                return()
        )

;BMP2LAY
        max_column = ImageSize/height<<3
* ]$ k  X. k) V2 }        number = offset+ImageSize-1
" u5 b+ V9 W4 j' m. }& \: k
        for(Wnum offset number
# J9 c( q* v* J+ T7 p                row = fix((Wnum-offset)/(max_column>>3))
2 }% d( P6 r$ b, ~0 O+ E                y = Grid*row

                for(i 0 7
                        dot = bitfield1(WORD[Wnum] 7-i)                ; bit<7> ~ bit<0>
                        x = Grid*column
% J! z" p: i$ D# \: i                        if(zerop(dot) && column<width then
! _0 ~1 u* }- C- W2 y                                geSelectObject(dbCreateRect(cv Layer list(x:y x+Grid:y+Grid)))
( a6 k9 _) s0 I3 ^, b7 t) t                        )
( \) G* y  J' q  ]' g                        column++
                );for
                if(equal(column max_column)        column=0)
( u- S  e3 T* W& s6 F+ r: m                Wnum++
        );for

: G% r7 ^0 ^: w' X: [        hiZoomIn(win list(-10:-10 x+10:y+10))
        printf("--- BMP2LAY End ----- %L\nt\n" getCurrentTime())
, X' `% ]6 ~) q# Y; _);let
% g( P& m" b2 i/ y# q
2 R/ m. {% D( {2 s6 G# ~2 K