это рисуй_глаза
нф 13
пп нм [-22 30] по штамп пп
пп нм [22 30] по штамп 
конец

это сотри_глаза
нф 14
пп нм [-22 30] по штамп
пп нм [22 30] по штамп
конец

это мигни
сотри_глаза жди 3 рисуй_глаза
конец

это рисуй_нос
нц 9 пп нм [0 25] нк 160
по вп 30 нк 150 вп 20 пр 100 вп 20
конец

это подготовь_исходные_брови
пусть "угол_бровей 90
конец

это брови 
пп нм [-22 45] нк :угол_бровей
по вп 10 нд 20
пп нм [22 45] нк минус :угол_бровей
по вп 10 нд 20
конец

это рисуй_брови
нц 9 брови
конец

это сотри_брови
нц 0 брови
конец

это верни_брови_в_исходное
сотри_брови
подготовь_исходные_брови
рисуй_брови
конец

это двигай_брови :наклон
сотри_брови
пусть "угол_бровей :угол_бровей - :наклон
рисуй_брови
конец

это подготовь_исходный_рот
пусть "угол_краев 0
пусть "длина_уголков 0
конец

это рот
пп нм [0 -60] нк 90  по вп 10 лв :угол_краев вп :длина_уголков
пп нм [0 -60] нк -90 по вп 10 пр :угол_краев вп :длина_уголков
конец 

это рисуй_рот
нц 9 рот
конец

это сотри_рот
нц 0 рот
конец

это верни_рот_в_исходное
сотри_рот
подготовь_исходный_рот
рисуй_рот
конец

это двигай_рот :рост :наклон
сотри_рот
пусть "длина_уголков :длина_уголков + :рост
пусть "угол_краев :угол_краев + :наклон
рисуй_рот
конец

это улыбка
верни_рот_в_исходное
верни_брови_в_исходное
повтори 15 [двигай_рот 1 2 жди 1]
конец

это смущение
верни_брови_в_исходное
верни_рот_в_исходное
повтори 15 [двигай_рот 1 -2 жди 1]
конец

это удивление
верни_брови_в_исходное
верни_рот_в_исходное
повтори 15 [двигай_брови 2 жди 1] 
конец

это гнев
верни_рот_в_исходное
верни_брови_в_исходное
повтори 15 [двигай_брови -2 жди 1] 
конец

это рисуй_лицо
пп сг сч рисуй_глаза рисуй_нос
подготовь_исходные_брови рисуй_брови 
подготовь_исходный_рот рисуй_рот
конец

это все_эмоции
рисуй_лицо
улыбка
мигни
гнев
мигни
смущение
мигни
удивление
мигни
конец

это startup
рисуй_лицо
конец