gosub words
!include ../functions/graphics
gosub uf
!fon_l(white)
gr.open 255,255,255,255,0,1
gr.screen sw,sh
gr.color 255,204,153,102,1
gr.rect fon,0,0,sw,sh

txsc(10,a$[],-1)

! platform_02()
do
 ! cl=clock_to(cl)
until 0

uf:
fn.def  txsc(qs,s$[],v)
    gr.screen sw,sh
   
    gr.set.stroke 2
   size=sh/30
    lt=10 : tp=size*2 : rt=sw-10
    bt=tp+size*qs
   gr.color 100,0,0,0,1
 gr.rect  shad, 0,tp+4,sw,bt+sh/19

   gr.color 255,50,50,50,1
   gr.paint.get onscreen
   gr.color 255,0,0,0,1
    gr.rect of,lt,tp,rt,bt
 
    gr.color 255,255,255,255,1
    gr.text.size size
    gr.text.align 2
    dim ot[qs+1]
    for i=1 to qs+1
       gr.text.draw ot[i], sw/2,size*i+tp,""
   !   ot[i]= text(lt,size*i+tp-size,"",size,1,1)
    next

   gr.color 100,0,0,0,0

   ramka(lt-4,tp,rt,bt+4,size+size/3)
   gr.color 255,0,0,0,0
   ramka(lt,tp,rt,bt,size+size/3)
   gr.color 255,0,250,0,1
   gr.paint.get ledgreen
   gr.color 255,250,0,0,1
   gr.circle led,sw/30*29,sh/50*21.5,sh/50*0.15
   array.length n,s$[]

   gr.color 255,255,255,255,1
   gr.text.size sh/80
   gr.text.align 2
   gr.text.draw ot,sw/2,sh/50*21.5,"SONY"
  gr.render
  pause 2000
  gr.modify led,"paint",ledgreen
  gr.render
  pause 1000
  gr.modify of,"paint",onscreen
  gr.render

   
do
  for i=1 to qs+1
    gr.move ot[i],,v
    gr.get.position ot[i],xpos,ypos
    if ypos>=bt+size then 
      if t=0 then t=n
      gr.modify ot[i],"y",tp,"text",s$[t--]
    elseif ypos<=tp & t<n then
      gr.modify ot[i],"y",bt+size,"text",s$[++t]
    elseif ypos<=tp & t>=n  then
        gr.modify ot[i],"y",bt+size,"text",""
    endif
  next
  gr.render
until 0
fn.end

fn.def ramka(lt,tp,rt,bt,sz)
    gr.color ,,,,0
    gr.set.stroke sz
    gr.rect r,lt-sz/2,tp-sz/2,rt+sz/2,bt+sz/2
    fn.rtn r
  fn.end
return


words:
s$="История искусственного интеллекта как нового научного направления начинается в середине XX века. К этому времени уже было сформировано множество предпосылок его зарождения: среди философов давно шли споры о природе человека и процессе познания мира, нейрофизиологи и психологи разработали ряд теорий относительно работы человеческого мозга и мышления, экономисты и математики задавались вопросами оптимальных расчётов и представления знаний о мире в формализованном виде; наконец, зародился фундамент математической теории вычислений — теории алгоритмов — и были созданы первые компьютеры. Возможности новых машин в плане скорости вычислений оказались больше человеческих, поэтому в учёном сообществе зародился вопрос: каковы границы возможностей компьютеров и достигнут ли машины уровня развития человека? В 1950 году один из пионеров в области вычислительной техники, английский учёный Алан Тьюринг, пишет статью под названием Может ли машина мыслить?, в которой описывает процедуру, с помощью которой можно будет определить момент, когда машина сравняется в плане разумности с человеком, получившую название теста Тьюринга. eof"
list.create s,lst
for i=1 to len(s$)
  d$=d$+mid$(s$,i,1)
  if mid$(s$,i,1)=" " then
   list.add lst,d$
   d$=""
   endif
next
List.toArray lst, a$[]
return