ADDITIONS

Приложение 1

to startup 
active myth1.shp пейзаж коровы старик гермес гермес_идет гермес_и_коровы обмен гермес_уходит изчезновение превращение_гермеса  end

to пейзаж
rg
setsh 36 pu fd 95 lt 90
pd fd 480 lt 90 fd 189 rt 90 fd 318 
rt 90 fd 290 rt 90 fd 480 lt 90 
pu fd 20 setc 10 pd fill
pu fd 120 setc 15 pd fill
pu setpos [137 71] setc 14 setsh 12
pd stamp ht pu setc 1 home
end

to гермес
tell [0 1] pu
ask 0 [setpos [150 -10] setsh 48 st]
ask 1 [setpos [150 -30] setsh 51 st]
setc 12
end 

to гермес_идет
seth -90
repeat 93[fd 1 wait 2]
wait 20
end

to коровы
ask 2 [ht pu setc 0 setpos [40 -25] setsh 10 st] 
end   

to старик
ask 3[setc 13 pu setpos [-90 -10] setsh 8 st pd
stamp pu ht setpos [-90 -30] setsh 7 pd
st stamp ht]
end

to гермес_и_коровы
ask 2[setsh 5 wait 20]
tell [0 1 2]
seth -90
repeat 113[
fd 1
wait 2]
end

to обмен
wait 20
ask 2 [setsh 53]
ask 3 [pu setc 8 setsh 6 setpos [-106 -5] st pd stamp pu ht]
wait 20
end

to гермес_уходит
repeat 78 [
fd 1
wait 2]
end

to изчезновение
ask 2[ht]
tell [0 1]
repeat 15[
fd 1
wait 2]
ht
wait 20
end

to превращение_гермеса
ask 0[setsh 1]
ask 1[setsh 2]
tell[0 1]
st
end

Приложение 2

to  startup
active myth2.shp
 rg tell all
 pu 
 море
 земля
 деревья
 дионис
 корабль
 разбойники
 уплыл
 палуба
 герои
 дионис_колдует
 дельфины_падают
end

 to море
 setpos [-100 95]
 rt 130
 pd fd 300
 pu setc 13 setpos [120 60] pd fill pu
end

to  земля
 pu setc 6 setpos [-120 -90] pd fill pu
end


to деревья
setc 15 setsh 23
pu  
setpos [-120 -60] stamp
pu setpos [-130 -50] pd stamp
pu setpos [-110 -40] pd stamp 
pu  setpos [-90 30]     pd stamp pu
pu  setpos [-80 60] pd stamp pu
pu  setpos [-125 -55] 
    pd stamp 
pu  setpos [-40 -60] 
    pd stamp 
pu  setpos [-60 -20] 
    pd stamp 
pu  setpos [-20 -70] 
    pd stamp 
pu  setpos [-120 -10] 
    pd stamp 
pu  setpos [-130 -40] 
    pd stamp 
pu  setpos [-120 70] pd stamp pu
end

to дионис
ask 0[pu setc 10 setpos [0 0] setsh 37 st]
end

to  корабль 
 ask 1[pu setpos [140 0] seth 270 repeat 55 [st setsh 31 fd 2 wait 2
           setsh  32 wait 2]]
end

to разбойники
ask 2[setc 14 setpos [20 -20] setsh 33
 st rt 180]
ask 3[setc 14 setpos [-12 18] setsh 34
 st ]
repeat 15 [ask 2[fd 2] ask 3[fd 2] wait 10] 
ask 0[lt 45]
ask 2[rt 135]
ask 3[lt 45]
repeat 13 [ask 0[fd 2]  ask 2[fd 2] ask 3[fd 2] wait 5]
ask 0[ht] ask 2[ht] ask 3[ht]
end

to уплыл
 ask 1[pu seth 90 
       setsh 55 wait 10
       setsh 56 wait 10
repeat 60 [st setsh 56 fd 2 wait 2
              setsh  57 wait 2]]
end

to палуба
rg
rt 90 fd 100 lt 180
fd 200 rt 45 fd 40 lt 45
fd 30 lt 45 fd 20 rt 45
fd 50 lt 90 fd 20 
pu
fd 60 pd rt 90 fd 500
pu
rt 90 fd 60 rt 90 fd 55 lt 90 
pd 
fd 91
pu 
rt 90 fd 15 rt 90
pd
fd 91 rt 180 fd 50 rt 90 fd 5 rt 90
pu 
fd 30 setpos [-12 40] lt 135
pd 
fd 60 lt 45 fd 12 
pu
setpos [0 -70]
setc 13 
pd fill
pu 
setpos [-140 40] setc 1 pd setsh 53 stamp
end


to герои
tell all
ask 0[pu setc 10 setsh 37 setpos [-5 10] ]
ask 1[pu st setc 4 setsh 58 setpos [65  10] ]  
ask 2[pu st setc 2 setsh 51 setpos [115  25] pd stamp pu]  
ask 2   [pu st setc 14 setsh 34 setpos [-140 40 ]]  
ask 3 [pu st setc 14 setsh 33 setpos [-35 10]]
end  

to дионис_колдует
ask 0 [repeat 5[setsh 40 wait 4 setsh 37 wait 4]]
tell [2 3]
превращение
end


to превращение 
setsh 41 wait 4
setsh 42 wait 4
setsh 43 wait 4
setsh 44 wait 4
setsh 45 wait 4
setsh 46 wait 4 
setsh 47 
end

to дельфины_падают
seth 135
repeat 60[fd 2 wait 1]
ask 3[setsh 48 pd stamp pu ht]
ask 2 [repeat 15 [fd 2 wait 1] setsh 48 pd stamp pu ht]
end

To active :name
if member? "shapes.shp filelist [erasefile "shapes.shp]
copyfile :name "shapes.shp 
getshapes
end

ADDITION 3

to startup
openshp "serg
getshapes
church
closeshp "ser
end

to church
rg ct pu 
make "x -125 sety -65 setsh 5
repeat 2[repeat 8[pu setx :x pd stamp make "x :x + 15] make "x 20]setsh 13
pu setpos [0 -65] pd stamp
setc 5 pu setpos [0 -60] pd fill setc 1
pu setpos [-60 -37] pd setsh 4 stamp
pu setpos [-65 -42] pd fill
setc 15 pu setpos [-60 -37] pd setsh 9 stamp setc 1
pu setpos [-40 -46] pd setsh 14 stamp
setc 15 pu setpos [-40 -40] pd fill setc 1
pu setpos [ -25 -26] pd setsh 6 stamp
pu setpos [35 -56] pd stamp
pu setpos [-25 -6] pd setsh 15 stamp
pu setpos [-25 -21] pd setc 5 fill setc 1
pu setpos [35 -36] pd setsh 16 stamp
pu setpos [35 -51] pd setc 5 fill setc 1 pu setpos [35 -16] pd setsh 8 stamp
setc 2 fill 
pu setpos [35 -21] pd fill setc 1
pu setpos [35 -11] pd setsh 9 stamp
pu setpos [35 4] pd setc 14 setsh 1 stamp fill
pu setpos [35 19] pd setsh 2 stamp
setc 1
pu setpos [0 -49] pd setsh 17 stamp
pu setpos [5 -44] pd setc 5 fill
pu setpos [-5 -44] pd fill setc 1
pu setpos [0 -30] pd setsh 7 stamp
pu setpos [0 -20] pd setsh 3 stamp setc 14
pu setpos [0 0] pd setsh 1 stamp fill
pu setpos [0 15] pd setsh 2 stamp setc 1 pu setpos [-25 15] pd setsh 7 stamp
pu setpos [-25 24] pd setsh 3 stamp
pu setpos [-25 44] pd setsh 1 setc 14 stamp fill
pu setpos [-25 59] pd setsh 2 stamp
pu setpos [105 -26] pd setsh 13 setc 1 stamp
pu setpos [90 -26] pd setsh 19 stamp
pu setpos [75 -26] pd setsh 19 stamp
pu setpos [120 -26] pd setsh 19 stamp
pu setpos [135 -26] pd setsh 19 stamp
make "x 75 sety -6
repeat 5[pu setx :x pd setsh 20 stamp make "x :x + 15]
pu setpos [135 14] pd setsh 8 stamp
pu setpos [75 14] pd setsh 8 stamp
pu setpos [75 21] pd setc 12 setsh 9 stamp
pu setpos [135 21] pd stamp
pu setpos [135 36] pd setc 14 setsh 1 stamp fill
pu setpos [75 36] pd stamp fill
pu setpos [135 51] pd setsh 2 stamp 
pu setpos [75 51] pd stamp 
pu setpos [-30 -34] pd setc 14 ht
rt 180 fd 7 lt 30 fd 9 lt 15 fd 24
pu setpos [-20 -36] pd seth 0
rt 180 fd 5 lt 30 fd 7 lt 15 fd 10
pu setpos [100 -34] pd lt 270 fd 10 rt 
23 fd 10 rt 22 fd 30 lt 10 fd 10 
pu setpos [109 -36] pd seth 0 lt 140 fd 10 rt 23 fd 19 rt 27 fd 35 lt 10 fd 10
make "x1 -124 make "y1 -54 make "sh 24 setc 1
repeat 7[pu setpos list :x1 :y1 pd setsh :sh stamp ifelse :sh = 24 [make "sh 25 make "x1 :x1 + 15 make "y1 :y1 + 5] [make "sh 24 make "x1 :x1 + 5 make "y1 :y1 + 20]]  
pu setpos [-49 31] pd setsh 5 setc 1 stamp
pu setpos [-34 31] pd setsh 26 stamp
pu setpos [-14 31] pd setsh 5 stamp
pu setpos [1 31] pd stamp
pu setpos [16 31] pd stamp
pu setpos [31 31] pd setsh 28 stamp
pu setpos [40 51] pd setsh 29 stamp
pu setpos [55 61] pd setsh 30 stamp
pu setpos [64 71] pd setsh 27 stamp
pu setpos [79 71] pd setsh 27 stamp
pu setpos [94 71] pd setsh 27 stamp
pu setpos [109 71] pd setsh 27 stamp
pu setpos [124 71] pd setsh 27 stamp
pu setpos [139 71] pd setsh 27 stamp
pu setpos [154 71] pd setsh 31 stamp
pu setpos [141 -72] pd setsh 32 stamp
end 

___________________________________


to startup
openshp "church
getshapes yarsl
closeshp "church
end


to ark
rg setsh 1 pd stamp pu setsh 0
setx -8 sety -9
scangr 11 13 "ark.2
end

tO OK 
RG
setsh 2 pd stamp pu setsh 0
setx -8 sety -9
scangr 13 15 "OK.2
END 

tO kup
RG
setsh 4 pd stamp pu setsh 0
setx -8 sety -9
scangr 9 19 "kup.1
END 

tO nus 
RG
setsh 5 pd stamp pu setsh 0
setx -7 sety -9
scangr 14 19 "nus.1
END 

to chur_olga
pu setpos [-145 -70]
rescangrf "ok.2 2 sety -70
pu setx -145 + 22 + 6
rescangrf "ok.2 2 sety -70
pu setx -118 + 22 + 8
rescangrf "ok.2 2
pu setpos [-135 -30]
setc 1 pd redrw "olga 2
pu setpos [-131 -22]
rescangrf "ark.2 1
pu setpos [-107 -22]
rescangrf "ark.2 1
pu setpos [-84 -22]
rescangrf "ark.2 1
ht 
pu setpos [-137 18]
rescangrf "kup.1 2
pu setpos [-85  18]
rescangrf "kup.1 2
pu setpos [-115 22]
rescangrf "kup.1 3
setsh 35
pu setpos  [-134 -40]
pd stamp
pu setpos [-118 -40] setsh 36
pd stamp
pu setpos [-102 -40] setsh 36
pd stamp
pu setpos [-86 -40] setsh 36
pd stamp
pu setpos [-80 -40] setsh 36
pd stamp
pu setpos [-69 -40] setsh 37
pd stamp
pu setsh 38 
setpos [-139 15]
pd stamp
setsh 40 pu setpos [-64 15]
pd stamp
setsh 39 pu setpos [-80 15]
pd stamp
setsh 39 pu setpos [-96 15]
pd stamp
setsh 39 pu setpos [-112 15]
pd stamp
setsh 39 pu setpos [-118 15]
pd stamp
setsh 41 pu setpos [-108 25]
pd stamp
setsh 41 pu setpos [-95 25]
pd stamp
pu setpos [-142 -72] pd setx -62
end

to kol
make "bt [-40 -58]
pu setpos :bt rescangrf "nus.1 1.2
pu setx first :bt 
   sety (last :bt) + 19 * 1.2
rescangrf "nas.1 1.2 
pu setx (first :bt) + 1
   sety (last :bt) + (19 * 1.2) * 2
rescangr "nos.2 1
pu setx (first :bt) + 0.7 
   sety (last :bt) + (19 * 1.2) * 2  + 19
rescangr "nes.1 0.9
pu setpos [-30.3 26.6]
ht setc 1 setsh 31 pd stamp

end
to bor
pu setpos [-44.3 -68.4]
rescangr "ak.1 1 
pu setpos [-59.3 -68.4]
rescangr "lop.3 1 
pu setpos [-34.3 -68.4]
rescangr "lop.3 1 
pu setpos [-19.3 -68.4]
rescangr "lop.3 1 
pu setpos [-4.3 -68.4]
rescangr "lep.1 1 
pu setpos [12.3 -68.4]
rescangr "lep.2 1 
pu setpos [29.3 -68.4]
rescangr "lop.3 1 
pu setpos [44.3 -68.4]
rescangr "ak.1 1 
pu setpos [55.3 -68.4]          
rescangr "lop.3 1 
pu setpos [3.6 -48.4]          
rescangr "mak.1 1 
pu setpos [3.2 -28.4]          
rescangr "mok.1 1 
pu setpos [12.8 -5.9]
ht setc 1 setsh 31 pd stamp

end 
==============
ФОН
to trees
setc 7
repeat 80 [pu setpos 
    list random 300 random 160
    setsh 23 pd stamp pu]
pu setpos [37 -41] setsh 20 setc 6

end

to yarsl
trees
chur_olga
kol
bor
end
__________________________________________________
Author Starokogev Misha, Rychkov Sasha,  Paranichev  Sergey
Cherepovets

to startup
openshp "ss
getshapes ss
closeshp "ss
end


to ss
rg
pu
lt 90 fd 100 setsh 40 pd stamp
pu setsh 44 rt 180 fd 15
pd stamp pu
setsh 45 fd 15
pd stamp pu
setsh 46 fd 15 pd stamp pu
setsh 47 fd 15 pd stamp pu
setsh 41 fd 15 pd stamp pu
setsh 43 lt 90 fd 20 
pd stamp pu
setsh 52 lt 90 fd 15 
pd stamp pu
setsh 51 fd 15 pd stamp pu
setsh 50 fd 15 pd stamp pu
setsh 48 fd 15 pd stamp pu
setsh 42 fd 15 pd stamp pu
setsh 53 rt 90 fd 20
pd stamp pu
setsh 55 rt 90 fd 15 
pd stamp pu
setsh 56 fd 15
pd stamp pu
setsh 57 fd 15
pd stamp pu
setsh 58 fd 15 
pd stamp pu
setsh 54 fd 15 pd stamp pu
setsh 59 lt 180 fd 37 rt 90 fd 20
pd stamp pu
setsh 1
lt 180 fd 20
setc 9
pd fill
lt 90
pu fd 35
rt 90 fd 5
pd fill
pu rt 90 fd 74
pd fill
setc 2
lt 90 pu fd 10
pd fill
lt 90 pu fd 10
pd fill
rt 90 pu fd 15
pd fill
lt 90 pu fd 20
pd fill
pu fd 15 pd fill
pu fd 15 pd fill
pu fd 15
lt 180 
fd 3
lt 90 fd 5
pd setc 7 fill
lt 90 pu fd 10
pd fill
pu lt 180 fd 80
pd fill
pu fd 3 
pd fill
pu rt 90 fd 15
rt 90 fd 10
rt 180 fd 1
setc 2 pd fill
pu
lt 90 fd 6
lt 90 fd 2
rt 90 fd 1 lt 90
setc 2 pd fill
pu fd 4 pd fill
pu fd 4
pd fill pu
fd 4 pd fill
pu fd 4 pd fill pu
fd 4 pd fill pu
fd 4 pd fill pu
fd 4 pd fill pu
lt 180 pu fd 1
pd fill
lt 180 pu fd 4
pd fill
pu fd 3
pd fill
pu fd 4 pd fill
pu fd 4 
pd fill
pu fd 3 
pd fill
pu fd 4
pd fill
pu fd 4 pd fill
pu fd 4 pd fill
pu fd 3 pd fill
rt 90 pu fd 2
pd fill
rt 90 pu fd 80
rt 180 fd 10
pd fill
rt 90 pu fd 19
pd fill
lt 90 pu fd 70
pd fill
pu lt 90 fd 65
lt 90 fd 30
rt 90 fd 4
pd fill
rt 90 pu fd 7
rt 90 pu fd 7
rt 90 fd 5
pd fill
lt 90 pu fd 3
rt 180 fd 1
pd fill
fd 6
pu lt 90 fd 6
lt 90 pd fd 5
setsh 60 pu fd 73
rt 90 fd 40
rt 180 fd 5
setc 1
lt 90 fd 1
pd stamp
setsh 61
rt 90 pu fd 75
pd stamp
setsh 1
lt 90 pu fd 5
fd 1
setc 6 pd fill
pu fd 2
pd fill
pu lt 90 fd 75
pd fill
pu lt 90 fd 2
pd fill
pu lt 180 fd 40
rt 90 fd 7
rt 90 setc 2 pd fd 14
pu lt 90 fd 13
fd 1
rt 90 fd 1 pd lt 180 fd 3
pu rt 90 fd 15
pd rt 90 fd 3
pu lt 90 fd 15
lt 90 pd fd 3
pu rt 90 fd 3 
rt 90 pd fd 3

ht
end
___________________________

to openshp "shp_name
if member? "shapes.shp filelist
  [if member? "#shapes.shp filelist
     [erasefile "#shapes.shp]
rename "shapes.shp "#shapes.shp]
name word :shp_name ".shp "shp_name
if member? :shp_name filelist
   [rename :shp_name "shapes.shp]
end

to closeshp "shp_name
if member? "shapes.shp filelist
   [rename "shapes.shp 
         word :shp_name ".shp]
if member? "#shapes.shp filelist
   [rename "#shapes.shp "shapes.shp]
end

Addition 4

To start
ct rg
active.shp "animals
make "color       [7 15 7 6 14 9 12 4 11 2]
make "shapes.list [1 2 3 4 5 6 7 8 9 10 ] 
make "function.list
[
[pd stamp pu]
[pd stamp pu]
[pd stamp pu]
[st seth 40 + random 50 fd 25 pd stamp pu ht]
[st seth 50 + random 40 fd 30 pd stamp pu ht]
[st fd 30 wait 5 pu ht]
[st fd 23 wait 5 pu ht]
[st fd 20 wait 5 pu ht]
[st fd 20 pd stamp pu ht]
[st fd 25 pd stamp pu ht]
]
game pl++ 10
end


To game :list
show map [count ?] :list
make "funct.list :function.list
make "shp :shapes.list
make "col :color
make "new []
make "ver.list diff.luck :list  
repeat count :list 
[
setc first :col setsh first :shp
ifelse empty? first :list [make "new lput [] :new]
[make "new lput funct++ first :list :new]
make "list bf :list
make "ver.list bf :ver.list
make "funct.list bf :funct.list
make "shp bf :shp
make "col bf :col
]
make "list :new
game :list
end

To funct++ :list
if empty? :list [op []]
op se funct+ first :funct.list first :ver.list first :list funct++ bf :list
end

To funct+ :funct1 :ver :pos
name life? :ver "bld
if equal? :bld  "birth [ ht pu rt random 360 fd 20 + random 50  op list pos :pos]
if equal? :bld "live 
[run :funct1 op lput pos []]
pd make "c color setc 0 stamp setc :c pu op []
end



Life - :list - элементы списка - 3 цифры - первая определяет 
число 11, вторая 10, третья - 00
Функция Pick выбирает случайное число из образующегося списка.
Процедура LIFE? выдает рождение, жизнь или смерть.

To life? :list
if not list? :list [stop]
make "word pick1
if equal? 11 :word
[clearname "word op "birth]
if equal? 10 :word
[clearname "word op "live]
if equal? 00 :word
[clearname "word op "dye]
end

To pick1
if empty? :list [op "ppp]
op pick (se 11_list first :list 10_list first bf :list 00_list last :list)
end

to 00_list :num
if equal? 0 :num [op []]
op se  "00 00_list :num - 1
end

To 10_list :num
if  :num = 0 [op []]
op se "10 10_list :num - 1
end

To 11_list :num
if  :num = 0 [op []]
op se "11 11_list :num - 1
end

to pick :list
op item 1 + random count :list :list
end

to zero_list :num
if  :num < 0 [op 0]
op se 0 zero_list :num - 1
end


to mod :n
if :n > 0 [op :n]
op (0 - :n)
end

______
PL+ - создает список элементов, каждый из которых определяет 
положение точки на экране.

to pl+ :num  
if :num = 0 [op []]
op se lput  list 300 - random 600 200 - random 400  [] pl+ :num - 1
end

to pl++ :num
if :num = 0 [op []]
op fput pl+ :num pl++ :num - 1
end

__________
Список вероятностей для десяти элементов.

to diff.luck :list
op (list
(list 10 10 sum organ 4 organ 5) 

(list 10 20 sum organ 4 organ 5)

(list 5 10 sum organ 4 organ 5)

(list 5 2 * ((organ 1) + (organ 2) + (organ 3)) 2 * ((organ 6) + (organ 7) + (organ 8)))

(list 5 2 * ((organ 1) + (organ 2) + (organ 3)) 2 * ((organ 6) + (organ 7) + (organ 8))) 

(list 3 (organ 4) + (organ 5) + (organ 10) 2 * (sum organ 9 organ 8))

(list 5 (sum organ 4 organ 6 ) 2 * (organ 9))

(list 5 2 * (sum organ 4 organ 6 ) 2 * (sum organ 9 organ 8))

(list 5 (organ 4) + (organ 5) + (organ 6) + (organ 7) + (organ 8) 2 * (organ 10))

(list 5 2 * (organ 9) organ 6)

)
end

To organ :n
if :n > count :list [STOP]
op count item :n :list
end

To active.shp :name
if member? "shapes.shp filelist [erasefile "shapes.shp]
copyfile :name "shapes.shp
getshapes
end


     To Map :template :inputs
     if word? :inputs [op map_word :template :inputs]
     op map_list :template :inputs
     end
     
     to map_word :template :inputs
     if empty? :inputs [op "]
     op word ( run stuff Quoted first :inputs :template)
     ( map_word :template bf :inputs)
     end
     
     to map_list :template :inputs
     if empty? :inputs [op []]
     op fput ( run stuff quoted first :inputs :template)
     ( map_list :template bf :inputs )
     end
     
     to map_se :template :data
     op reduce "se map :template :data
     end
 -----------------------------------   
     to quoted :thing
     if list? :thing [ op :thing]
     op word "" :thing
     end
     
     to stuff :thing :template
     if empty? :template [op []]
     if equal? first :template "? [op fput :thing stuff
     :thing bf :template]
     if word? first :template [ op fput first :template
     stuff :thing bf :template]
     op fput ( stuff :thing first :template) ( stuff :thing bf
    :template)
      end

   to Reduce :function :list
     if empty? bf :list [op first :list]
op run (list :function ( Quoted first :list) ( quoted reduce :function bf :list ))
end
   
to Summa :list    
op  reduce "sum :list 
end
     
to sum :i :g
op ( :i + :g)
end

Приложение 5

To demo1 active "room.shp 
prez1 [0 [70 20] 2] [10 [-90 70] 15]
[10 [-90 70] 15] [10 [-90 70] 15] [10 [-90 70] 15] [10 [-90 70]
15] [10 [-90 70] 15] [10 [-90 70] 15] [10 [-90 70] 15] [10 [-80
-50] 20] [10 [110 -60] 2] [10 [110 -60] 2] [10 [110 -60] 2] [10
[0 -50] 9] [14 [-30 -50] 10] [1 [-50 -50] 13] [3 [-50 0] 16] [7
[-50 0] 16] [11 [40 -50] 3] [7 [-30 -60] 8] [10 [-30 70] 15] [10
[20 70] 15] [10 [40 -40] 17] [10 [40 -40] 17] [14 [40 -40] 17]
[12 [-80 -80] 6] [13 [-50 -80] 6] [14 [-20 -80] 6] [15 [10 -80]
6] [0 [40 -80] 6] [3 [110 -50] 18] [4 [-60 -70] 19] [4 [110 20]
13] [5 [110 0] 8] [10 [-140 70] 1] [2 [-140 60] 1] [2 [-140 50]
1] [2 [-140 40] 1] [2 [-140 30] 1] [2 [-140 20] 1] [2 [-140 10]
1] [2 [-140 0] 1] [2 [-140 -10] 1] [2 [-140 -20] 1] [2 [-140
-30] 1] [2 [-140 -40] 1] [2 [-140 -50] 1] [2 [-140 -60] 1] [2
[-140 -70] 1] [2 [-140 -80] 1] [2 [120 70] 1] [2 [130 70] 1] [2
[140 70] 1] [2 [150 70] 1] [2 [150 60] 1] [2 [140 60] 1] [2 [130
60] 1] [2 [120 60] 1] [2 [110 60] 1] [2 [110 70] 1] [2 [150 50]
1] [2 [140 50] 1] [2 [130 50] 1] [2 [120 50] 1] [2 [110 50] 1]
[2 [110 40] 1] [2 [120 40] 1] [2 [130 40] 1] [2 [140 40] 1] [2
[150 40] 1] [2 [150 30] 1] [2 [140 30] 1] [2 [130 30] 1] [2 [130
20] 1] [2 [140 20] 1] [2 [150 20] 1] [2 [150 10] 1] [2 [160 10]
1] [2 [150 10] 1] [2 [140 10] 1] [2 [140 10] 1] [2 [130 10] 1]
[2 [120 0] 1] [2 [120 -10] 1] [2 [140 -10] 1] [2 [150 -10] 1] [2
[150 -20] 1] [2 [140 -20] 1] [2 [140 -20] 1] [2 [130 -20] 1] [2
[120 -20] 1] [2 [120 -30] 1] [2 [130 -30] 1] [2 [140 -30] 1] [2
[150 -30] 1] [2 [150 -50] 1] [2 [150 -70] 1] [2 [150 -90] 1] [2
[130 -90] 1] [2 [130 -80] 1] [2 [130 -70] 1] [2 [130 -60] 1] [2
[130 -50] 1] [2 [140 -50] 1] [2 [150 -50] 1] [2 [160 -50] 1] [2
[-150 -50] 1] [2 [-140 -50] 1] [2 [-130 -50] 1] [2 [-120 -50] 1]
[2 [-110 -50] 1] [2 [-100 -50] 1] [2 [-90 -50] 1] [2 [-80 -50]
1] [2 [-70 -50] 1] [2 [-60 -50] 1] [2 [70 -50] 20] [10 [90 -50]
13] [15 [40 -20] 21] [15 [-120 70] 19] [1 [-120 60] 19] [3 [-120
50] 19] [4 [-120 40] 19] [5 [-120 30] 19] [7 [-120 20] 19] [7
[-110 20] 19] [7 [-100 20] 19] [7 [-90 20] 19] [7 [-80 20] 19]
[7 [-70 20] 19] [7 [-60 20] 19] [7 [-50 20] 19] [7 [-40 20] 19]
[7 [-30 20] 19] [7 [-20 20] 19] [7 [-10 20] 19] [7 [10 20] 19]
[7 [0 20] 19] [7 [10 20] 19] [7 [20 20] 19] [7 [30 20] 19] [7
[40 20] 19] [7 [50 20] 19] [7 [60 20] 19] [7 [70 20] 19] [7 [80
20] 19] [7 [90 20] 19] [7 [90 30] 19] [7 [90 40] 19] [7 [90 50]
19] [7 [90 60] 19] [7 [90 70] 19] [7 [90 80] 19] [7 [80 90] 19]
[9 [-120 10] 19] [11 [-120 0] 19] [11 [-120 -10] 19] [11 [-120
-20] 19] [11 [-120 -30] 19] [11 [-110 -30] 19] [11 [-100 -30]
19] [11 [-90 -30] 19] [11 [-80 -30] 19] [11 [-70 -30] 19] [11
[-60 -30] 19] [11 [-50 -30] 19] [11 [-40 -30] 19] [11 [-30 -30]
19] [11 [-20 -30] 19] [11 [-10 -30] 19] [11 [0 -30] 19] [11 [10
-30] 19] [11 [20 -30] 19] [11 [50 -30] 19] [11 [60 -30] 19] [11
[70 -30] 19] [11 [80 -30] 19] [11 [90 -30] 19] [11 [100 -30] 19]
[11 [110 -30] 19] [11 [120 -20] 19] [11 [120 20] 19] 
end

To prez1 :list
if empty? :list [stop]
prez2 first :list
prez1 bf :list
end

to prez2 :list
setc first :list setpos first bf :list pd setsh last :list stamp pu

To list_meb
op
[
 Стенка Дверь Пианино Телевизор Занавески Цветы Стул Стул Шкаф Стол Стол Кровать Транзистор Ваза Окно Зеркало Полка 
 Кошка Ковер Кровать Музыка Перчатки Бутылка Трубка "  
]
end

To active :name
if member? "shapes.shp filelist [erasefile "shapes.shp]
copyfile :name "shapes.shp 
getshapes
end