INKIEV . NET

   
Работа     Автомобили     Рефераты     Домены
Главная | Галерея счетчиков | Вход | Регистрация

Просмотр кода прорисовки счетчика:

 

Код прорисовки счетчика:
SetImageSize(88, 40)
DefineColor(1, 255, 255, 255)
Fill(1, 1, 1)
DefineColor(2, 0, 0, 0)
#Rectangle(2 , 0, 0, 87, 39)


SET $C1 = "0" + "0"
SET $C2 = "0" + "0"
SET $C3 = "0" + "0"
SET $C4 = "0" + "0"
SET $C5 = "0" + "0"
SET $C6 = "0" + "0"

SET $X = "$HITS_TODAY" * "1"

##### !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ######
### УДАЛИТЕ ЭТУ СТРОКУ КОГДА БУДЕТЕ ИСПОЛЬЗОВАТЬ ЭТОТ СЧЕТЧИК ####
SET $X = rand(999999)
##### !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ######


if ("$X" < "99999") GOTO("Z5")
SET $C6 = substr("$X", -5, 1)

LABEL "Z5"

if ("$X" < "9999") GOTO("Z4")
SET $C5 = substr("$X", -4, 1)

LABEL "Z4"

if ("$X" < "999") GOTO("Z3")
SET $C4 = substr("$X", -3, 1)


LABEL "Z3"

if ("$X" < "99") GOTO("Z2")
SET $C3 = substr("$X", -2, 1)

LABEL "Z2"

if ("$X" < "9") GOTO("Z1")
SET $C2 = substr("$X", -1, 1)

LABEL "Z1"

SET $C1 = substr("$X", -0, 1)


SET $F = "4" + "0"
SET $FS = "7" + "0"

SET $H_DROW = "38" + "0"

DefineColor(3, 0, 0, 0)

# draw all c(1-6)
Text(3, $F, $FS, 0, 80, $H_DROW, "$C1")
Text(3, $F, $FS, 0, 64, $H_DROW, "$C2")
Text(3, $F, $FS, 0, 49, $H_DROW, "$C3")
Text(3, $F, $FS, 0, 34, $H_DROW, "$C4")
Text(3, $F, $FS, 0, 19, $H_DROW, "$C5")
Text(3, $F, $FS, 0, 4,   $H_DROW, "$C6")


DefineColor(4, 0, 0, 0)

Line(4, 4, 4, 4, 27)
Line(4, 7, 4, 7, 27)
Line(4, 10, 4, 10, 30)
Line(4, 13, 4, 13, 32)
Line(4, 16, 4, 16, 30)
Line(4, 19, 4, 19, 26)
Line(4, 20, 4, 20, 26)
Line(4, 23, 4, 23, 27)
Line(4, 26, 4, 26, 32)
Line(4, 29, 4, 29, 30)
Line(4, 30, 4, 30, 30)
Line(4, 33, 4, 33, 26)
Line(4, 36, 4, 36, 28)
Line(4, 39, 4, 39, 27)
Line(4, 40, 4, 40, 27)
Line(4, 43, 4, 43, 32)
Line(4, 45, 4, 45, 32)
Line(4, 48, 4, 48, 29)
Line(4, 50, 4, 50, 28)
Line(4, 53, 4, 53, 29)
Line(4, 54, 4, 54, 29)
Line(4, 57, 4, 57, 29)
Line(4, 58, 4, 58, 29)
Line(4, 60, 4, 60, 31)
Line(4, 63, 4, 63, 27)
Line(4, 65, 4, 65, 27)
Line(4, 68, 4, 68, 28)
Line(4, 71, 4, 71, 28)
Line(4, 73, 4, 73, 29)
Line(4, 74, 4, 74, 29)
Line(4, 77, 4, 77, 28)
Line(4, 80, 4, 80, 27)
Line(4, 83, 4, 83, 27)
Line(4, 84, 4, 84, 28)



О проекте   Реклама на сайте   Правила использования  
  Inkiev.net.
  Создай свой уникальный счетчик.
  © 2006 - 2012 by INKIEV.net
  Хостинг от Winner-Hosting.com