Форум программистов, компьютерный форум, киберфорум
Lisp
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Lisp Дерево задано с использованием вложенных списков Определить максимальный уровень вершины https://www.cyberforum.ru/ lisp/ thread581723.html
Как лучше реализовать данную задачу
Lisp Из заданного списка удалить каждый второй элемент
Из заданного списка удалить каждый второй элемент, результирующий список переписать в обратном порядке.
LISP простая рекурсия Lisp
необходимо написать маленькую программу, с использованием управляющих форм LISPa. реализовать: нахождение разности списков R=S1/S2 (элементы всех уровней). тип рекурсии: параллельное ветвление...
Lisp Циклы с окружностью Помагите зделать следующую программу,чтобы в цикле рисовалось несколько окружностей https://www.cyberforum.ru/ lisp/ thread581154.html
Lisp Даны два списка, построить третий по условию https://www.cyberforum.ru/ lisp/ thread580750.html
Ребята, помогите, пожалуйста. В лиспе не понимаю совсем. Даны списки L1 и L2 элементов типа char. Построить список L3 по следующему правилу: - если L1 является префиксом L2, то получить L3,...
Проверка на чётность в mulisp'e Lisp
Добрый вечер. Если кого-то нибудь не затруднит, помогите пожалуйста написать программу на mulisp'e: EvenLengyh(Lst) - Проверяет на четность количество элементов в списке Lst
Обработка многоуровнего списка Lisp
Добрый день. Помогите, пожалуйста, разобраться со следующей проблемой: необходимо переделать код, что бы была возможность обработать многоуровневый список. Задание: Определите функцию (f s n),...
Lisp Нарисовать снеговика в VISUAL lisp (setq p1 (getpoint "Укажите точку")) (command "_sphere" p1 100) (setq p2 (list (car p1) (+(nth 1 p1)175)(last p1))) (command "_sphere" p2 75) (setq p4 (list (car p1) (+(nth 1 p1)300)(last p1)))... https://www.cyberforum.ru/ lisp/ thread580059.html
Lisp Дан список, элементы которого — натуральные числа. Умножить каждый элемент на 2 https://www.cyberforum.ru/ lisp/ thread578677.html
Пожалуйста помогите, решением, я дноо
Lisp Помогите пожалуйста Вычисляющие и не вычисляющие присваивания https://www.cyberforum.ru/ lisp/ thread578047.html
Модератор
Эксперт Python
28537 / 15406 / 3045
Регистрация: 12.02.2012
Сообщений: 25,234
Записей в блоге: 4
23.05.2012, 16:15 0

Графика: сделать так, чтобы две линии, исходящие из одной точки, как бы шагали

23.05.2012, 16:15. Показов 1675. Ответов 8
Метки (Все метки)

Ответ

Вот (здесь одна вертикальная линия "шагает" поперек окна):

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 line-step nil
  
   (grwCreate 'w    ;; имя окна 
              200   ;; Ширина  
              200   ;; Высота  
            "Шаги"  ;; Заголовок 
          _WHITE    ;; Цвет фона           
   )
      
   (grwScale   'w    ;; идентификатор окна
              -100   ;; Xmin
               100   ;; Xmax
              -100   ;; Ymin
               100   ;; Ymax
    )
        
    (grwSetParm  'w    ;; идентификатор окна
                  4    ;; ширина линий
                  1    ;; стиль заливки
              _BLUE    ;; цвет заливки  
             _WHITE    ;; цвет переднего плана
     )
 
     (grwShow 'w)
 
     (let ((x -100))
 
        (dotimes (i 20 t)
           
          (grwLine  'w   ;; идентификатор окна
                     x   ;; X1
                   -90   ;; Y1
                     x   ;; X2
                    90   ;; Y2
                 _BLUE   ;; цвет
           ) 
           
           (sleep* 500)
 
          (grwLine  'w   ;; идентификатор окна
                     x   ;; X1
                   -90   ;; Y1
                     x   ;; X2
                    90   ;; Y2
                 _WHITE   ;; цвет
           )
 
           (setq x (+ x 10))
       ))
 
       (grwDestroy 'w)
 
)


Вернуться к обсуждению:
Графика: сделать так, чтобы две линии, исходящие из одной точки, как бы шагали
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.05.2012, 16:15

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Сделать две очереди, так, чтобы в одной остались только символы, в другой — только числа
Помогите,пожалуйста,решить задачку. Даны 2 очереди, заполненные символами латинского алфавита и...

Как отрисовывать линию, соединяющую две фигуры, так, чтобы она не пересекала эти фигуры и другие линии
Подскажите, пожалуйста, как отрисовывать линию, соединяющую две фигуры, так, чтобы она не...

Как можно разделить ячейку в StringGrid так, чтобы получилось в одной ячейке две записи?
у меня такой вопрос ,возможно ли в stringgrid разделить ячейку так что бы в одной ячейке были две...

Как сделать так что бы по нажатию одной кнопки нажимались по очереди две?
Поясню на примере. Допустим нажимаю я кнопку K и в первый раз вместо K реализуется 1, а во второй...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.