關於BMP轉logo

Butler99

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

以下是skill
9 a0 I, t* Q- D" P. ]let((win cv bmpfile bmpSize WORD Wnum number Grid Layer row column max_column
) C% l: T$ k3 G% S3 o/ j        i dot x y signature offset width height pixel ImageSize )
# L! Z: B: C( q5 ], v
: V7 \8 }, j- a) U/ l  J9 [+ z9 i        win = hiGetCurrentWindow()
        cv = getEditRep(win)

        bmpfile = "~/number_mini.bmp"                        ;;; Input BMP File
        Layer = list("TTOPME" "drawing")        ;;; Output Layer
* q/ D# e5 W9 I% F        Grid = 1                                ;;; Rectangle Size
        column = 0

: @+ x# x0 M' Fprocedure(MessageForm(text)
8 k) U/ w: c# e- I    prog( ()
& u* S" \' ^9 C! _1 o        hiDisplayAppDBox(
                ?name 'JWDBox_Message
% T9 W  ~# d3 l                ?dboxBanner "Message!!"
+ B& I* G8 P8 P' c+ b8 K% u; v                ?buttonLayout 'Close
8 h- H# f/ x, w' B) n                ?dboxText text
1 T* O0 N+ D' x" H$ \        )
    );prog
" C& L. V  c( o- W);procedure
! f+ Y3 G5 m' c' R5 r# m2 N
;Read BMP file
& S7 _% J  q; v" |) g- _' v        if(InFile = infile(bmpfile) then
                bmpSize = fileLength(bmpfile)
- k- G! A: O% q' t6 r2 ]) Y; l/ N" F8 }                declare(WORD[bmpSize])
8 ?+ ?# G' p0 B6 |: X7 {                for(Wnum 0 bmpSize-1        WORD[Wnum] = charToInt(getc(InFile)) )
- Z+ k2 J; o6 H+ a5 e                close(InFile)
/ i, q, }5 A) y' E/ Z        else
                MessageForm("Input file does not exist!")
; F  O7 K- |9 f) e: W. |, [                return()
+ c! J  _1 N" O" H" S  F        )
5 L5 ?0 \# D/ J' J" A- Y  k3 [
        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]
        height = (WORD[0x19]<<24) + (WORD[0x18]<<16) + (WORD[0x17]<<8) + WORD[0x16]
- D. z) K' u, l' y) D7 b+ c( R        pixel  = (WORD[0x1d]<<8) + WORD[0x1c]
' c- z; v$ h, N1 |* S        ImageSize = (WORD[0x25]<<24) + (WORD[0x24]<<16) + (WORD[0x23]<<8) + WORD[0x22]
/ S- |! r/ J6 k. `  G- g2 K
        printf("--- BMP2LAY Start --- %L\n" getCurrentTime())
        printf("offset  : 0x%x \n" offset)
8 ]$ j* u: F) A. t/ S6 U% S        printf("width   : 0x%x \n" width)
; z. |% N4 e( G9 T$ b6 z        printf("height  : 0x%x \n" height)
        printf("ImgSize : 0x%x \n" ImageSize)
  B/ j# d! s7 g* Y
, g8 `- c' j3 G: s, F1 h$ P;check bmp file
        if(!equal(signature "424d") then
$ f/ |3 C  @0 Q3 C9 N                MessageForm("*ERROR* Standard Input is not a BMP file")
                return()
% A" a/ L: [2 H0 t: r        )

;check mono bmp file
- V& R8 [& s0 l        if(!equal(pixel 0x01) then
                MessageForm("*ERROR* only supports mono bmp files")
; \3 m" z: N6 K: k3 T& m9 S                return()
        )

0 K$ z7 X" W# P+ L;BMP2LAY
        max_column = ImageSize/height<<3
        number = offset+ImageSize-1

' k; A4 C0 b0 T: e; u  O  _        for(Wnum offset number
. `: |! p; i8 P                row = fix((Wnum-offset)/(max_column>>3))
$ Y3 ~+ e9 v* B                y = Grid*row
  v8 e, |0 V, b/ |3 H' p' `
1 S7 {! [: i8 y2 ^: I+ g% b                for(i 0 7
& h  C6 e+ [5 C# X( I, o                        dot = bitfield1(WORD[Wnum] 7-i)                ; bit<7> ~ bit<0>
                        x = Grid*column
                        if(zerop(dot) && column<width then
/ z+ k" F" X' J9 U  K2 b3 [                                geSelectObject(dbCreateRect(cv Layer list(x:y x+Grid:y+Grid)))
                        )
                        column++
4 h, _0 p% i9 ~" f4 c& c. t( C                );for
                if(equal(column max_column)        column=0)
                Wnum++
" V6 s* g* _: E% C; L" s9 W        );for

        hiZoomIn(win list(-10:-10 x+10:y+10))
        printf("--- BMP2LAY End ----- %L\nt\n" getCurrentTime())
( g  s0 _/ {8 V);let
" M1 u+ v# T" \* ^0 n3 A
0 ~8 B' N; H! E- U