Правильный многоугольник (polygon) как корень из комплексного числа

[Sasha_Smirnov]

Была такая программа у меня, лет 5 назад, но пришлось переделать из этой (TrophyRave.doc, а там Alt-F11).

15 минут ушло на переделку, 20 на отладку и часа 2 на всякие фичи (окраска, поворот), впоследствии убранные.

Странно, что тэг кода то срабатывает*, то нет — как вот там!
________________________________
* по этой же ссылке — «самописные» тэги от EducatedFool (VBA Developer) и viter.alex, но я-то о встроенном в интерфейс форума

[Sasha_Smirnov]

Та-ак... Похоже, DOC-формат стал непопулярен.

Вот ниже иллюстрация моей работы с моей программой, а то без картинок... и пост не пост.

[Sasha_Smirnov]

Гораздо интереснее вот эта программа-рисовалка (выросшая из данной темы).

В приложенных документах запускается она через Alt-F8 или по Alt-Y.

Верна моя догадка про устаревающий формат .doc? (Хотя, так посмотреть, получается JPG самый «смотрибельный»!)

[Sasha_Smirnov]

Извините за дополнительные вопросы, но:

1. А что это так туго с опросами: смотрели сотни (более 2-х!) интересующихся, а ответов (до закрытия) лишь 2?
2. И почему приложенные картинки — по числу просмотров — популярнее тех макросов, которыми каждый сам мог бы их нарисовать?

Если ответите — я тоже поделюсь соображениями на эту тему. Мне это легко.

[Sasha_Smirnov]

Sub GramPlus() 'Создана 15.12.2009 и рисует в документе «ёжиков», склонных к заливке!'
N = 35 'Вообще срабатывает лишь при нечётном N > 4.'
'А это место — «угадай-нарисуй»! Рисунок приложен.'
    With ActiveDocument.Shapes.BuildFreeform(msoEditingAuto, x(1), y(1))
        For k = 2 To N / (2 - N Mod 2)
        .AddNodes msoSegmentLine, msoEditingAuto, x(k), y(k)
        Next k
        .AddNodes msoSegmentLine, msoEditingAuto, x(1), y(1)    'замыкание контура'
        .ConvertToShape.Select
    End With
End Sub

Для чётного числа игл — тоже можно синтезировать «ежа», но там красоты особой нет, а код сложнее.

[Sasha_Smirnov]

В Poligon.doc(m) возможно также рисование более «живых» фигур. Через изменение узлов. См. приложенный рисунок.

(Приложил Mine.png — а он преобразовался в Mine.jpg. Странно это.)

[Sasha_Smirnov]

И, как и 5 лет назад, формула многоугольника выдала сюрприз (см. рисунки).

Но это больше относится к той моей теме. А коды там приведены.

[Sasha_Smirnov]

А вот это уже без сюрприза — сознательно.

По правой кнопке можно менять цвет заливки, вырубать узлы (Ctrl-щелчок) и всё такое.

Кнопки, созданные в Word 97, свою функциональность утратили (при пересылке по сети). Потом починю.

Би-би-си... bb-code изображения:

[Sasha_Smirnov]

Вот здесь работает: по клавише F6 либо по кнопке на вкладке Надстройки.

[Sasha_Smirnov]

Ну и паркет тоже своего рода многоугольник. Вот что пока наваял.

Sub DrawParquetry() ' Макрос записан 20.07.2011 User
Const RoX = 32, RoY = 32        'масштабы по осям
Const ShiftX = 0, ShiftY = 0    'сдвиг "косички" от начала координат (в пунктах)
Dim n  As Long: n = 8           'количество паркетин
Dim Nn As Long                  'индекс узла
n = n * 3                       'количество узловых точек рисунка

ReDim x(0 To n) As Single: ReDim y(0 To n) As Single

x(0) = ShiftX: y(0) = ShiftY

For Nn = 1 To n
    x(Nn) = ShiftX + ((Nn Mod 6) \ 2 + ((Nn Mod 6) \ 4) + Nn \ 6) * RoX
    y(Nn) = ShiftY + (((Nn + 3) \ 2) Mod 3 + (Nn - 1) \ 6) * RoY
Next Nn

With ActiveDocument.Shapes.BuildFreeform(msoEditingAuto, x(0), y(0))
        
    For Nn = 1 To n
    .AddNodes msoSegmentLine, msoEditingAuto, x(Nn), y(Nn)
    Next Nn

    .ConvertToShape.Select
End With

'    Selection.ShapeRange.Fill.Visible = msoTrue
'    'заливка контура краской (здесь: сиренево-лиловой, если я не дальтоник)
'    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 255)
ThisDocument.UndoClear                  'очистка списка возвратов (что по CTRL-Z)
End Sub