NOTES‎ > ‎

(m) Оси координат

Описаниединамически изменяемые оси координат
========================================================================

2D-скрипт
:

unID = 1
hotspot2 0, 0, unID, A, 1+256: unID=unID+1
hotspot2 -0.001, 0, unID, A, 3+128: unID=unID+1
hotspot2 A, 0, unID, A, 2: unID=unID+1
hotspot2 0, B, unID, A, 1+256: unID=unID+1
hotspot2 -0.001, B, unID, A, 3+128: unID=unID+1
hotspot2 A, B, unID, A, 2: unID=unID+1
hotspot2 0, 0, unID, B, 1+256: unID=unID+1
hotspot2 0, -0.001, unID, B, 3+128: unID=unID+1
hotspot2 0, B, unID, B, 2: unID=unID+1
hotspot2 A, 0, unID, B, 1+256: unID=unID+1
hotspot2 A, -0.001, unID, B, 3+128: unID=unID+1
hotspot2 A, B, unID, B, 2: unID=unID+1
x=0
y=0
numLine_x=0
numLine_y=0
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
hotline2 x,0,x,0.002+0.003*f5+0.005*f10

while x<a-0.01
do
y=y+0.01
numLine_y=numLine_y+1
if numLine_y/5 = int(numLine_y/5) then f5=1 else f5=0
if numLine_y/10 = int(numLine_y/10) then f10=1 else f10=0
line2 0,y,0.002+0.003*f5+0.005*f10,y
hotline2 0,y,0.002+0.003*f5+0.005*f10,y

while y<b-0.01

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

Comments