Проверка кратности

========================================================================

Описание: скрипт создает размерную шкалу; каждой пятой и десятой линии присваивается размер в соответствии с условием

2D-Скрипт:

...

do

  x=x+0.01

  numLine_x=numLine_x+1

  if numLine_x/5 = int(numLine_x/5) then f5=1 else f5=0

  if numLine_x/10 = int(numLine_x/10) then f10=1 else f10=0

  line2 x,0,x,0.002+0.003*f5+0.005*f10

while x<a-0.01

Результат: