fCgTextureC.dfm 28 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076
  1. object Form1: TForm1
  2. Left = 0
  3. Top = 0
  4. Margins.Left = 5
  5. Margins.Top = 5
  6. Margins.Right = 5
  7. Margins.Bottom = 5
  8. Caption = 'Cg Multi Texturing'
  9. ClientHeight = 725
  10. ClientWidth = 1474
  11. Color = clBtnFace
  12. Font.Charset = DEFAULT_CHARSET
  13. Font.Color = clWindowText
  14. Font.Height = -19
  15. Font.Name = 'Tahoma'
  16. Font.Style = []
  17. OnCreate = FormCreate
  18. OnKeyPress = FormKeyPress
  19. OnMouseWheel = FormMouseWheel
  20. PixelsPerInch = 168
  21. TextHeight = 23
  22. object Splitter1: TSplitter
  23. Left = 548
  24. Top = 0
  25. Width = 5
  26. Height = 725
  27. Margins.Left = 5
  28. Margins.Top = 5
  29. Margins.Right = 5
  30. Margins.Bottom = 5
  31. Color = clBtnShadow
  32. MinSize = 53
  33. ParentColor = False
  34. end
  35. object Panel1: TPanel
  36. Left = 0
  37. Top = 0
  38. Width = 548
  39. Height = 725
  40. Margins.Left = 5
  41. Margins.Top = 5
  42. Margins.Right = 5
  43. Margins.Bottom = 5
  44. Align = alLeft
  45. BevelInner = bvRaised
  46. BevelOuter = bvLowered
  47. TabOrder = 0
  48. object PageControl1: TPageControl
  49. Left = 2
  50. Top = 2
  51. Width = 544
  52. Height = 721
  53. Margins.Left = 5
  54. Margins.Top = 5
  55. Margins.Right = 5
  56. Margins.Bottom = 5
  57. ActivePage = TabSheet3
  58. Align = alClient
  59. Font.Charset = ANSI_CHARSET
  60. Font.Color = clWindowText
  61. Font.Height = -19
  62. Font.Name = 'Tahoma'
  63. Font.Style = []
  64. ParentFont = False
  65. TabOrder = 0
  66. ExplicitLeft = 4
  67. ExplicitTop = 4
  68. ExplicitWidth = 540
  69. ExplicitHeight = 717
  70. object TabSheet1: TTabSheet
  71. Margins.Left = 5
  72. Margins.Top = 5
  73. Margins.Right = 5
  74. Margins.Bottom = 5
  75. Caption = 'Vertex Program'
  76. object Splitter3: TSplitter
  77. Left = 0
  78. Top = 506
  79. Width = 527
  80. Height = 5
  81. Cursor = crVSplit
  82. Margins.Left = 5
  83. Margins.Top = 5
  84. Margins.Right = 5
  85. Margins.Bottom = 5
  86. Align = alBottom
  87. Color = clBtnShadow
  88. MinSize = 53
  89. ParentColor = False
  90. end
  91. object Panel2: TPanel
  92. Left = 0
  93. Top = 0
  94. Width = 527
  95. Height = 44
  96. Margins.Left = 5
  97. Margins.Top = 5
  98. Margins.Right = 5
  99. Margins.Bottom = 5
  100. Align = alTop
  101. BevelOuter = bvNone
  102. TabOrder = 0
  103. object LabelVertProfile: TLabel
  104. Left = 154
  105. Top = 9
  106. Width = 111
  107. Height = 23
  108. Margins.Left = 5
  109. Margins.Top = 5
  110. Margins.Right = 5
  111. Margins.Bottom = 5
  112. Caption = 'Using profile:'
  113. end
  114. object CBVertexProgram: TCheckBox
  115. Left = 11
  116. Top = 7
  117. Width = 103
  118. Height = 30
  119. Margins.Left = 5
  120. Margins.Top = 5
  121. Margins.Right = 5
  122. Margins.Bottom = 5
  123. Caption = 'Enabled'
  124. Checked = True
  125. Font.Charset = ANSI_CHARSET
  126. Font.Color = clWindowText
  127. Font.Height = -19
  128. Font.Name = 'Tahoma'
  129. Font.Style = []
  130. ParentFont = False
  131. State = cbChecked
  132. TabOrder = 0
  133. OnClick = CBVertexProgramClick
  134. end
  135. end
  136. object Panel11: TPanel
  137. Left = 0
  138. Top = 44
  139. Width = 527
  140. Height = 462
  141. Margins.Left = 5
  142. Margins.Top = 5
  143. Margins.Right = 5
  144. Margins.Bottom = 5
  145. Align = alClient
  146. Caption = 'Panel6'
  147. TabOrder = 1
  148. object Panel12: TPanel
  149. Left = 2
  150. Top = 2
  151. Width = 523
  152. Height = 28
  153. Margins.Left = 5
  154. Margins.Top = 5
  155. Margins.Right = 5
  156. Margins.Bottom = 5
  157. Align = alTop
  158. BevelOuter = bvNone
  159. Caption = 'Shader Code'
  160. Color = clBtnHighlight
  161. TabOrder = 0
  162. end
  163. object MemoVertCode: TMemo
  164. Left = 2
  165. Top = 30
  166. Width = 523
  167. Height = 387
  168. Margins.Left = 5
  169. Margins.Top = 5
  170. Margins.Right = 5
  171. Margins.Bottom = 5
  172. Align = alClient
  173. Font.Charset = ANSI_CHARSET
  174. Font.Color = clWindowText
  175. Font.Height = -19
  176. Font.Name = 'Lucida Console'
  177. Font.Style = []
  178. ParentFont = False
  179. ScrollBars = ssBoth
  180. TabOrder = 1
  181. WordWrap = False
  182. OnChange = MemoVertCodeChange
  183. end
  184. object Panel13: TPanel
  185. Left = 2
  186. Top = 417
  187. Width = 523
  188. Height = 43
  189. Margins.Left = 5
  190. Margins.Top = 5
  191. Margins.Right = 5
  192. Margins.Bottom = 5
  193. Align = alBottom
  194. BevelOuter = bvNone
  195. TabOrder = 2
  196. DesignSize = (
  197. 534
  198. 43)
  199. object ButtonApplyVP: TButton
  200. Left = 403
  201. Top = 4
  202. Width = 117
  203. Height = 35
  204. Margins.Left = 5
  205. Margins.Top = 5
  206. Margins.Right = 5
  207. Margins.Bottom = 5
  208. Anchors = [akTop, akRight]
  209. Caption = 'Apply'
  210. Enabled = False
  211. TabOrder = 0
  212. OnClick = ButtonApplyVPClick
  213. ExplicitLeft = 392
  214. end
  215. end
  216. end
  217. object Panel5: TPanel
  218. Left = 0
  219. Top = 525
  220. Width = 536
  221. Height = 158
  222. Margins.Left = 5
  223. Margins.Top = 5
  224. Margins.Right = 5
  225. Margins.Bottom = 5
  226. Align = alBottom
  227. TabOrder = 2
  228. ExplicitTop = 511
  229. ExplicitWidth = 527
  230. DesignSize = (
  231. 536
  232. 158)
  233. object Label2: TLabel
  234. Left = 408
  235. Top = 9
  236. Width = 53
  237. Height = 23
  238. Margins.Left = 5
  239. Margins.Top = 5
  240. Margins.Right = 5
  241. Margins.Bottom = 5
  242. Anchors = [akTop, akRight]
  243. Caption = 'Show:'
  244. ExplicitLeft = 399
  245. end
  246. object Memo1: TMemo
  247. Left = 1
  248. Top = 1
  249. Width = 387
  250. Height = 156
  251. Margins.Left = 5
  252. Margins.Top = 5
  253. Margins.Right = 5
  254. Margins.Bottom = 5
  255. Align = alLeft
  256. Anchors = [akLeft, akTop, akRight, akBottom]
  257. Color = clBtnFace
  258. Font.Charset = ANSI_CHARSET
  259. Font.Color = clWindowText
  260. Font.Height = -16
  261. Font.Name = 'Lucida Console'
  262. Font.Style = []
  263. ParentFont = False
  264. ReadOnly = True
  265. ScrollBars = ssBoth
  266. TabOrder = 0
  267. WordWrap = False
  268. ExplicitLeft = 2
  269. ExplicitTop = 2
  270. ExplicitWidth = 378
  271. ExplicitHeight = 154
  272. end
  273. object Button1: TButton
  274. Left = 405
  275. Top = 37
  276. Width = 112
  277. Height = 31
  278. Margins.Left = 5
  279. Margins.Top = 5
  280. Margins.Right = 5
  281. Margins.Bottom = 5
  282. Anchors = [akTop, akRight]
  283. Caption = 'Params'
  284. TabOrder = 1
  285. OnClick = Button1Click
  286. ExplicitLeft = 396
  287. end
  288. object Button4: TButton
  289. Left = 405
  290. Top = 74
  291. Width = 112
  292. Height = 31
  293. Margins.Left = 5
  294. Margins.Top = 5
  295. Margins.Right = 5
  296. Margins.Bottom = 5
  297. Anchors = [akTop, akRight]
  298. Caption = 'Asm'
  299. TabOrder = 2
  300. OnClick = Button4Click
  301. ExplicitLeft = 396
  302. end
  303. end
  304. end
  305. object TabSheet2: TTabSheet
  306. Margins.Left = 5
  307. Margins.Top = 5
  308. Margins.Right = 5
  309. Margins.Bottom = 5
  310. Caption = 'Fragment Program'
  311. ImageIndex = 1
  312. object Splitter2: TSplitter
  313. Left = 0
  314. Top = 506
  315. Width = 527
  316. Height = 5
  317. Cursor = crVSplit
  318. Margins.Left = 5
  319. Margins.Top = 5
  320. Margins.Right = 5
  321. Margins.Bottom = 5
  322. Align = alBottom
  323. Color = clBtnShadow
  324. MinSize = 53
  325. ParentColor = False
  326. end
  327. object Panel4: TPanel
  328. Left = 0
  329. Top = 0
  330. Width = 527
  331. Height = 44
  332. Margins.Left = 5
  333. Margins.Top = 5
  334. Margins.Right = 5
  335. Margins.Bottom = 5
  336. Align = alTop
  337. BevelOuter = bvNone
  338. TabOrder = 0
  339. object LabelFragProfile: TLabel
  340. Left = 154
  341. Top = 9
  342. Width = 111
  343. Height = 23
  344. Margins.Left = 5
  345. Margins.Top = 5
  346. Margins.Right = 5
  347. Margins.Bottom = 5
  348. Caption = 'Using profile:'
  349. end
  350. object CBFragmentProgram: TCheckBox
  351. Left = 11
  352. Top = 7
  353. Width = 117
  354. Height = 30
  355. Margins.Left = 5
  356. Margins.Top = 5
  357. Margins.Right = 5
  358. Margins.Bottom = 5
  359. Caption = 'Enabled'
  360. Checked = True
  361. State = cbChecked
  362. TabOrder = 0
  363. OnClick = CBFragmentProgramClick
  364. end
  365. end
  366. object Panel6: TPanel
  367. Left = 0
  368. Top = 44
  369. Width = 527
  370. Height = 462
  371. Margins.Left = 5
  372. Margins.Top = 5
  373. Margins.Right = 5
  374. Margins.Bottom = 5
  375. Align = alClient
  376. Caption = 'Panel6'
  377. TabOrder = 1
  378. object Panel7: TPanel
  379. Left = 2
  380. Top = 2
  381. Width = 523
  382. Height = 28
  383. Margins.Left = 5
  384. Margins.Top = 5
  385. Margins.Right = 5
  386. Margins.Bottom = 5
  387. Align = alTop
  388. BevelOuter = bvNone
  389. Caption = 'Shader Code'
  390. Color = clBtnHighlight
  391. TabOrder = 0
  392. end
  393. object MemoFragCode: TMemo
  394. Left = 2
  395. Top = 30
  396. Width = 523
  397. Height = 387
  398. Margins.Left = 5
  399. Margins.Top = 5
  400. Margins.Right = 5
  401. Margins.Bottom = 5
  402. Align = alClient
  403. Font.Charset = ANSI_CHARSET
  404. Font.Color = clWindowText
  405. Font.Height = -19
  406. Font.Name = 'Lucida Console'
  407. Font.Style = []
  408. ParentFont = False
  409. ScrollBars = ssBoth
  410. TabOrder = 1
  411. WordWrap = False
  412. OnChange = MemoFragCodeChange
  413. end
  414. object Panel3: TPanel
  415. Left = 2
  416. Top = 417
  417. Width = 523
  418. Height = 43
  419. Margins.Left = 5
  420. Margins.Top = 5
  421. Margins.Right = 5
  422. Margins.Bottom = 5
  423. Align = alBottom
  424. BevelOuter = bvNone
  425. TabOrder = 2
  426. DesignSize = (
  427. 534
  428. 43)
  429. object ButtonApplyFP: TButton
  430. Left = 403
  431. Top = 4
  432. Width = 117
  433. Height = 35
  434. Margins.Left = 5
  435. Margins.Top = 5
  436. Margins.Right = 5
  437. Margins.Bottom = 5
  438. Anchors = [akTop, akRight]
  439. Caption = 'Apply'
  440. Enabled = False
  441. TabOrder = 0
  442. OnClick = ButtonApplyFPClick
  443. ExplicitLeft = 392
  444. end
  445. end
  446. end
  447. object Panel8: TPanel
  448. Left = 0
  449. Top = 525
  450. Width = 536
  451. Height = 158
  452. Margins.Left = 5
  453. Margins.Top = 5
  454. Margins.Right = 5
  455. Margins.Bottom = 5
  456. Align = alBottom
  457. TabOrder = 2
  458. ExplicitTop = 511
  459. ExplicitWidth = 527
  460. DesignSize = (
  461. 536
  462. 158)
  463. object Label1: TLabel
  464. Left = 408
  465. Top = 9
  466. Width = 53
  467. Height = 23
  468. Margins.Left = 5
  469. Margins.Top = 5
  470. Margins.Right = 5
  471. Margins.Bottom = 5
  472. Anchors = [akTop, akRight]
  473. Caption = 'Show:'
  474. ExplicitLeft = 399
  475. end
  476. object Memo3: TMemo
  477. Left = 1
  478. Top = 1
  479. Width = 387
  480. Height = 156
  481. Margins.Left = 5
  482. Margins.Top = 5
  483. Margins.Right = 5
  484. Margins.Bottom = 5
  485. Align = alLeft
  486. Anchors = [akLeft, akTop, akRight, akBottom]
  487. Color = clBtnFace
  488. Font.Charset = ANSI_CHARSET
  489. Font.Color = clWindowText
  490. Font.Height = -19
  491. Font.Name = 'Courier New'
  492. Font.Style = []
  493. ParentFont = False
  494. ReadOnly = True
  495. ScrollBars = ssBoth
  496. TabOrder = 0
  497. WordWrap = False
  498. ExplicitLeft = 2
  499. ExplicitTop = 2
  500. ExplicitWidth = 378
  501. ExplicitHeight = 154
  502. end
  503. object Button2: TButton
  504. Left = 405
  505. Top = 37
  506. Width = 112
  507. Height = 31
  508. Margins.Left = 5
  509. Margins.Top = 5
  510. Margins.Right = 5
  511. Margins.Bottom = 5
  512. Anchors = [akTop, akRight]
  513. Caption = 'Params'
  514. TabOrder = 1
  515. OnClick = Button2Click
  516. ExplicitLeft = 396
  517. end
  518. object Button3: TButton
  519. Left = 405
  520. Top = 74
  521. Width = 112
  522. Height = 31
  523. Margins.Left = 5
  524. Margins.Top = 5
  525. Margins.Right = 5
  526. Margins.Bottom = 5
  527. Anchors = [akTop, akRight]
  528. Caption = 'Asm'
  529. TabOrder = 2
  530. OnClick = Button3Click
  531. ExplicitLeft = 396
  532. end
  533. end
  534. end
  535. object TabSheet3: TTabSheet
  536. Margins.Left = 5
  537. Margins.Top = 5
  538. Margins.Right = 5
  539. Margins.Bottom = 5
  540. Caption = 'Controls'
  541. ImageIndex = 2
  542. DesignSize = (
  543. 536
  544. 683)
  545. object Label16: TLabel
  546. Left = 14
  547. Top = 476
  548. Width = 490
  549. Height = 23
  550. Margins.Left = 5
  551. Margins.Top = 5
  552. Margins.Right = 5
  553. Margins.Bottom = 5
  554. Caption = 'Note: NV2x class hardware may not honor negative values'
  555. end
  556. object GroupBox1: TGroupBox
  557. Left = 14
  558. Top = 70
  559. Width = 501
  560. Height = 184
  561. Margins.Left = 5
  562. Margins.Top = 5
  563. Margins.Right = 5
  564. Margins.Bottom = 5
  565. Anchors = [akLeft, akTop, akRight]
  566. Caption = ' TexCoord. Shifts '
  567. TabOrder = 0
  568. ExplicitWidth = 492
  569. DesignSize = (
  570. 501
  571. 184)
  572. object Label18: TLabel
  573. Left = 112
  574. Top = 151
  575. Width = 347
  576. Height = 22
  577. Margins.Left = 5
  578. Margins.Top = 5
  579. Margins.Right = 5
  580. Margins.Bottom = 5
  581. Alignment = taCenter
  582. Anchors = [akLeft, akTop, akRight]
  583. AutoSize = False
  584. Caption = '0'
  585. ExplicitWidth = 338
  586. end
  587. object Label3: TLabel
  588. Left = 28
  589. Top = 42
  590. Width = 46
  591. Height = 23
  592. Margins.Left = 5
  593. Margins.Top = 5
  594. Margins.Right = 5
  595. Margins.Bottom = 5
  596. Caption = 'Tex 0'
  597. end
  598. object Label4: TLabel
  599. Left = 28
  600. Top = 70
  601. Width = 46
  602. Height = 23
  603. Margins.Left = 5
  604. Margins.Top = 5
  605. Margins.Right = 5
  606. Margins.Bottom = 5
  607. Caption = 'Tex 1'
  608. end
  609. object Label5: TLabel
  610. Left = 28
  611. Top = 98
  612. Width = 46
  613. Height = 23
  614. Margins.Left = 5
  615. Margins.Top = 5
  616. Margins.Right = 5
  617. Margins.Bottom = 5
  618. Caption = 'Tex 2'
  619. end
  620. object Label6: TLabel
  621. Left = 28
  622. Top = 126
  623. Width = 46
  624. Height = 23
  625. Margins.Left = 5
  626. Margins.Top = 5
  627. Margins.Right = 5
  628. Margins.Bottom = 5
  629. Caption = 'Tex 3'
  630. end
  631. object Label11: TLabel
  632. Left = 56
  633. Top = 42
  634. Width = 6
  635. Height = 23
  636. Margins.Left = 5
  637. Margins.Top = 5
  638. Margins.Right = 5
  639. Margins.Bottom = 5
  640. end
  641. object Label12: TLabel
  642. Left = 98
  643. Top = 151
  644. Width = 17
  645. Height = 23
  646. Margins.Left = 5
  647. Margins.Top = 5
  648. Margins.Right = 5
  649. Margins.Bottom = 5
  650. Caption = '-1'
  651. end
  652. object Label14: TLabel
  653. Left = 450
  654. Top = 151
  655. Width = 10
  656. Height = 23
  657. Margins.Left = 5
  658. Margins.Top = 5
  659. Margins.Right = 5
  660. Margins.Bottom = 5
  661. Anchors = [akTop, akRight]
  662. Caption = '1'
  663. ExplicitLeft = 441
  664. end
  665. object TrackBar1: TTrackBar
  666. Left = 98
  667. Top = 42
  668. Width = 370
  669. Height = 26
  670. Margins.Left = 5
  671. Margins.Top = 5
  672. Margins.Right = 5
  673. Margins.Bottom = 5
  674. Anchors = [akLeft, akTop, akRight]
  675. Max = 100
  676. Position = 50
  677. TabOrder = 0
  678. ThumbLength = 21
  679. TickMarks = tmBoth
  680. TickStyle = tsNone
  681. ExplicitWidth = 361
  682. end
  683. object TrackBar2: TTrackBar
  684. Left = 98
  685. Top = 70
  686. Width = 370
  687. Height = 26
  688. Margins.Left = 5
  689. Margins.Top = 5
  690. Margins.Right = 5
  691. Margins.Bottom = 5
  692. Anchors = [akLeft, akTop, akRight]
  693. Max = 100
  694. Position = 50
  695. TabOrder = 1
  696. ThumbLength = 21
  697. TickMarks = tmBoth
  698. TickStyle = tsNone
  699. ExplicitWidth = 361
  700. end
  701. object TrackBar3: TTrackBar
  702. Left = 98
  703. Top = 98
  704. Width = 370
  705. Height = 26
  706. Margins.Left = 5
  707. Margins.Top = 5
  708. Margins.Right = 5
  709. Margins.Bottom = 5
  710. Anchors = [akLeft, akTop, akRight]
  711. Max = 100
  712. Position = 50
  713. TabOrder = 2
  714. ThumbLength = 21
  715. TickMarks = tmBoth
  716. TickStyle = tsNone
  717. ExplicitWidth = 361
  718. end
  719. object TrackBar4: TTrackBar
  720. Left = 98
  721. Top = 126
  722. Width = 370
  723. Height = 26
  724. Margins.Left = 5
  725. Margins.Top = 5
  726. Margins.Right = 5
  727. Margins.Bottom = 5
  728. Anchors = [akLeft, akTop, akRight]
  729. Max = 100
  730. Position = 50
  731. TabOrder = 3
  732. ThumbLength = 21
  733. TickMarks = tmBoth
  734. TickStyle = tsNone
  735. ExplicitWidth = 361
  736. end
  737. end
  738. object GroupBox2: TGroupBox
  739. Left = 14
  740. Top = 280
  741. Width = 501
  742. Height = 184
  743. Margins.Left = 5
  744. Margins.Top = 5
  745. Margins.Right = 5
  746. Margins.Bottom = 5
  747. Anchors = [akLeft, akTop, akRight]
  748. Caption = ' Blending Weights '
  749. TabOrder = 1
  750. ExplicitWidth = 492
  751. DesignSize = (
  752. 501
  753. 184)
  754. object Label17: TLabel
  755. Left = 112
  756. Top = 151
  757. Width = 347
  758. Height = 22
  759. Margins.Left = 5
  760. Margins.Top = 5
  761. Margins.Right = 5
  762. Margins.Bottom = 5
  763. Alignment = taCenter
  764. Anchors = [akLeft, akTop, akRight]
  765. AutoSize = False
  766. Caption = '0'
  767. ExplicitWidth = 338
  768. end
  769. object Label7: TLabel
  770. Left = 28
  771. Top = 42
  772. Width = 46
  773. Height = 23
  774. Margins.Left = 5
  775. Margins.Top = 5
  776. Margins.Right = 5
  777. Margins.Bottom = 5
  778. Caption = 'Tex 0'
  779. end
  780. object Label8: TLabel
  781. Left = 28
  782. Top = 70
  783. Width = 46
  784. Height = 23
  785. Margins.Left = 5
  786. Margins.Top = 5
  787. Margins.Right = 5
  788. Margins.Bottom = 5
  789. Caption = 'Tex 1'
  790. end
  791. object Label9: TLabel
  792. Left = 28
  793. Top = 98
  794. Width = 46
  795. Height = 23
  796. Margins.Left = 5
  797. Margins.Top = 5
  798. Margins.Right = 5
  799. Margins.Bottom = 5
  800. Caption = 'Tex 2'
  801. end
  802. object Label10: TLabel
  803. Left = 28
  804. Top = 126
  805. Width = 46
  806. Height = 23
  807. Margins.Left = 5
  808. Margins.Top = 5
  809. Margins.Right = 5
  810. Margins.Bottom = 5
  811. Caption = 'Tex 3'
  812. end
  813. object Label13: TLabel
  814. Left = 450
  815. Top = 151
  816. Width = 10
  817. Height = 23
  818. Margins.Left = 5
  819. Margins.Top = 5
  820. Margins.Right = 5
  821. Margins.Bottom = 5
  822. Anchors = [akTop, akRight]
  823. Caption = '1'
  824. ExplicitLeft = 441
  825. end
  826. object Label15: TLabel
  827. Left = 98
  828. Top = 151
  829. Width = 17
  830. Height = 23
  831. Margins.Left = 5
  832. Margins.Top = 5
  833. Margins.Right = 5
  834. Margins.Bottom = 5
  835. Caption = '-1'
  836. end
  837. object TrackBar5: TTrackBar
  838. Left = 98
  839. Top = 42
  840. Width = 370
  841. Height = 26
  842. Margins.Left = 5
  843. Margins.Top = 5
  844. Margins.Right = 5
  845. Margins.Bottom = 5
  846. Anchors = [akLeft, akTop, akRight]
  847. Max = 100
  848. Position = 75
  849. TabOrder = 0
  850. ThumbLength = 21
  851. TickMarks = tmBoth
  852. TickStyle = tsNone
  853. ExplicitWidth = 361
  854. end
  855. object TrackBar6: TTrackBar
  856. Left = 98
  857. Top = 70
  858. Width = 370
  859. Height = 26
  860. Margins.Left = 5
  861. Margins.Top = 5
  862. Margins.Right = 5
  863. Margins.Bottom = 5
  864. Anchors = [akLeft, akTop, akRight]
  865. Max = 100
  866. Position = 75
  867. TabOrder = 1
  868. ThumbLength = 21
  869. TickMarks = tmBoth
  870. TickStyle = tsNone
  871. ExplicitWidth = 361
  872. end
  873. object TrackBar7: TTrackBar
  874. Left = 98
  875. Top = 98
  876. Width = 370
  877. Height = 26
  878. Margins.Left = 5
  879. Margins.Top = 5
  880. Margins.Right = 5
  881. Margins.Bottom = 5
  882. Anchors = [akLeft, akTop, akRight]
  883. Max = 100
  884. Position = 75
  885. TabOrder = 2
  886. ThumbLength = 21
  887. TickMarks = tmBoth
  888. TickStyle = tsNone
  889. ExplicitWidth = 361
  890. end
  891. object TrackBar8: TTrackBar
  892. Left = 98
  893. Top = 126
  894. Width = 370
  895. Height = 26
  896. Margins.Left = 5
  897. Margins.Top = 5
  898. Margins.Right = 5
  899. Margins.Bottom = 5
  900. Anchors = [akLeft, akTop, akRight]
  901. Max = 100
  902. Position = 65
  903. TabOrder = 3
  904. ThumbLength = 21
  905. TickMarks = tmBoth
  906. TickStyle = tsNone
  907. ExplicitWidth = 361
  908. end
  909. end
  910. object CheckBox2: TCheckBox
  911. Left = 25
  912. Top = 21
  913. Width = 229
  914. Height = 30
  915. Margins.Left = 5
  916. Margins.Top = 5
  917. Margins.Right = 5
  918. Margins.Bottom = 5
  919. Caption = 'CgShader Enabled'
  920. Checked = True
  921. Font.Charset = ANSI_CHARSET
  922. Font.Color = clWindowText
  923. Font.Height = -19
  924. Font.Name = 'Tahoma'
  925. Font.Style = []
  926. ParentFont = False
  927. State = cbChecked
  928. TabOrder = 2
  929. OnClick = CheckBox2Click
  930. end
  931. end
  932. end
  933. end
  934. object Panel9: TPanel
  935. Left = 553
  936. Top = 0
  937. Width = 921
  938. Height = 725
  939. Margins.Left = 5
  940. Margins.Top = 5
  941. Margins.Right = 5
  942. Margins.Bottom = 5
  943. Align = alClient
  944. Font.Charset = ANSI_CHARSET
  945. Font.Color = clWindowText
  946. Font.Height = -33
  947. Font.Name = 'Tahoma'
  948. Font.Style = [fsBold]
  949. ParentFont = False
  950. TabOrder = 1
  951. object PanelFPS: TPanel
  952. Left = 1
  953. Top = 1
  954. Width = 919
  955. Height = 84
  956. Margins.Left = 5
  957. Margins.Top = 5
  958. Margins.Right = 5
  959. Margins.Bottom = 5
  960. Align = alTop
  961. Caption = 'FPS'
  962. Font.Charset = ANSI_CHARSET
  963. Font.Color = clWindowText
  964. Font.Height = -33
  965. Font.Name = 'Trebuchet MS'
  966. Font.Style = []
  967. ParentFont = False
  968. TabOrder = 0
  969. ExplicitLeft = 2
  970. ExplicitTop = 2
  971. ExplicitWidth = 917
  972. end
  973. object GLSceneViewer1: TGLSceneViewer
  974. Left = 1
  975. Top = 85
  976. Width = 919
  977. Height = 639
  978. Margins.Left = 5
  979. Margins.Top = 5
  980. Margins.Right = 5
  981. Margins.Bottom = 5
  982. Camera = GLCamera1
  983. Buffer.Lighting = False
  984. Buffer.AntiAliasing = aa4xHQ
  985. FieldOfView = 162.211334228515600000
  986. PenAsTouch = False
  987. Align = alClient
  988. OnMouseDown = GLSceneViewer1MouseDown
  989. OnMouseMove = GLSceneViewer1MouseMove
  990. TabOrder = 1
  991. ExplicitLeft = 2
  992. ExplicitTop = 86
  993. ExplicitWidth = 917
  994. ExplicitHeight = 637
  995. end
  996. end
  997. object GLScene1: TGLScene
  998. Left = 32
  999. Top = 80
  1000. object GLXYZGrid1: TGLXYZGrid
  1001. Position.Coordinates = {000000006F12033B000000000000803F}
  1002. LineColor.Color = {938C0C3E938E0E3F938C0C3E0000803F}
  1003. XSamplingScale.Min = -2.000000000000000000
  1004. XSamplingScale.Max = 2.000000000000000000
  1005. XSamplingScale.Step = 0.100000001490116100
  1006. YSamplingScale.Step = 0.100000001490116100
  1007. ZSamplingScale.Min = -2.000000000000000000
  1008. ZSamplingScale.Max = 2.000000000000000000
  1009. ZSamplingScale.Step = 0.100000001490116100
  1010. Parts = [gpX, gpZ]
  1011. end
  1012. object GLPlane1: TGLPlane
  1013. Material.MaterialLibrary = GLMatLib
  1014. Material.LibMaterialName = 'LibMaterial'
  1015. Direction.Coordinates = {000000000000803F0000000000000000}
  1016. PitchAngle = 90.000000000000000000
  1017. Up.Coordinates = {0000000000000000000080BF00000000}
  1018. Height = 1.000000000000000000
  1019. Width = 1.000000000000000000
  1020. end
  1021. object GLCamera1: TGLCamera
  1022. DepthOfView = 100.000000000000000000
  1023. FocalLength = 50.000000000000000000
  1024. TargetObject = GLPlane1
  1025. CameraStyle = csInfinitePerspective
  1026. Position.Coordinates = {000000000000C03F0000803F0000803F}
  1027. end
  1028. end
  1029. object GLCadencer1: TGLCadencer
  1030. Scene = GLScene1
  1031. OnProgress = GLCadencer1Progress
  1032. Left = 32
  1033. Top = 144
  1034. end
  1035. object CgShader1: TCgShader
  1036. VertexProgram.OnApply = CgShader1ApplyVP
  1037. FragmentProgram.OnApply = CgShader1ApplyFP
  1038. FragmentProgram.OnUnApply = CgShader1UnApplyFP
  1039. OnApplyVP = CgShader1ApplyVP
  1040. OnApplyFP = CgShader1ApplyFP
  1041. OnUnApplyFP = CgShader1UnApplyFP
  1042. OnInitialize = CgShader1Initialize
  1043. Left = 168
  1044. Top = 80
  1045. end
  1046. object Timer1: TTimer
  1047. OnTimer = Timer1Timer
  1048. Left = 164
  1049. Top = 144
  1050. end
  1051. object GLMatLib: TGLMaterialLibrary
  1052. Materials = <
  1053. item
  1054. Name = 'LibMaterial'
  1055. Tag = 0
  1056. Material.Texture.Disabled = False
  1057. Shader = CgShader1
  1058. end
  1059. item
  1060. Name = 'LibMaterial1'
  1061. Tag = 0
  1062. Material.Texture.Disabled = False
  1063. end
  1064. item
  1065. Name = 'LibMaterial2'
  1066. Tag = 0
  1067. end
  1068. item
  1069. Name = 'LibMaterial3'
  1070. Tag = 0
  1071. end>
  1072. TexturePaths = '..\\..\\..\\media\\'
  1073. Left = 105
  1074. Top = 80
  1075. end
  1076. end