璇璣圖解

蘇蕙字若蘭。前秦始平人（陝西興平縣東北），
竇滔之妻。滔有寵姬趙陽臺，蘇蕙嫉之，因與滔
相忤，滔斷蕙音，蕙悔恨自傷，因織錦為迴文璇
璣圖以寄滔。滔感其妙絕，因具禮迎蕙。

[字色改編自 http://www.yasue.cc/si_chui1.html]

 
int main()
{
    FILE* in = fopen ("text.txt","rt");
    FILE* out = fopen ("out.txt","wt");
    
    int i;
    char s[10240], t[10240];
    char *br, *r, *p = s, *o = t;

    while (!feof(in)) {
        *p = fgetc (in);
        if (*p != '\n' && *p != '\r') p++;
    }    
    *p = 0;         //檔尾需有個'\n'

    for (p=s; *p; ) 
        if ((br = strstr (p,"<br>")) && br[-1]!='>') {
            for (r=p; r<br; *o++ = *r++); 
            for (i=0; i<11; ++i) 
                *o++ = "</font><br>"[i];
            p = br + 5;
            if (br = strstr (p,"<font")) 
                for (i=0; i<sizeof("<font color=\"#0000ff\">"); ++i)
                    *o++ = *br++;            
        } else { while(*o++ = *p++); break; }
    fputs (t, out);    
    fclose (in);   
    fclose (out);       
}

琴清流楚激絃商秦曲發聲悲摧藏音和詠思惟空堂心憂增慕懷慘傷仁
芳廊東步階西遊王姿淑窈窕伯邵南周風興自后妃荒經離所懷歎嗟智
蘭休桃林陰翳桑懷歸思廣河女衛鄭楚樊厲節中闈淫遐曠路傷中情懷
凋翔飛燕巢雙鳩土迤逶路遐志詠歌長歎不能奮飛妄清幃房君無家德
茂流泉清水激揚眷頎其人碩興齊商雙發歌我袞衣想華飾容朗鏡明聖
熙長君思悲好仇舊蕤葳桀翠榮曜流華觀冶容為誰感英曜珠光紛葩虞
陽愁歎發容摧傷鄉悲情我感傷情徵宮羽同聲相追所多思感誰為榮唐
春方殊離仁君榮身苦惟艱生患多殷憂纏情將如何欽蒼穹誓終篤志貞
牆禽心濱均深身加懷憂是嬰藻文繁虎龍寧自感思岑形熒城榮明庭妙
面伯改漢物日我兼思何漫漫榮曜華彫旌孜孜傷情幽未猶傾苟難闈顯
殊在者之品潤乎愁苦艱是丁麗壯觀飾容側君在時巖在炎在不受亂華
意誠惑步育浸集悴我生何冤充顏曜繡衣夢想勞形峻慎盛戒義消作重
感故暱飄施愆殃少章時桑詩端無終始詩仁顏貞寒嵯深興后姬源人榮
故遺親飄生思愆精徽盛醫風比平始璇情賢喪物歲峨慮漸孽班禍讒章
新舊聞离天罪辜神恨昭盛興作蘇心璣明別改知識深微至嬖女因奸臣
霜廢遠微地積何遐微業孟鹿麗氏詩圖顯行華終凋淵察大趙婕所佞賢
水故離隔德怨因幽元傾宣鳴辭理興義怨士容始松重遠伐氏好恃凶惟
齊君殊喬貴其備曠悼思傷懷日往感年衰念是舊愆涯禍用飛辭恣害聖
潔子我木平根當遠歎水感悲思憂遠勞情誰為獨居經在昭燕輦極我配
志惟同誰均難苦離戚戚情哀慕歲殊歎時賤女懷歡網防青實漢驕忠英
清新衾陰勻尋辛鳳知我者誰世異浮寄傾鄙賤何如羅萌青生成盈貞皇
純貞志一專所當麟沙流頹逝異浮沉華英翳曜潛陽林西昭景薄榆桑倫
望微精感通明神龍馳若然倏逝惟時年殊白日西移光滋愚讒漫頑凶匹
誰雲浮寄身輕飛昭虧不盈無倏必盛有衰無日不陂流蒙謙退休孝慈離
思輝光飭桀殊文德離忠體一達心意志殊憤激何施電疑危遠家和雍飄
想群離散妾孤遺懷儀容仰俯榮華麗飾身將無誰為逝容節敦貞淑思浮
懷悲哀聲殊乖分聖貲何情憂感惟哀志節上通神祇推持所貞記自恭江
所春傷應翔雁歸皇辭成者作體下遺葑菲採者無差生從是敬孝為基湘
親剛柔有女為賤人房幽處己憫微身長路悲曠感生民梁山殊塞隔河津