fPostShaderD.dfm 23 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979
  1. object FormPostShader: TFormPostShader
  2. Left = 261
  3. Top = 176
  4. Margins.Left = 5
  5. Margins.Top = 5
  6. Margins.Right = 5
  7. Margins.Bottom = 5
  8. Caption = 'GLSL Post Shader'
  9. ClientHeight = 966
  10. ClientWidth = 1388
  11. Color = clBtnFace
  12. Font.Charset = DEFAULT_CHARSET
  13. Font.Color = clWindowText
  14. Font.Height = -19
  15. Font.Name = 'MS Sans Serif'
  16. Font.Style = []
  17. Position = poScreenCenter
  18. OnClose = FormClose
  19. OnCreate = FormCreate
  20. PixelsPerInch = 168
  21. TextHeight = 24
  22. object Viewer: TGLSceneViewer
  23. Left = 0
  24. Top = 0
  25. Width = 998
  26. Height = 915
  27. Margins.Left = 5
  28. Margins.Top = 5
  29. Margins.Right = 5
  30. Margins.Bottom = 5
  31. Camera = Camera
  32. Buffer.BackgroundColor = clBackground
  33. Buffer.ContextOptions = [roDoubleBuffer, roStencilBuffer, roRenderToWindow]
  34. Buffer.AntiAliasing = aaNone
  35. Buffer.DepthPrecision = dp24bits
  36. Buffer.ColorDepth = cd24bits
  37. FieldOfView = 163.827468872070300000
  38. PenAsTouch = False
  39. Align = alClient
  40. TabOrder = 0
  41. end
  42. object Panel1: TPanel
  43. Left = 0
  44. Top = 915
  45. Width = 1388
  46. Height = 51
  47. Margins.Left = 5
  48. Margins.Top = 5
  49. Margins.Right = 5
  50. Margins.Bottom = 5
  51. Align = alBottom
  52. TabOrder = 1
  53. object LightMovingCheckBox: TCheckBox
  54. Left = 14
  55. Top = 14
  56. Width = 170
  57. Height = 30
  58. Margins.Left = 5
  59. Margins.Top = 5
  60. Margins.Right = 5
  61. Margins.Bottom = 5
  62. Caption = 'Light is Moving'
  63. Checked = True
  64. Color = clBtnFace
  65. ParentColor = False
  66. State = cbChecked
  67. TabOrder = 0
  68. end
  69. object TurnPitchrollCheckBox: TCheckBox
  70. Left = 196
  71. Top = 14
  72. Width = 240
  73. Height = 30
  74. Margins.Left = 5
  75. Margins.Top = 5
  76. Margins.Right = 5
  77. Margins.Bottom = 5
  78. Caption = 'Turn-Pitch-Roll Enabled'
  79. Checked = True
  80. State = cbChecked
  81. TabOrder = 1
  82. end
  83. end
  84. object Panel2: TPanel
  85. Left = 998
  86. Top = 0
  87. Width = 390
  88. Height = 915
  89. Margins.Left = 5
  90. Margins.Top = 5
  91. Margins.Right = 5
  92. Margins.Bottom = 5
  93. Align = alRight
  94. TabOrder = 2
  95. object Label1: TLabel
  96. Left = 28
  97. Top = 14
  98. Width = 75
  99. Height = 24
  100. Margins.Left = 5
  101. Margins.Top = 5
  102. Margins.Right = 5
  103. Margins.Bottom = 5
  104. Caption = 'Shaders:'
  105. end
  106. object Label2: TLabel
  107. Left = 33
  108. Top = 243
  109. Width = 87
  110. Height = 24
  111. Margins.Left = 5
  112. Margins.Top = 5
  113. Margins.Right = 5
  114. Margins.Bottom = 5
  115. Caption = 'Blur Value'
  116. end
  117. object lblBlurValue: TLabel
  118. Left = 352
  119. Top = 243
  120. Width = 25
  121. Height = 24
  122. Margins.Left = 5
  123. Margins.Top = 5
  124. Margins.Right = 5
  125. Margins.Bottom = 5
  126. Caption = '0.0'
  127. Font.Charset = DEFAULT_CHARSET
  128. Font.Color = clWindowText
  129. Font.Height = -19
  130. Font.Name = 'MS Sans Serif'
  131. Font.Style = []
  132. ParentFont = False
  133. end
  134. object Label3: TLabel
  135. Left = 33
  136. Top = 301
  137. Width = 161
  138. Height = 24
  139. Margins.Left = 5
  140. Margins.Top = 5
  141. Margins.Right = 5
  142. Margins.Bottom = 5
  143. Caption = 'Thermal Threshold'
  144. end
  145. object lblThermalThreshold: TLabel
  146. Left = 352
  147. Top = 301
  148. Width = 25
  149. Height = 24
  150. Margins.Left = 5
  151. Margins.Top = 5
  152. Margins.Right = 5
  153. Margins.Bottom = 5
  154. Caption = '0.0'
  155. Font.Charset = DEFAULT_CHARSET
  156. Font.Color = clWindowText
  157. Font.Height = -19
  158. Font.Name = 'MS Sans Serif'
  159. Font.Style = []
  160. ParentFont = False
  161. end
  162. object Label5: TLabel
  163. Left = 33
  164. Top = 361
  165. Width = 142
  166. Height = 24
  167. Margins.Left = 5
  168. Margins.Top = 5
  169. Margins.Right = 5
  170. Margins.Bottom = 5
  171. Caption = 'Thermal Intensity'
  172. end
  173. object lblThermalIntensity: TLabel
  174. Left = 352
  175. Top = 361
  176. Width = 25
  177. Height = 24
  178. Margins.Left = 5
  179. Margins.Top = 5
  180. Margins.Right = 5
  181. Margins.Bottom = 5
  182. Caption = '0.0'
  183. Font.Charset = DEFAULT_CHARSET
  184. Font.Color = clWindowText
  185. Font.Height = -19
  186. Font.Name = 'MS Sans Serif'
  187. Font.Style = []
  188. ParentFont = False
  189. end
  190. object Label4: TLabel
  191. Left = 33
  192. Top = 480
  193. Width = 135
  194. Height = 24
  195. Margins.Left = 5
  196. Margins.Top = 5
  197. Margins.Right = 5
  198. Margins.Bottom = 5
  199. Caption = 'Night Threshold'
  200. end
  201. object lblNight: TLabel
  202. Left = 352
  203. Top = 480
  204. Width = 25
  205. Height = 24
  206. Margins.Left = 5
  207. Margins.Top = 5
  208. Margins.Right = 5
  209. Margins.Bottom = 5
  210. Caption = '0.0'
  211. Font.Charset = DEFAULT_CHARSET
  212. Font.Color = clWindowText
  213. Font.Height = -19
  214. Font.Name = 'MS Sans Serif'
  215. Font.Style = []
  216. ParentFont = False
  217. end
  218. object Label6: TLabel
  219. Left = 33
  220. Top = 539
  221. Width = 155
  222. Height = 24
  223. Margins.Left = 5
  224. Margins.Top = 5
  225. Margins.Right = 5
  226. Margins.Bottom = 5
  227. Caption = 'Night Amplification'
  228. end
  229. object lblNightAmplification: TLabel
  230. Left = 352
  231. Top = 539
  232. Width = 25
  233. Height = 24
  234. Margins.Left = 5
  235. Margins.Top = 5
  236. Margins.Right = 5
  237. Margins.Bottom = 5
  238. Caption = '0.0'
  239. Font.Charset = DEFAULT_CHARSET
  240. Font.Color = clWindowText
  241. Font.Height = -19
  242. Font.Name = 'MS Sans Serif'
  243. Font.Style = []
  244. ParentFont = False
  245. end
  246. object Label7: TLabel
  247. Left = 33
  248. Top = 420
  249. Width = 147
  250. Height = 24
  251. Margins.Left = 5
  252. Margins.Top = 5
  253. Margins.Right = 5
  254. Margins.Bottom = 5
  255. Caption = 'Dream Threshold'
  256. end
  257. object lblDreamThreshold: TLabel
  258. Left = 352
  259. Top = 420
  260. Width = 25
  261. Height = 24
  262. Margins.Left = 5
  263. Margins.Top = 5
  264. Margins.Right = 5
  265. Margins.Bottom = 5
  266. Caption = '0.0'
  267. Font.Charset = DEFAULT_CHARSET
  268. Font.Color = clWindowText
  269. Font.Height = -19
  270. Font.Name = 'MS Sans Serif'
  271. Font.Style = []
  272. ParentFont = False
  273. end
  274. object Label8: TLabel
  275. Left = 33
  276. Top = 599
  277. Width = 119
  278. Height = 24
  279. Margins.Left = 5
  280. Margins.Top = 5
  281. Margins.Right = 5
  282. Margins.Bottom = 5
  283. Caption = 'Pixelate Width'
  284. end
  285. object lblPixelateWidth: TLabel
  286. Left = 352
  287. Top = 599
  288. Width = 10
  289. Height = 24
  290. Margins.Left = 5
  291. Margins.Top = 5
  292. Margins.Right = 5
  293. Margins.Bottom = 5
  294. Caption = '1'
  295. Font.Charset = DEFAULT_CHARSET
  296. Font.Color = clWindowText
  297. Font.Height = -19
  298. Font.Name = 'MS Sans Serif'
  299. Font.Style = []
  300. ParentFont = False
  301. end
  302. object Label9: TLabel
  303. Left = 33
  304. Top = 658
  305. Width = 126
  306. Height = 24
  307. Margins.Left = 5
  308. Margins.Top = 5
  309. Margins.Right = 5
  310. Margins.Bottom = 5
  311. Caption = 'Pixelate Height'
  312. end
  313. object lblPixelateHeight: TLabel
  314. Left = 352
  315. Top = 658
  316. Width = 10
  317. Height = 24
  318. Margins.Left = 5
  319. Margins.Top = 5
  320. Margins.Right = 5
  321. Margins.Bottom = 5
  322. Caption = '1'
  323. Font.Charset = DEFAULT_CHARSET
  324. Font.Color = clWindowText
  325. Font.Height = -19
  326. Font.Name = 'MS Sans Serif'
  327. Font.Style = []
  328. ParentFont = False
  329. end
  330. object Label10: TLabel
  331. Left = 33
  332. Top = 718
  333. Width = 148
  334. Height = 24
  335. Margins.Left = 5
  336. Margins.Top = 5
  337. Margins.Right = 5
  338. Margins.Bottom = 5
  339. Caption = 'Posterize Gamma'
  340. end
  341. object lblPosterizeGamma: TLabel
  342. Left = 352
  343. Top = 718
  344. Width = 25
  345. Height = 24
  346. Margins.Left = 5
  347. Margins.Top = 5
  348. Margins.Right = 5
  349. Margins.Bottom = 5
  350. Caption = '0.0'
  351. Font.Charset = DEFAULT_CHARSET
  352. Font.Color = clWindowText
  353. Font.Height = -19
  354. Font.Name = 'MS Sans Serif'
  355. Font.Style = []
  356. ParentFont = False
  357. end
  358. object Label12: TLabel
  359. Left = 33
  360. Top = 777
  361. Width = 150
  362. Height = 24
  363. Margins.Left = 5
  364. Margins.Top = 5
  365. Margins.Right = 5
  366. Margins.Bottom = 5
  367. Caption = 'Posterize NColors'
  368. end
  369. object lblPosterizeColors: TLabel
  370. Left = 352
  371. Top = 777
  372. Width = 25
  373. Height = 24
  374. Margins.Left = 5
  375. Margins.Top = 5
  376. Margins.Right = 5
  377. Margins.Bottom = 5
  378. Caption = '0.0'
  379. Font.Charset = DEFAULT_CHARSET
  380. Font.Color = clWindowText
  381. Font.Height = -19
  382. Font.Name = 'MS Sans Serif'
  383. Font.Style = []
  384. ParentFont = False
  385. end
  386. object Label11: TLabel
  387. Left = 33
  388. Top = 837
  389. Width = 97
  390. Height = 24
  391. Margins.Left = 5
  392. Margins.Top = 5
  393. Margins.Right = 5
  394. Margins.Bottom = 5
  395. Caption = 'Frost Rand '
  396. end
  397. object lblFrostRand: TLabel
  398. Left = 352
  399. Top = 837
  400. Width = 25
  401. Height = 24
  402. Margins.Left = 5
  403. Margins.Top = 5
  404. Margins.Right = 5
  405. Margins.Bottom = 5
  406. Caption = '0.0'
  407. Font.Charset = DEFAULT_CHARSET
  408. Font.Color = clWindowText
  409. Font.Height = -19
  410. Font.Name = 'MS Sans Serif'
  411. Font.Style = []
  412. ParentFont = False
  413. end
  414. object Label14: TLabel
  415. Left = 11
  416. Top = 975
  417. Width = 100
  418. Height = 24
  419. Margins.Left = 5
  420. Margins.Top = 5
  421. Margins.Right = 5
  422. Margins.Bottom = 5
  423. Caption = 'Frost Factor'
  424. end
  425. object lblFrostFactor: TLabel
  426. Left = 329
  427. Top = 975
  428. Width = 25
  429. Height = 24
  430. Margins.Left = 5
  431. Margins.Top = 5
  432. Margins.Right = 5
  433. Margins.Bottom = 5
  434. Caption = '0.0'
  435. Font.Charset = DEFAULT_CHARSET
  436. Font.Color = clWindowText
  437. Font.Height = -19
  438. Font.Name = 'MS Sans Serif'
  439. Font.Style = []
  440. ParentFont = False
  441. end
  442. object Label13: TLabel
  443. Left = 11
  444. Top = 1052
  445. Width = 119
  446. Height = 24
  447. Margins.Left = 5
  448. Margins.Top = 5
  449. Margins.Right = 5
  450. Margins.Bottom = 5
  451. Caption = 'Trouble Width'
  452. end
  453. object lblTroubleWidth: TLabel
  454. Left = 329
  455. Top = 1052
  456. Width = 25
  457. Height = 24
  458. Margins.Left = 5
  459. Margins.Top = 5
  460. Margins.Right = 5
  461. Margins.Bottom = 5
  462. Caption = '0.0'
  463. Font.Charset = DEFAULT_CHARSET
  464. Font.Color = clWindowText
  465. Font.Height = -19
  466. Font.Name = 'MS Sans Serif'
  467. Font.Style = []
  468. ParentFont = False
  469. end
  470. object Label16: TLabel
  471. Left = 11
  472. Top = 1120
  473. Width = 126
  474. Height = 24
  475. Margins.Left = 5
  476. Margins.Top = 5
  477. Margins.Right = 5
  478. Margins.Bottom = 5
  479. Caption = 'Trouble Height'
  480. end
  481. object lblTroubleHeight: TLabel
  482. Left = 329
  483. Top = 1120
  484. Width = 25
  485. Height = 24
  486. Margins.Left = 5
  487. Margins.Top = 5
  488. Margins.Right = 5
  489. Margins.Bottom = 5
  490. Caption = '0.0'
  491. Font.Charset = DEFAULT_CHARSET
  492. Font.Color = clWindowText
  493. Font.Height = -19
  494. Font.Name = 'MS Sans Serif'
  495. Font.Style = []
  496. ParentFont = False
  497. end
  498. object Label18: TLabel
  499. Left = 11
  500. Top = 1188
  501. Width = 111
  502. Height = 24
  503. Margins.Left = 5
  504. Margins.Top = 5
  505. Margins.Right = 5
  506. Margins.Bottom = 5
  507. Caption = 'Trouble Freq'
  508. end
  509. object lblTroubleFreq: TLabel
  510. Left = 329
  511. Top = 1188
  512. Width = 25
  513. Height = 24
  514. Margins.Left = 5
  515. Margins.Top = 5
  516. Margins.Right = 5
  517. Margins.Bottom = 5
  518. Caption = '0.0'
  519. Font.Charset = DEFAULT_CHARSET
  520. Font.Color = clWindowText
  521. Font.Height = -19
  522. Font.Name = 'MS Sans Serif'
  523. Font.Style = []
  524. ParentFont = False
  525. end
  526. object ShaderCheckListBox: TCheckListBox
  527. Left = 14
  528. Top = 42
  529. Width = 362
  530. Height = 172
  531. Margins.Left = 5
  532. Margins.Top = 5
  533. Margins.Right = 5
  534. Margins.Bottom = 5
  535. ItemHeight = 30
  536. TabOrder = 0
  537. OnClick = ShaderCheckListBoxClick
  538. OnClickCheck = ShaderCheckListBoxClick
  539. end
  540. object tbBlurValue: TTrackBar
  541. Left = 182
  542. Top = 236
  543. Width = 170
  544. Height = 48
  545. Margins.Left = 5
  546. Margins.Top = 5
  547. Margins.Right = 5
  548. Margins.Bottom = 5
  549. Max = 100
  550. Min = 1
  551. PageSize = 1
  552. Position = 1
  553. TabOrder = 1
  554. ThumbLength = 35
  555. TickStyle = tsNone
  556. OnChange = tbBlurValueChange
  557. end
  558. object tbThermalThreshold: TTrackBar
  559. Left = 182
  560. Top = 298
  561. Width = 170
  562. Height = 45
  563. Margins.Left = 5
  564. Margins.Top = 5
  565. Margins.Right = 5
  566. Margins.Bottom = 5
  567. Max = 100
  568. Min = 1
  569. PageSize = 1
  570. Position = 1
  571. TabOrder = 2
  572. ThumbLength = 35
  573. TickStyle = tsNone
  574. OnChange = tbThermalThresholdChange
  575. end
  576. object tbThermalIntensity: TTrackBar
  577. Left = 182
  578. Top = 355
  579. Width = 170
  580. Height = 48
  581. Margins.Left = 5
  582. Margins.Top = 5
  583. Margins.Right = 5
  584. Margins.Bottom = 5
  585. Max = 100
  586. Min = 1
  587. PageSize = 1
  588. Position = 1
  589. TabOrder = 3
  590. ThumbLength = 35
  591. TickStyle = tsNone
  592. OnChange = tbThermalIntensityChange
  593. end
  594. object tblNightThreshold: TTrackBar
  595. Left = 182
  596. Top = 476
  597. Width = 170
  598. Height = 47
  599. Margins.Left = 5
  600. Margins.Top = 5
  601. Margins.Right = 5
  602. Margins.Bottom = 5
  603. Max = 100
  604. Min = 1
  605. PageSize = 1
  606. Position = 1
  607. TabOrder = 4
  608. ThumbLength = 35
  609. TickStyle = tsNone
  610. OnChange = tblNightThresholdChange
  611. end
  612. object tbNightAmplification: TTrackBar
  613. Left = 182
  614. Top = 536
  615. Width = 170
  616. Height = 49
  617. Margins.Left = 5
  618. Margins.Top = 5
  619. Margins.Right = 5
  620. Margins.Bottom = 5
  621. Max = 1000
  622. Min = 1
  623. PageSize = 1
  624. Position = 1
  625. TabOrder = 5
  626. ThumbLength = 35
  627. TickStyle = tsNone
  628. OnChange = tbNightAmplificationChange
  629. end
  630. object tbDreamThreshold: TTrackBar
  631. Left = 182
  632. Top = 417
  633. Width = 170
  634. Height = 45
  635. Margins.Left = 5
  636. Margins.Top = 5
  637. Margins.Right = 5
  638. Margins.Bottom = 5
  639. Max = 200
  640. Min = 1
  641. PageSize = 1
  642. Position = 1
  643. TabOrder = 6
  644. ThumbLength = 35
  645. TickStyle = tsNone
  646. OnChange = tbDreamThresholdChange
  647. end
  648. object tbPixelateWidth: TTrackBar
  649. Left = 182
  650. Top = 595
  651. Width = 170
  652. Height = 47
  653. Margins.Left = 5
  654. Margins.Top = 5
  655. Margins.Right = 5
  656. Margins.Bottom = 5
  657. Max = 64
  658. Min = 1
  659. PageSize = 1
  660. Position = 1
  661. TabOrder = 7
  662. ThumbLength = 35
  663. TickStyle = tsNone
  664. OnChange = tbPixelateWidthChange
  665. end
  666. object tbPixelateHeight: TTrackBar
  667. Left = 182
  668. Top = 655
  669. Width = 170
  670. Height = 49
  671. Margins.Left = 5
  672. Margins.Top = 5
  673. Margins.Right = 5
  674. Margins.Bottom = 5
  675. Max = 64
  676. Min = 1
  677. PageSize = 1
  678. Position = 1
  679. TabOrder = 8
  680. ThumbLength = 35
  681. TickStyle = tsNone
  682. OnChange = tbPixelateHeightChange
  683. end
  684. object tbPosterizeGamma: TTrackBar
  685. Left = 182
  686. Top = 718
  687. Width = 170
  688. Height = 45
  689. Margins.Left = 5
  690. Margins.Top = 5
  691. Margins.Right = 5
  692. Margins.Bottom = 5
  693. Max = 300
  694. Min = 1
  695. PageSize = 1
  696. Position = 1
  697. TabOrder = 9
  698. ThumbLength = 35
  699. TickStyle = tsNone
  700. OnChange = tbPosterizeGammaChange
  701. end
  702. object tbPosterizeColors: TTrackBar
  703. Left = 182
  704. Top = 775
  705. Width = 170
  706. Height = 48
  707. Margins.Left = 5
  708. Margins.Top = 5
  709. Margins.Right = 5
  710. Margins.Bottom = 5
  711. Max = 255
  712. Min = 1
  713. PageSize = 1
  714. Position = 1
  715. TabOrder = 10
  716. ThumbLength = 35
  717. TickStyle = tsNone
  718. OnChange = tbPosterizeColorsChange
  719. end
  720. object tbFrostRand: TTrackBar
  721. Left = 182
  722. Top = 837
  723. Width = 170
  724. Height = 45
  725. Margins.Left = 5
  726. Margins.Top = 5
  727. Margins.Right = 5
  728. Margins.Bottom = 5
  729. Max = 500
  730. Min = 10
  731. PageSize = 1
  732. Position = 10
  733. TabOrder = 11
  734. ThumbLength = 35
  735. TickStyle = tsNone
  736. OnChange = tbFrostRandChange
  737. end
  738. object tbFrostFactor: TTrackBar
  739. Left = 159
  740. Top = 975
  741. Width = 170
  742. Height = 47
  743. Margins.Left = 5
  744. Margins.Top = 5
  745. Margins.Right = 5
  746. Margins.Bottom = 5
  747. Max = 250
  748. Min = 1
  749. PageSize = 1
  750. Position = 1
  751. TabOrder = 12
  752. ThumbLength = 35
  753. TickStyle = tsNone
  754. OnChange = tbFrostFactorChange
  755. end
  756. object tbTroubleWidth: TTrackBar
  757. Left = 159
  758. Top = 1052
  759. Width = 160
  760. Height = 47
  761. Margins.Left = 5
  762. Margins.Top = 5
  763. Margins.Right = 5
  764. Margins.Bottom = 5
  765. Max = 64
  766. Min = 1
  767. PageSize = 1
  768. Position = 1
  769. TabOrder = 13
  770. ThumbLength = 35
  771. TickStyle = tsNone
  772. OnChange = tbTroubleWidthChange
  773. end
  774. object tbTroubleHeight: TTrackBar
  775. Left = 159
  776. Top = 1110
  777. Width = 160
  778. Height = 47
  779. Margins.Left = 5
  780. Margins.Top = 5
  781. Margins.Right = 5
  782. Margins.Bottom = 5
  783. Max = 64
  784. Min = 1
  785. PageSize = 1
  786. Position = 1
  787. TabOrder = 14
  788. ThumbLength = 35
  789. TickStyle = tsNone
  790. OnChange = tbTroubleHeightChange
  791. end
  792. object tbTroubleFreq: TTrackBar
  793. Left = 145
  794. Top = 1188
  795. Width = 174
  796. Height = 48
  797. Margins.Left = 5
  798. Margins.Top = 5
  799. Margins.Right = 5
  800. Margins.Bottom = 5
  801. Max = 300
  802. Min = 1
  803. PageSize = 1
  804. Position = 1
  805. TabOrder = 15
  806. ThumbLength = 35
  807. TickStyle = tsNone
  808. OnChange = tbTroubleFreqChange
  809. end
  810. end
  811. object Scene: TGLScene
  812. ObjectsSorting = osNone
  813. Left = 24
  814. Top = 16
  815. object GUICube: TGLDummyCube
  816. CubeSize = 1.000000000000000000
  817. object GLArrowLine1: TGLArrowLine
  818. Position.Coordinates = {00000000000000000000C8420000803F}
  819. Scale.Coordinates = {0000A0410000A0410000A04100000000}
  820. BottomRadius = 0.100000001490116100
  821. Height = 1.000000000000000000
  822. TopRadius = 0.100000001490116100
  823. TopArrowHeadHeight = 0.500000000000000000
  824. TopArrowHeadRadius = 0.200000002980232200
  825. BottomArrowHeadHeight = 0.500000000000000000
  826. BottomArrowHeadRadius = 0.200000002980232200
  827. end
  828. object GLXYZGrid1: TGLXYZGrid
  829. Direction.Coordinates = {00000000000080BF0000000000000000}
  830. Position.Coordinates = {00000000000000000000A0C10000803F}
  831. Up.Coordinates = {00000000000000000000803F00000000}
  832. XSamplingScale.Min = -200.000000000000000000
  833. XSamplingScale.Max = 200.000000000000000000
  834. XSamplingScale.Step = 20.000000000000000000
  835. YSamplingScale.Min = -200.000000000000000000
  836. YSamplingScale.Max = 200.000000000000000000
  837. YSamplingScale.Step = 20.000000000000000000
  838. ZSamplingScale.Min = -200.000000000000000000
  839. ZSamplingScale.Max = 200.000000000000000000
  840. ZSamplingScale.Step = 20.000000000000000000
  841. Parts = [gpX, gpZ]
  842. end
  843. end
  844. object LightCube: TGLDummyCube
  845. Direction.Coordinates = {0000000000000000000080BF00000000}
  846. Position.Coordinates = {000096C300000000000096430000803F}
  847. OnProgress = LightCubeProgress
  848. CubeSize = 1.000000000000000000
  849. object Light: TGLLightSource
  850. ConstAttenuation = 1.000000000000000000
  851. LightStyle = lsOmni
  852. SpotCutOff = 180.000000000000000000
  853. end
  854. object GLSphere1: TGLSphere
  855. Material.FrontProperties.Diffuse.Color = {E6E5653F8180003DCDCC4C3F0000803F}
  856. Material.FrontProperties.Emission.Color = {F4F3733FEEED6D3F000000000000803F}
  857. Radius = 10.000000000000000000
  858. end
  859. end
  860. object WorldCube: TGLDummyCube
  861. CubeSize = 1.000000000000000000
  862. object actFighter: TGLActor
  863. Material.MaterialLibrary = MaterialLibrary
  864. Material.LibMaterialName = 'Fighter'
  865. Position.Coordinates = {00001643000000000000A0410000803F}
  866. Up.Coordinates = {00000000000080BF0000008000000000}
  867. Interval = 100
  868. AutoCentering = [macCenterX, macCenterY, macCenterZ]
  869. end
  870. object actTeapot: TGLActor
  871. Material.MaterialLibrary = MaterialLibrary
  872. Material.LibMaterialName = 'Fighter'
  873. Position.Coordinates = {000016C300000000000000000000803F}
  874. Interval = 100
  875. AutoCentering = [macCenterX, macCenterY, macCenterZ]
  876. end
  877. object actSphere_big: TGLActor
  878. Material.MaterialLibrary = MaterialLibrary
  879. Material.LibMaterialName = 'Earth'
  880. Position.Coordinates = {00000000000016C3000000000000803F}
  881. Interval = 100
  882. AutoCentering = [macCenterX, macCenterY, macCenterZ]
  883. end
  884. object actSphere_lit: TGLActor
  885. Material.MaterialLibrary = MaterialLibrary
  886. Material.LibMaterialName = 'Earth'
  887. Position.Coordinates = {0000000000001643000000000000803F}
  888. Interval = 100
  889. AutoCentering = [macCenterX, macCenterY, macCenterZ]
  890. end
  891. end
  892. object PostShaderHolder: TGLPostShaderHolder
  893. TempTextureTarget = ttTextureRect
  894. Shaders = <>
  895. end
  896. object Camera: TGLCamera
  897. DepthOfView = 500.000000000000000000
  898. FocalLength = 65.000000000000000000
  899. TargetObject = GLXYZGrid1
  900. CameraStyle = csInfinitePerspective
  901. Position.Coordinates = {000048C20000164300007A430000803F}
  902. Direction.Coordinates = {00000000000080BF0000000000000000}
  903. Up.Coordinates = {00000000000000000000803F00000000}
  904. end
  905. end
  906. object Cadencer: TGLCadencer
  907. Scene = Scene
  908. MaxDeltaTime = 0.020000000000000000
  909. OnProgress = CadencerProgress
  910. Left = 96
  911. Top = 16
  912. end
  913. object MaterialLibrary: TGLMaterialLibrary
  914. Materials = <
  915. item
  916. Name = 'Noise'
  917. Tag = 0
  918. Material.Texture.Disabled = False
  919. end
  920. item
  921. Name = 'Fighter'
  922. Tag = 0
  923. Material.FrontProperties.Ambient.Color = {BFBEBE3EBBBABA3EBBBABA3E0000803F}
  924. Material.FrontProperties.Emission.Color = {B1B0B03DB1B0B03DB1B0B03D0000803F}
  925. Material.FrontProperties.Specular.Color = {8988083E8180003E8988083E0000803F}
  926. Material.BlendingMode = bmTransparency
  927. Material.Texture.TextureMode = tmModulate
  928. Material.Texture.Disabled = False
  929. end
  930. item
  931. Name = 'Earth'
  932. Tag = 0
  933. Material.FrontProperties.Ambient.Color = {E7E6E63EEBEAEA3EEBEAEA3E0000803F}
  934. Material.FrontProperties.Emission.Color = {F1F0F03DF1F0F03DF1F0F03D0000803F}
  935. Material.FrontProperties.Specular.Color = {8180003E8180003EE1E0E03D0000803F}
  936. Material.BlendingMode = bmTransparency
  937. Material.Texture.TextureMode = tmModulate
  938. Material.Texture.Disabled = False
  939. end
  940. item
  941. Name = 'Snow'
  942. Tag = 0
  943. Material.Texture.Disabled = False
  944. end
  945. item
  946. Name = 'FireGrade'
  947. Tag = 0
  948. Material.Texture.Disabled = False
  949. end
  950. item
  951. Name = 'Mask'
  952. Tag = 0
  953. Material.Texture.Disabled = False
  954. Material.Texture.DepthTextureMode = dtmIntensity
  955. end>
  956. Left = 40
  957. Top = 80
  958. end
  959. object GLSimpleNavigation1: TGLSimpleNavigation
  960. Form = Owner
  961. GLSceneViewer = Viewer
  962. FormCaption = 'GLSL Post Shader - %FPS'
  963. KeyCombinations = <
  964. item
  965. ShiftState = [ssLeft, ssRight]
  966. Action = snaZoom
  967. end
  968. item
  969. ShiftState = [ssLeft]
  970. Action = snaMoveAroundTarget
  971. end
  972. item
  973. ShiftState = [ssRight]
  974. Action = snaMoveAroundTarget
  975. end>
  976. Left = 192
  977. Top = 16
  978. end
  979. end