haikuprojects/Yab2Cpp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update demo programs to use new features

Browse Source
This commit is contained in:
Jim
2015-05-09 15:45:47 -07:00
parent 286f407c20
commit ebce2d1e38
7 changed files with 33 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
yab-IDE/Programs/Examples/3D-Curve.yab
View File

@@ -1,3 +1,4 @@
#!yab
doc Draw some nice 3D curves
doc Original by Martin Lehmann for QBasic
doc
@@ -46,12 +47,12 @@ window close "Win"
// Choose one of the functions below, comment out all others
sub func(n)
return cos(n) + cos(2*n) +cos(5*n)
// return cos(n) + cos(2*n) +cos(5*n)
// return -abs(1/n)
// return -abs(1/(n + j))
// return sin(n) + sin(2*n) +sin(5*n)
// return cos(sin(n))
// return cos(2*n) + cos((n+j)/16)
return cos(2*n) + cos((n+j)/16)
// return sqrt(abs(0.5*(16 - n^2))) + 1/(n*4)
// return cos(4*n) + 20/(n^2 + 3)
// return cos(1/n) + cos(2/n) + cos(5/n) - 3

14
yab-IDE/Programs/Examples/AllInOne.yab
View File

@@ -1,3 +1,7 @@
#!yab
dir$ = attribute get$ "", ""
dir$=dir$+"/"
// This example demonstrates all widgets
// open the window
@@ -26,7 +30,7 @@ button 10,10 to 100,30, "Button", "Button", "Box1"
tooltip "Button", "BUTTON"
// button image
button image 10,40, "ButtonImage", "img/button_pressed.png", "img/button_norm.png", "", "Box1"
button image 10,40, "ButtonImage", dir$+"img/button_pressed.png", dir$+"img/button_norm.png", "", "Box1"
tooltip "ButtonImage", "BUTTON IMAGE"
// checkbox
@@ -34,7 +38,7 @@ checkbox 10,70, "Check", "Checkbox", true, "Box1"
tooltip "Check", "CHECKBOX"
// checkbox image
checkbox image 10,92, "CheckImage", "img/checkbutton_enabledOn.png", "img/checkbutton_enabledOff.png", "", "", true, "Box1"
checkbox image 10,92, "CheckImage", dir$+"img/checkbutton_enabledOn.png", dir$+"img/checkbutton_enabledOff.png", "", "", true, "Box1"
tooltip "CheckImage", "CHECKBOX IMAGE"
// radiobutton
@@ -59,9 +63,11 @@ tooltip "List", "LISTBOX"
columnbox 130,10 to 270,150, "Column", 1, "", "Box1"
columnbox column "Column", " ", 1, 30,30,30, "align-center"
columnbox column "Column", "Column", 2, 90,90,90, "align-center"
columnbox add "Column", 1,1, 20, "__Icon__=img/yab.png"
columnbox add "Column", 1,1, 20, "__Mime__=application/x-vnd.yab-app"
columnbox add "Column", 1,2, 20, "__Mime__=application/x-vnd.Be-elfexecutable"
columnbox add "Column", 2,1, 20, "Foo"
columnbox add "Column", 2,2, 20, "Bar"
columnbox add "Column", 2,3, 20, "Baz"
tooltip "Column", "COLUMNBOX"
// treebox
@@ -76,7 +82,7 @@ text 300,10, "Text", "Text (cannot be flushed)", "Box1"
tooltip "Text", "TEXT"
// texturl
texturl 300,30, "TextURL", "Team MAUI", "http://www.team-maui.de", "Box1"
texturl 300,30, "TextURL", "Team MAUI", "http://www.team-maui.org", "Box1"
tooltip "TextURL", "TEXTURL"
// textcontrol

4
yab-IDE/Programs/Examples/IconWorld.yab
View File

@@ -19,8 +19,8 @@ bitmap get "BMP_icon", "mime32", "application/x-vnd.Be-MAIL"
draw bitmap 10, 90, "BMP_icon", "alpha", "Main"
bitmap remove "BMP_icon"
draw text 70,150, "bitmap get 32, \"BMP_icon\", \"" + systempath$ + "\"", "Main"
bitmap get 32, "BMP_icon", systempath$
draw text 70,150, "bitmap get 62, \"BMP_icon\", \"" + systempath$ + "\"", "Main"
bitmap get 62, "BMP_icon", systempath$
draw bitmap 10, 130, "BMP_icon", "alpha", "Main"
bitmap remove "BMP_icon"

5
yab-IDE/Programs/Examples/ImageWorld.yab
View File

@@ -1,9 +1,10 @@
#!yab
dir$=attribute get$ "", ""
dir$=dir$+"/"
window open 200,200 to 520,391, "MainView", "ImageWorld"
button 50,163 to 270,183, "Ok_", "Ok", "MainView"
err = draw image 0,0, "img/image.png", "MainView"
err = draw image 0,0, dir$+"img/image.png", "MainView"
if(err = 1) then
alert "Problem while loading image.png!", "Quit", "stop"

16
yab-IDE/Programs/Examples/Sokoban.yab
View File

@@ -1,3 +1,9 @@
#!yab
dir$=attribute get$ "",""
dir$=dir$+"/"
doc Simple game example
doc based on the popular Sokoban
doc graphics taken from Rocks'n'Diamonds
@@ -8,15 +14,15 @@ window open 100,100 to 484,484, "Win", "Simple Sokoban Example"
window set "Win", "flags", "not-zoomable, not-h-resizable, not-v-resizable"
bitmap 32,32, "wall"
err = draw image 0,0 to 31,31, "img/wall.png", "wall"
err = draw image 0,0 to 31,31, dir$+"img/wall.png", "wall"
bitmap 32,32, "front1"
err = err + draw image 0,0 to 31,31, "img/front.png", "front1"
err = err + draw image 0,0 to 31,31, dir$+"img/front.png", "front1"
bitmap 32,32, "bulb"
err = err + draw image 0,0 to 31,31, "img/bulb.png", "bulb"
err = err + draw image 0,0 to 31,31, dir$+"img/bulb.png", "bulb"
bitmap 32,32, "target"
err = err + draw image 0,0 to 31,31, "img/target.png", "target"
err = err + draw image 0,0 to 31,31, dir$+"img/target.png", "target"
bitmap 32,32, "final"
err = err + draw image 0,0 to 31,31, "img/final.png", "final"
err = err + draw image 0,0 to 31,31, dir$+"img/final.png", "final"
bitmap 32,32, "background"
draw set "highcolor", 0,0,0, "background"
draw rect 0,0 to 31,31, "background"

5
yab-IDE/Programs/Examples/Walk.yab
View File

@@ -1,10 +1,11 @@
#!yab
dir$=attribute get$ "" , ""
dir$=dir$+"/"
window open 100,100 to 500,160, "Win", "Walk"
window set "Win", "flags", "not-zoomable, not-h-resizable, not-v-resizable"
bitmap 1152,256, "player"
err = draw image 0,0 to 1152,256, "img/player.png", "player"
err = draw image 0,0 to 1152,256, dir$+"img/player.png", "player"
for i=15 to 405 step 65
bitmap get i,196 to i+30,252, str$((i+50)/65), "player"
next i