ASCIIArt 版 (精华区)

发信人: Aaron (野百合), 信区: ASCIIArt
标  题: [转载]3D文字产生器
发信站: 哈工大紫丁香 (Sat Sep 11 12:05:40 1999), 转信

发信人: ZZZZZ ((泡泡龙 ~@\/@~)), 信区: PrettySigner
发信站: 华南网木棉站 (Fri Aug 27 19:39:49 1999), 转信

作者  LeeHigh.bbs@csie.nctu.edu.tw (410290)                看板  ascii 
 标题  3D文字产生器 
 时间  交大资工 凤凰城资讯站 (Thu Feb 29 00:58:53 1996) 
─────────────────────────────────────── 
  
各位,我做了一个3D文字产生器,请试用 
版主大人如果想收到精华版,请E-mail给我,让我知到留传到哪 
  
------------------cut here 
'*******3D TEXT MAKER By leehigh (E-mail:LeeHigh.bbs@csie.nctu.edu.tw) 
'程式设计:新竹中学软研社陈同学 
DECLARE FUNCTION instead$ (typ%) 
DECLARE FUNCTION nowput% () 
DECLARE SUB putchar (posi%, pt%, ar2%) 
DECLARE FUNCTION getsou% (posi%) 
DIM SHARED arrow%, ll%(80), do$ 
  
  
CLS 
  
  
PRINT "          *    *"                         '辅助用 
lines% = 20                                      '总行数 
DIM ot$(lines%) 
  
  
FOR otcx% = 1 TO lines% 
  
   READ do$ 
  
   FOR R% = 1 TO 5 
      ll%(R%) = R% 
   NEXT 
  
   arrow% = 6 
  
   FOR R% = 1 TO LEN(do$) 
      putchar arrow%, nowput%, R% 
      arrow% = arrow% + 1 
   NEXT 
  
   FOR R% = 1 TO 20 
      putchar arrow%, nowput%, 0 
      arrow% = arrow% + 1 
   NEXT 
  
   FOR R% = 1 TO arrow% 
      s$ = s$ + instead$(ll%(R%)) 
      ll%(R%) = 0 
   NEXT 
  
   ot$(otcx%) = s$ 
   s$ = "" 
  
NEXT 
  
FOR R% = 1 TO lines% 
   PRINT ot$(R%) 
NEXT 
  
  
'----------------以下 "1"者会凸出(自行修改) 
DATA "                              " 
DATA "       111111111111111        " 
DATA "    111111111111111111111     " 
DATA " 111111111111111111111111111  " 
DATA "                              " 
DATA "  11111111   1111111111       " 
DATA " 1111111111  11111111111      " 
DATA " 111    111  111      111     " 
DATA "        111  111       111    " 
DATA "        111  111        111   " 
DATA "    111111   111        111   " 
DATA "    111111   111        111   " 
DATA "        111  111        111   " 
DATA "        111  111       111    " 
DATA " 111    111  111      111     " 
DATA " 1111111111  11111111111      " 
DATA "  11111111   1111111111       " 
DATA "                              " 
DATA " 1111111111111111111111111111 " 
DATA "  11111111           1111111  " 
  
  
FUNCTION getsou% (posi%) 
  
IF posi% = 0 THEN 
   getsou% = 0 
   EXIT FUNCTION 
END IF 
  
R$ = MID$(do$, posi%, 1) 
IF R$ = "1" THEN getsou% = 1 ELSE getsou% = 0 
  
  
END FUNCTION 
  
FUNCTION instead$ (typ%) 
  
'可把各instead$改为其它字 
  
SELECT CASE typ% 
   CASE 1 
      instead$ = "a" 
   CASE 2 
      instead$ = "z" 
   CASE 3 
      instead$ = "%" 
   CASE 4 
      instead$ = "@" 
   CASE 5 
      instead$ = "&" 
END SELECT 
  
  
END FUNCTION 
  
FUNCTION nowput% 
  
np% = 15 
  
FOR R% = arrow% - 4 TO arrow% - 1 
   np% = np% - ll%(R%) 
NEXT 
  
nowput% = np% 
  
END FUNCTION 
  
SUB putchar (posi%, pt%, ar2%) 

'-------This is kernal

IF ll%(posi%) = 0 THEN
   ll%(posi%) = pt%
   IF getsou%(ar2%) = 1 THEN
      CALL putchar(posi% + 4, pt%, ar2% + 4)
   END IF
END IF

END SUB                  
--
;0;40m               ;0;40;5m ;37;40;1;5mAvarice;0;40m                              ;0m
;0;40m                        ;0;40;1;5m ;36;40;1;5mAccidie;0;40m                     ;0m
;0;40m              ;0;40;1;5m ;33;40;1;5mAnger;0;40m                                 ;0m
;0;40m    ;0;40;1;5m ;32;40;1;5mGlutton;0;40m                                         ;0m
;0;40m             ;0;40;1;5m ;35;40;1;5mLust;0;40m                                   ;0m
;0;40m              ;0;40;1;5m ;34;40;1;5mEnvy;0;40m ;0;40;1;5m ;31;40;1;5mPride;0;40m                           ;0m
--
═╮╭═══════╦══════╰^^╬^^╯╠╬═╯   
    ╠═══╮ ╭╮ ╠═══╮  ~.  ⊙╬⊙  ╰╩-╗☆╮
═╮║╦═╗║ ╰╯ ║╦═╗║  ..╭═╩═╮╔═-╝  ║
    ╯║  ║║ ╭╮ ╯║　║║ ." ╠╦╦╦║╠-═-═ ║
  ╭- ╬═╝╯ ╰╯╭-╬═╝╯ ===╬╩╩╯║╠═-═- ║
═╯  ╰═-═-═-═╯ ╰-═-═-═-╯╰══╝╰══-═╯
※ 修改:．Aarony 于 Sep 11 12:08:58 修改本文．[FROM: Baggio.hit.edu.c]
--
※ 转寄:．华南网木棉站 bbs.gznet.edu.cn．[FROM: Baggio.hit.edu.c]

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: MAILER-DAEMON@bbs.hi]