LW = 2美元；HI = 100美元；
lencode美元=阵列（'0001101 '，'0011001 '，'0010011 '，'0111101 '，'0100011，
0110001，'0101111 '，'0111011 '，'0110111 '，'0001011）；
rencode美元=阵列（'1110010 '，'1100110 '，'1101100 '，'1000010 '，'1011100，
1001110，'1010000 '，'1000100 '，'1001000 '，'1110100）；
结束=美元'101美元= '01010中心；
必须 / * A 11位数，我们计算校验和的。
如果（strlen（$代码）！= 11）{死（A必须是11位数。）}；}
EAN-13条码校验位计算* / / *
$ nCode = '0'元代码；
$甚至0；奇数= 0；
为（x = 0美元；X元如果（X元% 2）{ $奇数= $ nCode { x美元}；} {即使其他美元美元美元nCode { x }；}
}
为代码。=（10元×3美元((((((奇怪甚至）% 10）%）% 10）；
使用*二进制*字符串创建条形编码
$ = $结束；
美元美元美元lencode酒吧。= {代码{ 0 } }；
为（$ x = 1；X的酒吧。=美元lencode { $代码{ x美元} }；
}
$ = $中心；
为（$ x = 6；X的酒吧。=美元rencode { $代码{ x美元} }；
}
$ = $结束；
生成条形码图像
img =画面欣赏美元（$ LW×95 + 30元+ 30，HI）；
FG = imagecolorallocate美元（美元IMG，0, 0, 0）；
BG = imagecolorallocate美元（美元IMG，255, 255, 255）；
ImageFilledRectangle（$ 0, 0美元的IMG，LW * 95 + 30美元+ 30美元，嗨，BG）；
$移位＝10；
对于（$ x = 0；$ x如果（（$ = 45×$ = 85））{ $ = 10；}，{ $ = 0；}
如果（$酒吧{ x美元} = = 1）{ } {色色美元美元美元美元FG；其他= BG；}
ImageFilledRectangle（IMG美元，（$ X $ LW）+ 15,5，（X + 1）* $ LW + 14 + 5 +美元美元嗨嘘，为彩色）；
}
添加人类可读的标签
imagestring（$ IMG，4,5，Hi-5美元，美元，美元代码{ 0 }，FG）；
为（x = 0美元；X元imagestring（$ 5美元的IMG，LW *（13 + X元×6）+ 15美元+ 5美元，嗨，代码{ x美元+ 1美元}，FG）；
imagestring（$ 5美元的IMG，LW *（53 + X元×6）+ 15美元+ 5美元，嗨，代码{ x美元+ 6美元}，FG）；
}
imagestring（$ 4，$ IMG，LW * 95 + 17美元美元，Hi-5，代码{ 11 }，$ FG）；
输出标题和内容。**
页眉（内容类型：图像）；
imagepng（$ IMG）；
}
UPCAbarcode（'12345678901）；
>
