Написать функцию выводящую букву "Ж"

@light68ghz · Регистрация: 12.02.2015

Студворк — интернет-сервис помощи студентам

Вообщем ребят, нужна помощь. Нужно написать функцию выводящую букву "Ж". Буква "И" сделана, но еще надо букву "Ж". Проблема в том что не могу написать код на данную букву. Код на букву "И" предоставляю

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
(defun dtr(a) (* pi(/ a 180.)))
(defun c:letter()
(setq p1 (getpoint "\nУкажите точку вставки:"))
(setq h (getdist "\nВысота буквы h:" p1))
(setq a (getangle "\nУгол поворота a:" p1))
(setq tt (/ h 6))
(setq ws (/ h 100))
(setq wl (/ h 10))
(setq ww (/ h 20))
(setq wm (* wl 1.5))
;вычисление точек левой части
(setq p2 (polar p1 (+ a (dtr 0.)) tt)) 
(setq p3 (polar p2 (+ a (dtr 90.)) (* tt 0.5))) ; нижняя левая часть 
(setq tc (polar p1 (+ a (dtr 90.)) (* tt 1.5))) 
(setq p5 (polar p2 (+ a (dtr 90.)) h)) ;начальная точка нижней левой части
(setq p4 (polar p5 (+ a (dtr -90.)) (* tt 0.4))) ;начальная точка верхней левой части
(setq p6 (polar p1 (+ a (dtr 90.)) h)) ;конечная точка верхней левой части 
(setq tc1 (polar p6 (+ a (dtr -90.)) (* tt 1.5))) 
(setq p7 (polar p2 (+ a (dtr 0.)) tt))  ;нижняя правая часть
(setq tc2 (polar p7 (+ a (dtr 90.)) (* tt 1.2))) 
(setq p8 (polar p7 (+ a (dtr 90.)) h)) ;верхняя правая часть
(setq tc3 (polar p8 (+ a (dtr -90.)) (* tt 1.5)))
;вычисление точек правой части 
(setq p11 (polar p1 (+ a (dtr 0.)) (* tt 2.7))) ;начало
(setq p12 (polar p11 (+ a (dtr 0.)) tt)) 
(setq p13 (polar p12 (+ a (dtr 90.)) (* tt 0.5)))  ;нижняя левая часть 
(setq tc4 (polar p11 (+ a (dtr 90.)) (* tt 1.5))) 
(setq p15 (polar p12 (+ a (dtr 90.)) h)) ;начальная точка нижней левой части
(setq p14 (polar p15 (+ a (dtr -90.)) (* tt 0.4))) ;начальная точка верхней левой части
(setq p16 (polar p11 (+ a (dtr 90.)) h)) ; конечная точка верхней левой части 
(setq tc5 (polar p16 (+ a (dtr -90.)) (* tt 1.5))) 
(setq p17 (polar p12 (+ a (dtr 0.)) tt))  ; нижняя правая часть
(setq tc6 (polar p17 (+ a (dtr 90.)) (* tt 1.2))) 
(setq p18 (polar p17 (+ a (dtr 90.)) h)) ; верхняя правая часть
(setq tc7 (polar p18 (+ a (dtr -90.)) (* tt 1.5)))
;вычисление центральной линии
(setq p20 (polar p2 (+ a (dtr 90.)) (* tt 0.5))) ; нижняя левая
(setq p21 (polar p15 (+ a (dtr -90.)) (* tt 0.5))) ; верхняя правая
;отрисовка левой части
(command "_.OSNAP" "_NONE") 
(command "_.PLINE" p2 "_W" wm wm p5 "")  ; отрисовка центрального прямоугольника
(command "_.PLINE" p1 "_W" ws wl "_A" "_C" tc p3 "")  ; отрисовка нижней левой части центральной линии 
(command "_.PLINE" p4 "_W" wl ws "_A" "_C" tc1 p6 "") ; отрисовка верхней левой части центральной линии
(command "_.PLINE" p3 "_W" wl ws "_A" "_C" tc2 p7 "") ;  отрисовка нижней правой части центральной линии
(command "_.PLINE" p8 "_W" ws wl  "_A" "_C" tc3 p4 "") ; отрисовка верхней правой части центральной линии
;отрисовка правой части
(command "_.PLINE" p12 "_W" wm wm p15 "")  ; отрисовка центрального прямоугольника
(command "_.PLINE" p11 "_W" ws wl "_A" "_C" tc4 p13 "")  ; отрисовка нижней левой части центральной линии 
(command "_.PLINE" p14 "_W" wl ws "_A" "_C" tc5 p16 "") ; отрисовка верхней левой части центральной линии
(command "_.PLINE" p13 "_W" wl ws "_A" "_C" tc6 p17 "") ;  отрисовка нижней правой части центральной линии
(command "_.PLINE" p18 "_W" ws wl  "_A" "_C" tc7 p14 "") ; отрисовка верхней правой части центральной линии
(command "_.PLINE" p20 "_W" ww ww p21 "") ; отрисовка центральной линии
(princ))

@Catstail · 25.12.2016, 15:30

HomeLisp:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
(defun draw-ж nil
  (let ((w (gensym 'w)))
    (grwCreate w 300 300 "Буква Ж" _WHITE)
 
    (grwScale w -100 100 -100 100)
    (grwSetParm w 3 1 _RED _WHITE)    
 
    (grwLine w -10 20 -10 80 _RED)
    (grwLine w -10 20 -50 80 _RED)
    (grwLine w -10  0 -70 80 _RED)
    (grwLine w -70 80 -50 80 _RED)
 
    (grwLine w -10 -20 -10 -80 _RED)
    (grwLine w -10 -20 -50 -80 _RED)
    (grwLine w -10   0 -70 -80 _RED)
    (grwLine w -70 -80 -50 -80 _RED)
 
    (grwLine w 10 20 10 80 _RED)
    (grwLine w 10 20 50 80 _RED)
    (grwLine w 10  0 70 80 _RED)
    (grwLine w 70 80 50 80 _RED)
 
    (grwLine w 10 -20 10 -80 _RED)
    (grwLine w 10 -20 50 -80 _RED)
    (grwLine w 10   0 70 -80 _RED)
    (grwLine w 70 -80 50 -80 _RED)
 
    (grwLine w -10 80 10 80 _RED)
    (grwLine w -10 -80 10 -80 _RED)
 
    (grwFill w 0 0 _RED _RED)
 
    (grwShow w)))

А вот картинка:

@light68ghz · 26.12.2016, 00:50 **[ТС]**

Мне бы на autolisp

)))

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@light68ghz 0 / 0 / 0 Регистрация: 12.02.2015 Сообщений: 14
	26.12.2016, 00:50 [ТС]
	Мне бы на autolisp))) 0