*Разбиение рабочего стала на плитку движущуюся хаотично. (openGL)#13#10- - - - - - -#13#10Автор: sla8a#13#10sla8a@tut.by
Make(delphi)
ver(4.04 build 184)
Add(MainForm,15261923,77,231)
{
 Left=20
 Top=105
 Width=800
 Height=800
 Caption=""
 BorderStyle=0
 WindowsState=2
 Position=1
 Point(Handle)
 Point(doWidth)
 Point(doHeight)
 Point(onKeyDown)
 link(onCreate,16299401:doEvent1,[])
 link(onKeyDown,13460630:doCase,[(125,258)(125,321)])
}
Add(GL_Main,12986311,294,259)
{
 Color=0
 link(onInit,4593655:doInit,[])
 link(onViewPort,3410847:doPerspective,[(334,272)(334,384)])
 link(Handle,15261923:Handle,[(300,237)(118,237)(118,288)(83,288)])
}
Add(Timer,9506849,147,273)
{
 Interval=33
 Enable=1
 link(onTimer,1049454:doEvent1,[])
}
Add(GL_GTools,771925,238,273)
{
 Point(doClear)
 Point(doPushMatrix)
 Point(doPopMatrix)
}
Add(Hub,1049454,196,273)
{
 OutCount=5
 link(onEvent1,771925:doClear,[])
 link(onEvent2,771925:doPushMatrix,[])
 link(onEvent3,13752829:doFor,[(217,293)(217,160)])
 link(onEvent4,771925:doPopMatrix,[(224,300)(224,293)])
 link(onEvent5,12986311:doFlip,[(280,307)(280,279)])
}
Add(Hub,16299401,126,245)
{
 OutCount=5
 link(onEvent1,4161604:doWork1,[(145,251)(145,218)(23,218)(23,265)])
 link(onEvent2,15660779:doCalc,[(182,258)(182,97)])
 link(onEvent3,12986311:doInit,[])
 link(onEvent4,12986311:doViewPort,[])
 link(onEvent5,9506849:doTimer,[])
}
Add(GL_GluTools,4593655,343,259)
{
 link(onInit,15052084:doEnabled,[])
}
Add(GL_Perspective,3410847,343,378)
{
 Fovy=50
 zFar=0
 link(Aspect,4161604:Var1,[(349,362)(34,362)])
}
Add(GL_Options,15052084,385,259)
{
 Flag=2
 link(onEvent,12153098:doEnabled,[])
}
Add(MultiElement,4161604,28,259)
{
 link(onEvent1,15261923:doWidth,[])
 link(onEvent2,15261923:doHeight,[])
}
BEGIN_SDK
  Add(EditMulti,14495888,10,10)
  {
   EventCount=2
   WorkCount=1
   VarCount=1
   Width=230
   Height=179
   link(doWork1,10190258:doEvent1,[(30,16)(30,90)])
   link(Var1,4020073:Result,[(16,156)(125,156)])
  }
  Add(Hub,10190258,42,84)
  {
   link(onEvent1,13019782:doData,[])
   link(onEvent2,4020073:doOperation,[])
  }
  Add(Math,4020073,119,91)
  {
   OpType=3
   link(onResult,11320503:doData,[])
   link(Op1,13793784:Var2,[])
   link(Op2,10079713:Var2,[])
  }
  Add(DoData,13019782,77,84)
  {
   link(onEventData,14495888:onEvent1,[(162,90)(162,16)])
   link(Data,13793784:Var1,[(83,68)])
  }
  Add(DoData,11320503,168,91)
  {
   link(onEventData,14495888:onEvent2,[(227,97)(227,23)])
   link(Data,10079713:Var3,[(174,75)])
  }
  Add(GetDataEx,10079713,126,70)
  {
   link(Data,7283156:Height,[])
  }
  Add(GetDataEx,13793784,119,63)
  {
   link(Data,7283156:Width,[])
  }
  Add(Screen,7283156,119,21)
  {
  }
END_SDK
Add(GL_Options,12153098,427,259)
{
 Flag=10
 link(onEvent,4731950:doCapture,[])
}
Add(GL_Texture,11641649,805,357)
{
 UseList=0
 link(Bitmap,8543845:Bitmap,[])
 link(Index,3354992:reCalc,[(818,349)(825,349)])
}
Add(Bitmap,8543845,805,266)
{
}
Add(MultiElementEx,3123062,651,91)
{
 Mode=2
 link(Vertex,8523688:getVar,[])
}
BEGIN_SDK
  Add(EditMultiEx,4757679,21,21)
  {
   WorkCount=#5:##add|8:##select|
   VarCount=#7:##count|
   DataCount=#6:Vertex|
   Width=1126
   Height=354
   Point(##add)
   Point(##select)
   Point(##count)
   link(##add,3772376:doValue,[(133,27)(133,90)])
   link(##select,49425:doPushMatrix,[(37,34)(37,279)])
  }
  Add(GL_VertexTexture,15091509,525,273)
  {
   T=1
   link(onTexCoord,5186772:doVertex,[])
  }
  Add(GL_Vertex3D,12750269,399,273)
  {
   link(onVertex,3370408:doTexCoord,[])
  }
  Add(GL_VertexTexture,3370408,441,273)
  {
   S=1
   T=1
   link(onTexCoord,14178704:doVertex,[])
  }
  Add(GL_Vertex3D,14178704,483,273)
  {
   X=0.64
   link(onVertex,15091509:doTexCoord,[])
   link(X,10797278:Var2,[])
  }
  Add(GL_VertexTexture,4129469,357,273)
  {
   S=1
   link(onTexCoord,12750269:doVertex,[])
  }
  Add(GL_Vertex3D,5186772,567,273)
  {
   X=0.64
   Y=0.64
   link(onVertex,5225142:doEnd,[])
   link(X,14053302:Var2,[])
   link(Y,14053302:Var3,[(580,250)])
  }
  Add(GL_VertexTexture,16041036,273,273)
  {
   link(onTexCoord,12467829:doVertex,[])
  }
  Add(Gl_End,5225142,609,273)
  {
   link(onEnd,8820046:doPopMatrix,[])
  }
  Add(Gl_Begin,4134957,231,273)
  {
   BlockType=7
   link(onBegin,16041036:doTexCoord,[])
  }
  Add(GL_Vertex3D,12467829,315,273)
  {
   Y=0.64
   link(onVertex,4129469:doTexCoord,[])
   link(Y,2875898:Var2,[])
  }
  Add(Gl_Translate,11268565,189,273)
  {
   X=-3.9
   Y=2.3
   link(onTranslate,4134957:doBegin,[])
   link(X,3772376:Value2,[])
   link(Y,3772376:Value3,[])
   link(Z,4977870:Result,[(209,187)(685,187)])
  }
  Add(GL_GTools,49425,91,273)
  {
   Point(doPushMatrix)
   link(onEvent,13352146:doCallList,[])
  }
  Add(GL_GTools,8820046,651,273)
  {
   Point(doPopMatrix)
   link(onEvent,7497960:doRandom,[])
  }
  Add(GL_CallList,13352146,140,273)
  {
   link(onCallList,11268565:doTranslate,[])
   link(Index,3772376:Value1,[(146,195)(188,195)])
  }
  Add(Counter,3165427,826,273)
  {
   Max=180
   Step=20
   link(onNext,6401437:doEvent1,[])
  }
  Add(IndexToChanel,436633,784,273)
  {
   Point(Index)
   link(onEvent1,3165427:doNext,[])
   link(onEvent2,3165427:doPrev,[])
   link(Index,11674062:Value,[])
  }
  Add(Memory,11674062,784,231)
  {
   Default=Integer(0)
  }
  Add(Case,4122745,889,280)
  {
   Value=Integer(180)
   link(onNextCase,5955286:doEvent,[])
   link(onTrue,14512797:doWork2,[(928,293)(928,322)(732,322)(732,244)])
  }
  Add(ChanelToIndex,14512797,742,231)
  {
   link(onIndex,11674062:doValue,[])
  }
  Add(IndexToChanel,5955286,938,280)
  {
   Count=1
   link(onEvent1,14512797:doWork1,[(982,286)(982,223)(731,223)(731,237)])
  }
  Add(IndexToChanel,9284488,742,273)
  {
   Count=1
   link(onEvent1,436633:doEvent,[])
  }
  Add(Random,7497960,693,273)
  {
   Max=1
   link(onRandom,9284488:doEvent,[])
  }
  Add(Hub,6401437,868,273)
  {
   link(onEvent1,4977870:doCalc,[(888,279)(888,51)(667,51)(667,76)])
   link(onEvent2,4122745:doCase,[])
  }
  Add(MathParse,4977870,679,70)
  {
   DataCount=1
   MathStr="%1 / 500"
  }
  Add(GetDataEx,2875898,322,245)
  {
   Angle=3
   link(Data,4757679:Vertex,[(27,250)])
  }
  Add(GetDataEx,10797278,483,245)
  {
   Angle=3
   link(Data,2875898:Var3,[])
  }
  Add(GetDataEx,14053302,567,245)
  {
   Angle=3
   link(Data,10797278:Var3,[])
  }
  Add(MT_MultiMem,3772376,182,84)
  {
   Count=3
  }
END_SDK
Add(For,13752829,602,154)
{
 End=1
 link(onEvent,3123062:##select,[(642,160)(642,104)])
 link(End,3123062:##count,[(615,139)(657,139)])
}
Add(For,12611775,350,91)
{
 link(onEvent,7863548:doCalc,[])
 link(End,9348490:getVar,[])
}
Add(For,8652752,448,91)
{
 link(onEvent,2941008:doCalc,[])
 link(End,15252219:getVar,[])
}
Add(MT_AddData,7320572,567,91)
{
 Count=3
 InputMT=3
 link(onAdd,3123062:##add,[])
 link(Data1,6675366:reCalc,[])
 link(Data3,7863548:Result,[(587,81)(600,81)(600,139)(398,139)])
}
Add(MathParse,7863548,392,91)
{
 MathStr="3.72 - %2 - %1 * %2"
 link(onResult,8652752:doFor,[])
 link(X2,3094716:getVar,[])
}
Add(ScreenShort,4731950,469,259)
{
 link(onCapture,16175515:doEvent1,[])
}
Add(Bitmap,16254062,714,217)
{
}
Add(Hub,16175515,511,259)
{
 link(onEvent1,16254062:doLoad,[(534,265)(534,223)])
 link(onEvent2,6120059:doFor,[])
}
Add(Img_Copy,13347279,714,266)
{
 Width=64
 Height=64
 link(onCopy,6583005:doEvent1,[])
 link(Source,16254062:Bitmap,[])
 link(Y,5238231:Result,[(734,254)(757,254)(757,319)(594,319)])
}
Add(For,6120059,546,266)
{
 Point(doStep)
 link(onEvent,5238231:doOperation,[])
 link(End,11796387:getVar,[])
}
Add(For,3542027,630,266)
{
 Point(doStep)
 link(onEvent,6207859:doOperation,[])
 link(End,2352011:getVar,[])
}
Add(Hub,6583005,763,266)
{
 link(onEvent1,8543845:doLoad,[])
 link(onEvent2,11641649:doCreate,[(791,279)(791,363)])
}
Add(Screen,9661907,217,35)
{
}
Add(MathParse,13852053,308,91)
{
 DataCount=1
 MathStr="9.926 / %1"
 link(onResult,12611775:doFor,[])
}
Add(LineBreakEx,9333857,266,133)
{
 Caption="x"
 Type=3
 link(_Data,13383142:Result,[])
}
Add(LineBreakEx,4950516,224,133)
{
 Caption="y"
 Type=3
 link(_Data,15660779:Result,[])
}
Add(LineBreakEx,15252219,455,63)
{
 Caption="x"
 Type=2
}
Add(LineBreakEx,9348490,357,63)
{
 Caption="y"
 Type=2
}
Add(LineBreakEx,10194703,308,133)
{
 Caption="block"
 Type=3
 link(_Data,13852053:Result,[])
}
Add(MathParse,15660779,224,91)
{
 DataCount=1
 MathStr="%1 div 64 + sign (%1 mod 64)"
 link(onResult,13383142:doCalc,[])
 link(X1,9661907:Height,[])
}
Add(Math,5238231,588,266)
{
 OpType=2
 Op2=64
 link(onResult,3542027:doFor,[])
}
Add(MathParse,13383142,266,91)
{
 DataCount=1
 MathStr="%1 div 64 + sign (%1 mod 64)"
 link(onResult,13852053:doCalc,[])
 link(X1,9661907:Width,[(272,76)(223,76)])
}
Add(Math,6207859,672,266)
{
 OpType=2
 Op2=64
 link(onResult,13347279:doCopy,[])
}
Add(LineBreakEx,2352011,637,238)
{
 Caption="x"
 Type=2
}
Add(LineBreakEx,11796387,553,238)
{
 Caption="y"
 Type=2
}
Add(MathParse,2941008,497,91)
{
 MathStr="-4.96 - %1 * %2 * (-1)"
 link(onResult,7320572:doAdd,[])
 link(X2,4070075:getVar,[])
}
Add(LineBreakEx,3094716,399,63)
{
 Caption="block"
 Type=2
}
Add(LineBreakEx,8523688,651,63)
{
 Caption="block"
 Type=2
}
Add(LineBreakEx,4070075,504,63)
{
 Caption="block"
 Type=2
}
Add(Case,13460630,140,315)
{
 Value=Integer(27)
 link(onTrue,15261923:doClose,[(193,328)(193,357)(67,357)(67,258)])
}
Add(MathParse,3354992,812,308)
{
 MathStr="%0 + 1"
 ResultType=0
 Point(reCalc)
}
Add(MathParse,6675366,560,42)
{
 MathStr="%0 + 1"
 ResultType=0
 Point(reCalc)
}