[Max286]

Вот в этом скрипте выдает ошибку "Предложение RETURN без GOSAB в строке такой-то"
Да, собственно, вообще не могу организовать подпрограмму из-за этой ошибки...
В чем ошибка?

AC 8.1 2284

Код: [Выделить]

if daruch="Да" then

xr=(a-sr)/2              ! Координаты начала рисования ручки
yr=b*kh/100           ! Координаты начала рисования ручки
zr=c+sr*0.07          ! Координаты начала рисования ручки

GOSUB 100: !ручка

endif

del top

100 : !ручка
material m_r
add xr,yr,zr
roty 90
CYLIND sr,dr/2
SPHERE dr/2
add 0,0,sr
SPHERE dr /2
del 2
add d/1.8+dr,0,0
roty 180
CYLIND sr*0.06+dr/2+c/2,dr/2
del 2
add sr-d/1.8-dr,0,0
roty 180
CYLIND sr*0.06+dr/2+c/2,dr/2
RETURN

[Valery W]

В конце основного скрипта надо ставить END. Я сказал "основной" потому, что скрипт начинающийся с метки и заканчивающийся на RETURN можно считать как дополнительный или ссылочнный. А по правилам он называется "подпрограмма".
Хорошо, что у тебя GOSUB стоит в команде IF и условие "Да" при проверке скрипта не было верным (не выполнялось), а то бы GDL-интерпретатор заходил по кругу. Пришлось бы жать на три кнопки, что-бы остановить процесс.

Код: [Выделить]

if daruch="Да" then
  xr=(a-sr)/2
  yr=b*kh/100
  zr=c+sr*0.07
  GOSUB 100
endif
del top

END

100:
..............
..............
RETURN
P.S. После "GOSUB 100" не надо ставить двоеточие.

[Max286]

Блин, читал же про END, и забыл тут же...
Спасибо Большое, сейчас попробую.

Просто,хочу немного разбираться в GDL.

Правда, меня смущает это:

Хорошо, что у тебя GOSUB стоит в команде IF и условие \"Да\" при проверке скрипта не было верным (не выполнялось), а то бы GDL-интерпретатор заходил по кругу. Пришлось бы жать на три кнопки, что-бы остановить процесс.

Это почему это?

В натуре, SOFTMACHINE Forever!!!

[Valery W]

Да потому, что в конце дня голова уже не варит.

Не будет ходить по кругу. 

Будет один "возврат" после RETURN в место сразу после GOSUB 100. Снова дойдет до RETURN (когда не стоит END) и выдаст сообщение "Предложение RETURN без GOSUB в строке такой-то". При этом два раза будет исполнен скрипт подпрограммы.

[Max286]

Еще раз спасибо за отзывчивость!

Трудно жить без добрых людей.
А с ними-хорошо!