home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 8 / HYPERLIB-1993-VOL8-CD1.ISO.7z / HYPERLIB-1993-VOL8-CD1.ISO / Wingz / DG (.txt) < prev    next >
Wingz Script  |  1993-02-05  |  36KB  |  484 lines
  1. WNGZWZSC0120
  2. Start of DG
  3.     dg:doit=0
  4. call DG:convert()
  5.     dg:doit=0
  6. repaint off dg:doit=1 
  7. remove custom format ctstring(4,0) if not cerror() select control 5
  8.         list box custom formats if ctvalue(5,0) unselect control item ctvalue(5,0) end if
  9.         select control 4 field text "" end if
  10.     dg:doit=0
  11. .repaint off dg:doit=1 dg:custfmt=ctstring(4,0)
  12. if length(ctstring(5,0)) select control 4 field text ctstring(5,0)
  13.         end if on mousedoubleclick repaint off dg:doit=1 dg:custfmt=ctstring(4,0)
  14.         quit dialog box end mousedoubleclick
  15. format custom "
  16. Adg:val1=ctvalue(6,1)
  17.         dg:val2=ctvalue(7,0) dg:str1=ctstring(8,0)
  18. auto save on
  19. auto save off
  20. auto save sheet every 
  21. auto save sheet name "
  22. dg:val1=ctvalue(3,0) repaint on
  23. dg:val1=ctvalue(3,0) repaint on
  24.  dg:str1=ctstring(4,0) repaint on
  25. Wdg:fgcol=ctvalue(3,0)
  26.         dg:bgcol=ctvalue(4,0) dg:patt=ctvalue(5,0) dg:val1=ctvalue(6,0)
  27. Yselect control 5 pattern picker fg ctvalue(3,0) select control 7
  28.         shadow fg ctvalue(3,0)
  29. Yselect control 5 pattern picker bg ctvalue(4,0) select control 7
  30.         shadow bg ctvalue(4,0)
  31. ,select control 7 shadow pattern ctvalue(5,0)
  32. -select control 7 shadow strength ctvalue(6,0)
  33. 3D chart shadow fg 
  34. 3D chart shadow bg 
  35. 3D chart shadow pattern 
  36. 3D chart shadow strength 
  37.  dg:str1=ctstring(3,0) repaint on
  38. +repaint off dg:doit=1 call dg:getsettings()
  39. ;repaint off dg:doit=2 call dg:getsettings() quit dialog box
  40. ;repaint off dg:doit=3 call dg:getsettings() quit dialog box
  41.     dg:doit=0
  42. call dg:frupdate()
  43. goto line 
  44. replace
  45. replace all
  46.  field text "5
  47.  with "
  48.  options "5
  49. 3dg:findtype=ctvalue(3,0)
  50.         dg:findstr=ctstring(4,0)
  51. find text"
  52. find value 
  53. find formula text "
  54. find criteria 
  55. select range 
  56. dg:val1=ctvalue(3,0)
  57. column width 
  58. dg:val1=ctvalue(3,0)
  59. row height 
  60. dg:str1=ctstring(3,0)
  61. dg:str1=ctstring(4,0)
  62. call dg:pasteupdate()
  63. Zon mousedoubleclick dg:doit=1 dg:str1=ctstring(4,0) quit dialog box
  64.         end mousedoubleclick
  65. put text "
  66. ,dg:str1=ctstring(4,0)
  67.         dg:val1=ctvalue(5,0)
  68. object name "
  69. series width 
  70. dg:str1=ctstring(4,0)
  71.         dg:val1=ctvalue(5,0) dg:val2=ctvalue(6,0) dg:val3=ctvalue(7,1)
  72.         dg:val4=ctvalue(8,0) dg:val5=ctvalue(9,0)
  73. Hselect control 8 if ctvalue(7,1) ungrey control else grey control end if
  74. object name "
  75. 3D width height 
  76. 3D depth height 
  77. manual base placement 
  78.  percent5
  79. series width 
  80. dg:str1=ctstring(4,0)
  81.     dg:val1=ctvalue(5,0) dg:val2=ctvalue(6,0) dg:val3=ctvalue(7,0)
  82.     dg:str2=ctstring(8,0) dg:val4=ctvalue(9,0)
  83. Hselect control 8 if ctvalue(6,3) ungrey control else grey control end if
  84. object name "
  85. pie sorting 
  86.     ascending
  87. descending
  88. pie weight
  89. ing off
  90. ing sum
  91.  range 
  92. pie starting angle 
  93.     clockwise
  94. counterclockwise
  95. mdg:str1=ctstring(4,0)
  96.         dg:val1=ctvalue(5,1) dg:val2=ctvalue(6,1) dg:val3=ctvalue(7,1)
  97.         dg:val4=ctvalue(8,0)
  98. 7if not ctvalue(6,1) select control 5 check box 1 end if
  99. 7if not ctvalue(6,1) select control 5 check box 1 end if
  100. Hselect control 8 if ctvalue(7,1) ungrey control else grey control end if
  101. object name "
  102. base contour bands 
  103. base contour lines 
  104. surface smoothing 
  105. call dg:wireup()
  106. call dg:wiregrey()
  107. call dg:wiregrey()
  108. call dg:wiregrey()
  109. object name "
  110. 3D width height 
  111. 3D depth height 
  112. manual base placement 
  113.  percent5
  114. surface smoothing 
  115. surface axes 
  116. surface contour lines 
  117. base contour bands 
  118. base contour lines 
  119. call dg:surfupdate()
  120. call dg:surfgrey()
  121. call dg:surfgrey()
  122. call dg:surfgrey()
  123. call dg:surfgrey()
  124. call dg:surfgrey()
  125. object name "
  126. 3D width height 
  127. 3D depth height 
  128. manual base placement 
  129.  percent5
  130. surface smoothing 
  131. surface axes 
  132. surface pedestal 
  133. surface contour bands 
  134. surface clipping on
  135. surface clipping off
  136. surface contour lines 
  137. base contour bands 
  138. base contour lines 
  139. Bdg:str1=ctstring(3,0)
  140.         dg:str2=ctstring(4,0) dg:val1=ctvalue(6,1)
  141. object name "
  142. control name "
  143. show control title "
  144. visible button5
  145. call dg:fieldupdate()
  146. call dg:fieldup()
  147. object name "
  148. control name "
  149. show control title "
  150. left indent 
  151.  points5
  152. right indent 
  153.  points5
  154. field top margin 
  155.  points5
  156. field bottom margin 
  157.  points5
  158. indent 
  159.  points5
  160. lock field text5
  161.  scroll bar field5
  162. field word wrap 
  163. field 
  164.  note5
  165. field tabs every 
  166.  points5
  167. line spacing 
  168. single
  169. double
  170. fixed 
  171.  points5
  172. single plus 
  173.  points5
  174. dg:str1=ctstring(4,0)
  175. object name "
  176. Adg:str1=ctstring(4,0)
  177.         dg:val1=ctvalue(5,0) dg:val2=ctvalue(6,1)
  178. object name "
  179. poly smoothing 
  180. dg:val1=ctvalue(3,0)
  181.  select control 5 repaint control
  182. )on repaint call dg:paintpie() end repaint
  183. elevation 
  184. ldg:val1=ctvalue(3,0)
  185.         dg:val2=ctvalue(4,0) dg:val3=ctvalue(5,0) dg:val4=ctvalue(6,0)
  186.         dg:val5=ctvalue(7,0)
  187.  select control 8 repaint control
  188.  select control 8 repaint control
  189.  select control 8 repaint control
  190.  select control 8 repaint control
  191.  select control 8 repaint control
  192. select control 5 number wheel position mousex()*100/2620
  193.         select control 6 number wheel position 100-mousey()*100/2620
  194.         select control 8 repaint control on repaint call dg:repview() end repaint
  195. elevation 
  196.     rotation 
  197. vanishing x 
  198. vanishing y 
  199.     distance 
  200. on repaint paint red bar dg:val4, dg:val5, dg:val6
  201.             paint green bar dg:val4, dg:val5, dg:val6
  202.             paint blue bar dg:val4, dg:val5, dg:val6
  203.             paint sample box dg:val4, dg:val5, dg:val6 end repaint
  204. Geneva
  205. call dg:dobars(1) paint sample box ctvalue(1,0), dg:val5, dg:val6
  206.             on mousestilldown call dg:dobars(1) end mousestilldown on mousemove
  207.             paint sample box ctvalue(1,0), dg:val5, dg:val6 end mousemove
  208. Geneva
  209. call dg:dobars(2) paint sample box dg:val4, ctvalue(2,0), dg:val6
  210.             on mousestilldown call dg:dobars(2) end mousestilldown on mousemove
  211.             paint sample box dg:val4, ctvalue(2,0), dg:val6 end mousemove
  212. Geneva
  213. call dg:dobars(3) paint sample box dg:val4, dg:val5, ctvalue(3,0)
  214.             on mousestilldown call dg:dobars(3) end mousestilldown on mousemove
  215.             paint sample box dg:val4, dg:val5, ctvalue(3,0) end mousemove
  216.     dg:doit=0
  217. Odg:colpikit=1 dg:val1=ctvalue(1,0) dg:val2=ctvalue(2,0)
  218.             dg:val3=ctvalue(3,0)
  219. call dg:redo()
  220. text color 5
  221. Udg:val1=ctvalue(3,0)
  222.         dg:val2=ctvalue(4,0) dg:val3=ctvalue(5,0) dg:val4=ctvalue(6,0)
  223. select control 4 line picker fg ctvalue(3,0) select control 5
  224.         symbol picker color ctvalue(3,0) select control 7 repaint control
  225.  select control 7 repaint control
  226.  select control 7 repaint control
  227.  select control 7 repaint control
  228. on repaint symbol color ctvalue(3,0) symbol width ctvalue(4,0)
  229.         symbol size ctvalue(6,0) points symbol type ctvalue(5,0)
  230.         draw symbol (0.5,0.5) end repaint
  231. symbol color 
  232. symbol width 
  233. symbol type 
  234. symbol size 
  235.  points5
  236. dg:val1=ctvalue(3,1)
  237.         dg:str1=ctstring(4,0) dg:str2=ctstring(5,0) dg:val2=ctvalue(6,0)
  238.         dg:val3=ctvalue(7,0) dg:str3=ctstring(8,0)
  239. Pselect control 4,5,6,7 if ctvalue(3,1) ungrey control else
  240.         grey control end if
  241. manual scaling from 
  242.  to 5
  243.  with 5
  244.  major and 5
  245.  minor divisions5
  246. automatic scaling
  247. axis log base 
  248. Vdg:val1=ctvalue(3,0)
  249.         dg:val2=ctvalue(4,1) dg:val3=ctvalue(5,1) dg:str1=ctstring(6,0)
  250. series type 
  251. layer
  252. hide series legend
  253. show series
  254. stack series5
  255. series column 
  256. +dg:val1=ctvalue(3,0)
  257.         dg:val2=ctvalue(4,0)
  258. series label 
  259. value
  260. percent
  261. hide 
  262. series label 5
  263. centered
  264. exterior
  265. <on repaint frame rectangle (0.0,0.375) (1.0,1.0) end repaint
  266.     dg:doit=0
  267. mrepaint off dg:doit=1 dg:str1=ctstring(3,0) dg:str2=ctstring(4,0)
  268.         dg:val1=ctvalue(5,1) dg:val2=ctvalue(6,1)
  269. password 1 "
  270. " password 2 "5
  271.  read only5
  272. encryption 
  273. dg:val1=ctvalue(3,0)
  274. text size 
  275. dg:val1=ctvalue(3,0)
  276. window scale 
  277. Bdg:str1=ctstring(3,0)
  278.         dg:str2=ctstring(4,0) dg:val1=ctvalue(5,0)
  279. iterate until 
  280.  changes less than 5
  281.  max 5
  282.  times5
  283. iterate 
  284.  times5
  285. dg:val1=ctvalue(3,0)
  286. precision 
  287. .dg:str1=ctstring(3,0)
  288.             dg:str2=ctstring(4,0)
  289. name range "
  290. " as "5
  291. dg:hpval=-1 dg:doit=0
  292. dg:hpval=ctvalue(3,0)
  293. Non mousedoubleclick dg:hpval=ctvalue(3,0) quit dialog box end mousedoubleclick
  294. Fdg:fgcol=ctvalue(3,0) dg:bgcol=ctvalue(4,0)
  295.                   dg:patt=ctvalue(5,0)
  296. /select control 5 pattern picker fg ctvalue(3,0)
  297. /select control 5 pattern picker bg ctvalue(4,0)
  298.  fg 5
  299.  bg 5
  300.      pattern 5
  301. plot interior
  302.     base side
  303. base top
  304. Bdg:fgcol=ctvalue(3,0)
  305.         dg:bgcol=ctvalue(4,0) dg:patt=ctvalue(5,0)
  306. ^select control 5 pattern picker fg ctvalue(3,0) select control 6
  307.         line picker fg ctvalue(3,0)
  308. ^select control 5 pattern picker bg ctvalue(4,0) select control 6
  309.         line picker bg ctvalue(4,0)
  310. 1select control 6 line picker pattern ctvalue(5,0)
  311. dg:linewid=ctvalue(6,0)
  312.  fg 5
  313.  bg 5
  314.      pattern 5
  315.  width 5
  316. dg:fgcol=ctvalue(3,0)
  317.         dg:bgcol=ctvalue(4,0) dg:patt=ctvalue(5,0) dg:val2=ctvalue(7,1)
  318.         dg:val3=ctvalue(7,2) dg:val4=ctvalue(9,0)
  319. select control 5 pattern picker fg ctvalue(3,0) select control 6
  320.         line picker fg ctvalue(3,0) select control 8 repaint control
  321. select control 5 pattern picker bg ctvalue(4,0) select control 6
  322.         line picker bg ctvalue(4,0) select control 8 repaint control
  323. Tselect control 6 line picker pattern ctvalue(5,0) select control 8
  324.         repaint control
  325. 8dg:linewid=ctvalue(6,0) select control 8 repaint control
  326. {select control 9 if ctvalue(7,1) or ctvalue(7,2) ungrey control else
  327.         grey control end if select control 8 repaint control
  328. *on repaint call dg:drawarrow() end repaint
  329.  select control 8 repaint control
  330.  fg 5
  331.  bg 5
  332.      pattern 5
  333.  width 5
  334. double
  335.  arrow5
  336. single
  337.  arrow5
  338. arrow length 
  339.  points5
  340. axis major grid
  341. axis minor grid
  342.     base line
  343. surface line
  344. plot interior line
  345. call dg:bordup()
  346. call dg:bordup()
  347. call dg:bordup()
  348. call dg:bordup()
  349. call dg:bordup()
  350. call dg:bordup()
  351. call dg:bordup()
  352. call dg:bordup()
  353. call dg:bordup()
  354. call dg:bordup()
  355. square
  356. round
  357.  corners5
  358.  drop shadow5
  359. single
  360. double
  361. thick inner
  362. thick outer
  363.  line border5
  364. shadow fg 
  365. shadow bg 
  366. shadow pattern 
  367. border x offset 
  368.  points5
  369. border y offset 
  370.  points5
  371. shadow strength 
  372.     End of DG
  373. colpick
  374. colorpicker
  375. val10    
  376. val11
  377. val12
  378. val13
  379. arrowfg
  380. arrowbg
  381. arrowpat
  382. linewid
  383. fgcol
  384. bgcol
  385. colpikit
  386. findtype
  387. findstr
  388. edtype
  389. edcase
  390. edword
  391. edwrap 
  392. edback!
  393. edfind"
  394. edrep#
  395. lastformulapaste$
  396. hpval%
  397. custfmt&
  398. outline'
  399. bottom)
  400. left*
  401. right+
  402. twips,
  403. DGleftmin-    
  404. DGtopmin.
  405. DGrightmin/
  406. DGbottommin0
  407. xxxx1
  408. DGPreview
  409. fixnumwhl9
  410. convert
  411. dgokcan
  412. DGCustom6
  413. sheetinfoP    
  414. DGPreviewGotoj
  415. DGFileError
  416. DGAskK
  417. DGShadow
  418. getpaswrdP
  419. getsettings
  420. frupdate
  421. fieldfind
  422. ssfind?
  423. DGFind7
  424. DGColumnWidth
  425. DGRowHeight>
  426. DGNewName
  427. pasteupdate
  428. DGPasteFormula
  429. numname
  430. gengraf1
  431. gengraf25"
  432. dopiegraf
  433. piegraf
  434. contgraf.*
  435. wireup
  436. wiregrey
  437. wiregraf#/
  438. surfupdate
  439. surfgrey!5
  440. surfgraf&6
  441. buttoninfo_<
  442. fieldupdateJ>
  443. fieldup
  444. fieldinfo
  445. genitem
  446. charts
  447. polyinfo
  448. DGObjectInfo'I
  449. paintpie
  450. DG3DPieViewGK
  451. repview
  452. DG3DView¥N
  453. dobars
  454. colpik
  455. DGTextColor
  456. DGSymbol9[
  457. DGScaleInfo
  458. DGCombo0b
  459. DGLabel
  460. DGPasswordDf
  461. DGTextSizeEi
  462. DGScale
  463. DGIteration
  464. DGPrecision
  465. DGName
  466. DGHelpVo
  467. DGHpvalXp
  468. DGGenFilldp
  469. DGFill8r
  470. DGPlotFillNr
  471. DGBaseSideFillmr
  472. DGBaseTopFill
  473. DGGenLine
  474. drawarrow
  475. DGGenLineArrow
  476. DGLine
  477. DGMajGrid
  478. DGMinGrid
  479. DGBaseLine
  480. DGSurfaceLine7}
  481. DGPlotLineW}
  482. bordup}}
  483. DGBorder*
  484.