MetaPost语言编写的赛马程序

609973737

急求一段程序，题为赛马
要求四匹用四方框代替的赛马（编号为１，２，３，４）被五条横线间隔　，从左向右跑，结果随即，结束显示结果，按间开始．

[ 本帖最后由 converse 于 2007-12-27 20:35 编辑 ]

cjaizss

开个价格吧，可能会有人有兴趣

doctorjxd

MetaPost语言 自娱自乐

#!/bin/sh genmpost() { cat -  << EOF def Drawhorses(expr ha,hb,hc,hd)= begingroup save i, line_s, line_e, line_w, line_h, line_hw; pair line_s, line_e, line_h; line_s:=(0,0); line_e:=(5cm,0); line_w:=8mm; line_h:=(0,2mm); line_hw:=4mm; draw (-3,-3mm) withcolor white; draw (53mm,35mm) withcolor white; for i=0 step 1 until 4:   draw (line_s -- line_e) shifted (0,line_w*i) withpen pencircle scaled 3pt ;   numeric myshift;   if i=0: myshift:=ha; else: if i=1: myshift:=hb; else: if i=2: myshift:=hc; else: myshift:=hd; fi; fi; fi;   if i<=3:      draw (line_h -- line_h shifted (line_hw,0) -- line_h shifted (line_hw, line_hw) -- line_h shifted(0, line_hw) -- cycle) shifted (myshift, i*line_w) withpen pencircle scaled 4pt;     fi; endfor; endgroup enddef; EOF awk 'BEGIN{       "date +%s" | getline myseed; srand(myseed);       ha=0;hb=0;hc=0;hd=0; myend=46; i=1000;       while(ha < myend && hb < myend && hc < myend && hd < myend )       {         ha+=rand()*2;         hb+=rand()*2;         hc+=rand()*2;         hd+=rand()*2;         printf("beginfig(%3d)\n",i++);         printf("Drawhorses(%fmm,%fmm,%fmm,%fmm);\n",ha,hb,hc,hd);         print "endfig;";       }       print "end;";       exit;     }' } genmpost > mytmpmposthorse.mp mptopdf mytmpmposthorse.mp convert -sampling-factor 1  mytmpmposthorse-[0-9]???.pdf horses.gif rm mytmpmposthorse-[0-9]???.pdf rm mytmpmposthorse.[0-9]??? rm mytmpmposthorse.mp

[ 本帖最后由 doctorjxd 于 2007-12-27 17:32 编辑 ]

doctorjxd

马儿跑的欢

        

        

[ 本帖最后由 doctorjxd 于 2007-12-27 17:49 编辑 ]

win_hate

redspider

你太帅了，我找来找去 MetaPost 的教程只有英文的，看得头晕，以后就请教你了。

doctorjxd

原帖由 redspider 于 2007-12-27 17:56 发表
你太帅了，我找来找去 MetaPost 的教程只有英文的，看得头晕，以后就请教你了。

我也是才学不久，共同学习，呵呵。

我是看Metapost手册， 还有网上的example

doctorjxd

原帖由 win_hate 于 2007-12-27 17:50 发表

谢谢版主鼓励。

暗底

我想问一下 这东西 怎么运行啊?  在哪里运行?

converse

做个保留