37 lines
776 B
Plaintext
Executable File
37 lines
776 B
Plaintext
Executable File
#!yab
|
|
|
|
DOCU SlideDemo, Object scale per Slidebar
|
|
DOCU by Stargater
|
|
|
|
WINDOW OPEN 100,100 to 500,600, "MainView" ,"SlideDemo"
|
|
WINDOW SET "MainView", "MaximumTo", 400,500
|
|
|
|
VIEW 0,0 to 500,400, "CircleView", "MainView"
|
|
DRAW SET "bgcolor",000,000,000,"CircleView"
|
|
DRAW SET "lowcolor",140,140,240,"CircleView"
|
|
|
|
SLIDER 20,430 to 380,430, "Slider", "Scale the Circle", 0, 190, "MainView"
|
|
SLIDER LABEL "Slider", "0", "190"
|
|
SLIDER COLOR "Slider", "barcolor", 140,140,240
|
|
SLIDER SET "Slider", 20
|
|
|
|
DRAW SET 0, "LowSolidFill"
|
|
DRAW CIRCLE 200,200, 20, "CircleView"
|
|
|
|
oldr=20
|
|
|
|
while(not instr(message$, "_QuitRequested"))
|
|
r = SLIDER GET "Slider"
|
|
|
|
if(oldr<>r) then
|
|
oldr = r
|
|
draw flush "CircleView"
|
|
DRAW CIRCLE 200,200, r, "CircleView"
|
|
endif
|
|
|
|
wend
|
|
|
|
window close "MainView"
|
|
|
|
|