Вверх ↑
Ответов: 687
Рейтинг: 142
#1: 2021-01-04 13:57:28 ЛС | профиль | цитата
Поздравляю всех с наступившим новым годом!
Праздничное настроение навеяно вот этим.https://codegolf.stackexchange.com/questions/15860/make-a-scalable-christmas-tree
Рисуем и украшаем Ёлочку
На Label

Add(MainForm,14897285,56,161)
{
Width=339
Height=426
Caption="Christmas Tree"
}
Add(For,10143007,203,161)
{
End=30
IncludeEnd=1
link(onEvent,8061463:doNext,[])
link(onStop,6240599:doEvent1,[(250,174)(250,258)])
}
Add(Label,5315142,609,252)
{
Width=323
Height=387
Align=5
Font=[Lucida Console,8,1,32768,204]
Caption=""
AutoSize=1
Alignment=2
link(Text,11004437:Text,[])
}
Add(StrList,11856082,483,126)
{
Strings=#1:~|1:~|1:0|1:~|1:~|1:~|1:~|1:~|1:~|1:~|1:~|1:~|1:~|0:|
Point(doGetString)
Point(onGetString)
link(onGetString,964586:doWork2,[])
}
Add(Random,745423,434,154)
{
Max=12
link(onRandom,11856082:doGetString,[])
}
Add(StrList,11004437,609,189)
{
Strings=#1:*|
link(onChange,15888788:doClear,[(648,195)(648,181)(592,181)(592,146)])
link(Str,11106398:Var2,[])
}
Add(CounterEx,8061463,259,161)
{
Min=1
Max=30
Point(onThroughMax)
Point(doReset)
link(onNext,7668054:doFor,[])
}
Add(For,7668054,315,161)
{
Start=1
InData=0
link(onEvent,3962794:doEvent1,[])
link(onStop,11004437:doAdd,[(375,174)(375,195)])
}
Add(StrCat,15888788,609,133)
{
Point(doClear)
link(Str1,11106398:Var1,[(615,124)(601,124)(601,173)])
}
Add(GetDataEx,11106398,609,168)
{
link(Data,15888788:Result,[])
}
Add(LinkTip,9936873,112,63)
{
Link="https://codegolf.stackexchange.com/questions/15860/make-a-scalable-christmas-tree/16358#16358"
Font=[MS Sans Serif,8,0,16711680,1]
}
Add(Hub,3962794,385,161)
{
link(onEvent1,745423:doRandomize,[])
link(onEvent2,745423:doRandom,[(410,174)(410,160)])
}
Add(Timer,7612606,147,161)
{
link(onTimer,10143007:doFor,[])
}
Add(DoData,5705382,504,266)
{
Data=String(*\r\n)
link(onEventData,964586:doWork3,[(557,272)])
}
Add(Hub,6240599,469,252)
{
OutCount=3
link(onEvent1,5315142:doText,[])
link(onEvent2,11004437:doClear,[(596,265)(596,202)])
link(onEvent3,5705382:doData,[])
}
Add(HubEx,964586,553,133)
{
link(onEvent,15888788:doStrCat,[])
}

На Plotter

Add(MainForm,12600027,301,91)
{
Height=435
Caption="Christmas Tree"
link(onCreate,10086600:doFor,[])
}
Add(Plotter,3573847,301,133)
{
Width=384
Height=396
Align=5
Color=-16777215
Name="MyPlotter"
GridColor=0
AxisColor=0
GridX=12
MaxH=1420
}
Add(For,2705111,434,105)
{
Start=1
End=1420
Step=10
link(onEvent,6471196:doCalc,[])
}
Add(MathParse,6471196,497,105)
{
MathStr="sin(%1+%2)*(1421-%1)"
AngleMode=1
link(onResult,15623317:doAdd,[])
link(X2,10086600:Position,[(510,96)(426,96)(426,145)(377,145)])
}
Add(PlotPoints,15623317,567,105)
{
Grapher="MyPlotter"
Color=65280
Size=3
Name="trree1"
link(ValueY,2705111:Position,[(573,96)(559,96)(559,145)(440,145)])
}
Add(PlotPoints,12253426,574,217)
{
Grapher="MyPlotter"
Color=16777215
Size=3
Name="trree3"
Shape=2
link(ValueY,13790121:Position,[(580,208)(566,208)(566,278)(328,278)])
link(ValueX,5735518:Result,[(587,201)(559,201)(559,271)(391,271)])
}
Add(MathParse,5735518,385,231)
{
MathStr="cos(%1+%2)*(1421-%1)"
AngleMode=1
link(onResult,16712837:doCalcDelta,[])
link(X2,11436325:Count,[(398,222)(314,222)(314,264)(258,264)])
}
Add(Timer,3535652,203,224)
{
Interval=100
link(onTimer,11436325:doNext,[])
}
Add(CounterEx,11436325,252,224)
{
Max=1440
Step=30
Point(doReset)
Point(onThroughMax)
link(onNext,7771170:doEvent1,[])
}
Add(Hub,7771170,294,224)
{
link(onEvent1,12253426:doClear,[])
link(onEvent2,13790121:doFor,[])
}
Add(For,13790121,322,231)
{
Start=1
End=1420
Step=10
link(onEvent,5735518:doCalc,[])
}
Add(For,10086600,371,105)
{
End=270
Step=90
link(onEvent,2705111:doFor,[])
}
Add(SampleDelta,16712837,434,231)
{
link(onCalcDelta,1505834:doCompare,[])
}
Add(If_else,1505834,490,231)
{
Type=4
Op2=Integer(0)
link(onTrue,12253426:doAdd,[(529,237)(529,223)])
}

Присоединяемся. Фейерверки и другие атрибуты праздника тоже приветствуются.
карма: 15

1
Голосовали:sla8a
Редактировалось 7 раз(а), последний 2021-01-05 13:34:30