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 >
Wrap
Wingz Script
|
1993-02-05
|
36KB
|
484 lines
WNGZWZSC0120
Start of DG
dg:doit=0
call DG:convert()
dg:doit=0
repaint off dg:doit=1
remove custom format ctstring(4,0) if not cerror() select control 5
list box custom formats if ctvalue(5,0) unselect control item ctvalue(5,0) end if
select control 4 field text "" end if
dg:doit=0
.repaint off dg:doit=1 dg:custfmt=ctstring(4,0)
if length(ctstring(5,0)) select control 4 field text ctstring(5,0)
end if on mousedoubleclick repaint off dg:doit=1 dg:custfmt=ctstring(4,0)
quit dialog box end mousedoubleclick
format custom "
Adg:val1=ctvalue(6,1)
dg:val2=ctvalue(7,0) dg:str1=ctstring(8,0)
auto save on
auto save off
auto save sheet every
auto save sheet name "
dg:val1=ctvalue(3,0) repaint on
dg:val1=ctvalue(3,0) repaint on
dg:str1=ctstring(4,0) repaint on
Wdg:fgcol=ctvalue(3,0)
dg:bgcol=ctvalue(4,0) dg:patt=ctvalue(5,0) dg:val1=ctvalue(6,0)
Yselect control 5 pattern picker fg ctvalue(3,0) select control 7
shadow fg ctvalue(3,0)
Yselect control 5 pattern picker bg ctvalue(4,0) select control 7
shadow bg ctvalue(4,0)
,select control 7 shadow pattern ctvalue(5,0)
-select control 7 shadow strength ctvalue(6,0)
3D chart shadow fg
3D chart shadow bg
3D chart shadow pattern
3D chart shadow strength
dg:str1=ctstring(3,0) repaint on
+repaint off dg:doit=1 call dg:getsettings()
;repaint off dg:doit=2 call dg:getsettings() quit dialog box
;repaint off dg:doit=3 call dg:getsettings() quit dialog box
dg:doit=0
call dg:frupdate()
goto line
replace
replace all
field text "5
with "
options "5
3dg:findtype=ctvalue(3,0)
dg:findstr=ctstring(4,0)
find text"
find value
find formula text "
find criteria
select range
dg:val1=ctvalue(3,0)
column width
dg:val1=ctvalue(3,0)
row height
dg:str1=ctstring(3,0)
dg:str1=ctstring(4,0)
call dg:pasteupdate()
Zon mousedoubleclick dg:doit=1 dg:str1=ctstring(4,0) quit dialog box
end mousedoubleclick
put text "
,dg:str1=ctstring(4,0)
dg:val1=ctvalue(5,0)
object name "
series width
dg:str1=ctstring(4,0)
dg:val1=ctvalue(5,0) dg:val2=ctvalue(6,0) dg:val3=ctvalue(7,1)
dg:val4=ctvalue(8,0) dg:val5=ctvalue(9,0)
Hselect control 8 if ctvalue(7,1) ungrey control else grey control end if
object name "
3D width height
3D depth height
manual base placement
percent5
series width
dg:str1=ctstring(4,0)
dg:val1=ctvalue(5,0) dg:val2=ctvalue(6,0) dg:val3=ctvalue(7,0)
dg:str2=ctstring(8,0) dg:val4=ctvalue(9,0)
Hselect control 8 if ctvalue(6,3) ungrey control else grey control end if
object name "
pie sorting
ascending
descending
pie weight
ing off
ing sum
range
pie starting angle
clockwise
counterclockwise
mdg:str1=ctstring(4,0)
dg:val1=ctvalue(5,1) dg:val2=ctvalue(6,1) dg:val3=ctvalue(7,1)
dg:val4=ctvalue(8,0)
7if not ctvalue(6,1) select control 5 check box 1 end if
7if not ctvalue(6,1) select control 5 check box 1 end if
Hselect control 8 if ctvalue(7,1) ungrey control else grey control end if
object name "
base contour bands
base contour lines
surface smoothing
call dg:wireup()
call dg:wiregrey()
call dg:wiregrey()
call dg:wiregrey()
object name "
3D width height
3D depth height
manual base placement
percent5
surface smoothing
surface axes
surface contour lines
base contour bands
base contour lines
call dg:surfupdate()
call dg:surfgrey()
call dg:surfgrey()
call dg:surfgrey()
call dg:surfgrey()
call dg:surfgrey()
object name "
3D width height
3D depth height
manual base placement
percent5
surface smoothing
surface axes
surface pedestal
surface contour bands
surface clipping on
surface clipping off
surface contour lines
base contour bands
base contour lines
Bdg:str1=ctstring(3,0)
dg:str2=ctstring(4,0) dg:val1=ctvalue(6,1)
object name "
control name "
show control title "
visible button5
call dg:fieldupdate()
call dg:fieldup()
object name "
control name "
show control title "
left indent
points5
right indent
points5
field top margin
points5
field bottom margin
points5
indent
points5
lock field text5
scroll bar field5
field word wrap
field
note5
field tabs every
points5
line spacing
single
double
fixed
points5
single plus
points5
dg:str1=ctstring(4,0)
object name "
Adg:str1=ctstring(4,0)
dg:val1=ctvalue(5,0) dg:val2=ctvalue(6,1)
object name "
poly smoothing
dg:val1=ctvalue(3,0)
select control 5 repaint control
)on repaint call dg:paintpie() end repaint
elevation
ldg:val1=ctvalue(3,0)
dg:val2=ctvalue(4,0) dg:val3=ctvalue(5,0) dg:val4=ctvalue(6,0)
dg:val5=ctvalue(7,0)
select control 8 repaint control
select control 8 repaint control
select control 8 repaint control
select control 8 repaint control
select control 8 repaint control
select control 5 number wheel position mousex()*100/2620
select control 6 number wheel position 100-mousey()*100/2620
select control 8 repaint control on repaint call dg:repview() end repaint
elevation
rotation
vanishing x
vanishing y
distance
on repaint paint red bar dg:val4, dg:val5, dg:val6
paint green bar dg:val4, dg:val5, dg:val6
paint blue bar dg:val4, dg:val5, dg:val6
paint sample box dg:val4, dg:val5, dg:val6 end repaint
Geneva
call dg:dobars(1) paint sample box ctvalue(1,0), dg:val5, dg:val6
on mousestilldown call dg:dobars(1) end mousestilldown on mousemove
paint sample box ctvalue(1,0), dg:val5, dg:val6 end mousemove
Geneva
call dg:dobars(2) paint sample box dg:val4, ctvalue(2,0), dg:val6
on mousestilldown call dg:dobars(2) end mousestilldown on mousemove
paint sample box dg:val4, ctvalue(2,0), dg:val6 end mousemove
Geneva
call dg:dobars(3) paint sample box dg:val4, dg:val5, ctvalue(3,0)
on mousestilldown call dg:dobars(3) end mousestilldown on mousemove
paint sample box dg:val4, dg:val5, ctvalue(3,0) end mousemove
dg:doit=0
Odg:colpikit=1 dg:val1=ctvalue(1,0) dg:val2=ctvalue(2,0)
dg:val3=ctvalue(3,0)
call dg:redo()
text color 5
Udg:val1=ctvalue(3,0)
dg:val2=ctvalue(4,0) dg:val3=ctvalue(5,0) dg:val4=ctvalue(6,0)
select control 4 line picker fg ctvalue(3,0) select control 5
symbol picker color ctvalue(3,0) select control 7 repaint control
select control 7 repaint control
select control 7 repaint control
select control 7 repaint control
on repaint symbol color ctvalue(3,0) symbol width ctvalue(4,0)
symbol size ctvalue(6,0) points symbol type ctvalue(5,0)
draw symbol (0.5,0.5) end repaint
symbol color
symbol width
symbol type
symbol size
points5
dg:val1=ctvalue(3,1)
dg:str1=ctstring(4,0) dg:str2=ctstring(5,0) dg:val2=ctvalue(6,0)
dg:val3=ctvalue(7,0) dg:str3=ctstring(8,0)
Pselect control 4,5,6,7 if ctvalue(3,1) ungrey control else
grey control end if
manual scaling from
to 5
with 5
major and 5
minor divisions5
automatic scaling
axis log base
Vdg:val1=ctvalue(3,0)
dg:val2=ctvalue(4,1) dg:val3=ctvalue(5,1) dg:str1=ctstring(6,0)
series type
layer
hide series legend
show series
stack series5
series column
+dg:val1=ctvalue(3,0)
dg:val2=ctvalue(4,0)
series label
value
percent
hide
series label 5
centered
exterior
<on repaint frame rectangle (0.0,0.375) (1.0,1.0) end repaint
dg:doit=0
mrepaint off dg:doit=1 dg:str1=ctstring(3,0) dg:str2=ctstring(4,0)
dg:val1=ctvalue(5,1) dg:val2=ctvalue(6,1)
password 1 "
" password 2 "5
read only5
encryption
dg:val1=ctvalue(3,0)
text size
dg:val1=ctvalue(3,0)
window scale
Bdg:str1=ctstring(3,0)
dg:str2=ctstring(4,0) dg:val1=ctvalue(5,0)
iterate until
changes less than 5
max 5
times5
iterate
times5
dg:val1=ctvalue(3,0)
precision
.dg:str1=ctstring(3,0)
dg:str2=ctstring(4,0)
name range "
" as "5
dg:hpval=-1 dg:doit=0
dg:hpval=ctvalue(3,0)
Non mousedoubleclick dg:hpval=ctvalue(3,0) quit dialog box end mousedoubleclick
Fdg:fgcol=ctvalue(3,0) dg:bgcol=ctvalue(4,0)
dg:patt=ctvalue(5,0)
/select control 5 pattern picker fg ctvalue(3,0)
/select control 5 pattern picker bg ctvalue(4,0)
fg 5
bg 5
pattern 5
plot interior
base side
base top
Bdg:fgcol=ctvalue(3,0)
dg:bgcol=ctvalue(4,0) dg:patt=ctvalue(5,0)
^select control 5 pattern picker fg ctvalue(3,0) select control 6
line picker fg ctvalue(3,0)
^select control 5 pattern picker bg ctvalue(4,0) select control 6
line picker bg ctvalue(4,0)
1select control 6 line picker pattern ctvalue(5,0)
dg:linewid=ctvalue(6,0)
fg 5
bg 5
pattern 5
width 5
dg:fgcol=ctvalue(3,0)
dg:bgcol=ctvalue(4,0) dg:patt=ctvalue(5,0) dg:val2=ctvalue(7,1)
dg:val3=ctvalue(7,2) dg:val4=ctvalue(9,0)
select control 5 pattern picker fg ctvalue(3,0) select control 6
line picker fg ctvalue(3,0) select control 8 repaint control
select control 5 pattern picker bg ctvalue(4,0) select control 6
line picker bg ctvalue(4,0) select control 8 repaint control
Tselect control 6 line picker pattern ctvalue(5,0) select control 8
repaint control
8dg:linewid=ctvalue(6,0) select control 8 repaint control
{select control 9 if ctvalue(7,1) or ctvalue(7,2) ungrey control else
grey control end if select control 8 repaint control
*on repaint call dg:drawarrow() end repaint
select control 8 repaint control
fg 5
bg 5
pattern 5
width 5
double
arrow5
single
arrow5
arrow length
points5
axis major grid
axis minor grid
base line
surface line
plot interior line
call dg:bordup()
call dg:bordup()
call dg:bordup()
call dg:bordup()
call dg:bordup()
call dg:bordup()
call dg:bordup()
call dg:bordup()
call dg:bordup()
call dg:bordup()
square
round
corners5
drop shadow5
single
double
thick inner
thick outer
line border5
shadow fg
shadow bg
shadow pattern
border x offset
points5
border y offset
points5
shadow strength
End of DG
colpick
colorpicker
val10
val11
val12
val13
arrowfg
arrowbg
arrowpat
linewid
fgcol
bgcol
colpikit
findtype
findstr
edtype
edcase
edword
edwrap
edback!
edfind"
edrep#
lastformulapaste$
hpval%
custfmt&
outline'
bottom)
left*
right+
twips,
DGleftmin-
DGtopmin.
DGrightmin/
DGbottommin0
xxxx1
DGPreview
fixnumwhl9
convert
dgokcan
DGCustom6
sheetinfoP
DGPreviewGotoj
DGFileError
DGAskK
DGShadow
getpaswrdP
getsettings
frupdate
fieldfind
ssfind?
DGFind7
DGColumnWidth
DGRowHeight>
DGNewName
pasteupdate
DGPasteFormula
numname
gengraf1
gengraf25"
dopiegraf
piegraf
contgraf.*
wireup
wiregrey
wiregraf#/
surfupdate
surfgrey!5
surfgraf&6
buttoninfo_<
fieldupdateJ>
fieldup
fieldinfo
genitem
charts
polyinfo
DGObjectInfo'I
paintpie
DG3DPieViewGK
repview
DG3DView¥N
dobars
colpik
DGTextColor
DGSymbol9[
DGScaleInfo
DGCombo0b
DGLabel
DGPasswordDf
DGTextSizeEi
DGScale
DGIteration
DGPrecision
DGName
DGHelpVo
DGHpvalXp
DGGenFilldp
DGFill8r
DGPlotFillNr
DGBaseSideFillmr
DGBaseTopFill
DGGenLine
drawarrow
DGGenLineArrow
DGLine
DGMajGrid
DGMinGrid
DGBaseLine
DGSurfaceLine7}
DGPlotLineW}
bordup}}
DGBorder*