Предыдущая страница реферата | 8  9  10  11  12  13  14  15  16  17  18 | Следующая страница реферата



ENDIF

//*******ВЫБОР ВИДА ПЛАТЫ******************************

exit:=alltrim(exittmp)

CLEAR GETS

st:=1

cls

DO WHILE (st4) //Предлагается меню, где можно выбрать направление взгляда на плату

cglold:=setcolor('n/rg')

@ 9,12 CLEAR TO 11,maxcol()-13

@ 9,12 TO 11,maxcol()-13 DOUBLE

set cursor off

set scoreboard off

readexit(.F.)

set cursor on

@ 10,14 say "Имя получаемоемого файла......" color ('w+/rg') get exittmp picture 'NNNNN' color('gr+/gr,n/w')

setpos(10,50)

dispout('.frg','w+/gr')

setcolor(cglold)

mas:={{'Двумерная','Трехмерная ','Имя файла','Выход'},{"Создание файла вида сбоку(двумерное изображение)","Создание файла вида со стороны(трехмерное изображение)",'Изменить имя получаемоемого файла','Выход в главное меню'}}

st:=MENU (mas,13,st)

IF st=1

@ 9,0 CLEAR TO maxrow(),maxcol()

set cursor off

TO2D(kolkomp) //пересчет точек привязки в трехмерные координаты

PRINTINFO()

ERRF()

inkey(6)

cls

ELSEIF st=2

@ 9,0 CLEAR TO maxrow(),maxcol()

set cursor off

TO3D(kolkomp) //пересчет точек привязки в трехмерные

координаты

PRINTINFO()

ERRF()

inkey(6)

cls

ELSEIF st=3

set cursor on

read

exit:=alltrim(exittmp)

set cursor off

ELSEIF st=0

st=4

ENDIF

Рекомендуем скачать другие рефераты по теме: шпори, рефераты по биологии.

Предыдущая страница реферата | 8  9  10  11  12  13  14  15  16  17  18 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки