Sorry your browser is not supported!

 6(0110)
&
12(1100) 
=
 4(0100)

original = rgb(255,255,120)
filter = rgb(0,0,255)
result = original & filter

ink original,0
print "Original"
ink filter,0
print "Filter"
ink result,0
print "Result"

Rem Owner Info: Transparent Menu Example
Rem Written By: TDK_Man
Rem Contact: [email protected]
Rem Date: 07/12/2009

Gosub Setup

T=Timer()
Rem *** Main Program Loop
Do
  Rem Animate Background
  Gosub ScrollBackdrop
  Rem Menu Selection
  If Upkey() Then Dec CurrentSel: Gosub Menu_Select
  If DownKey() Then Inc CurrentSel: Gosub Menu_Select
  If ReturnKey()
    If CurrentSel = 3 Then End: Rem Menu Option 3 = Exit
  Endif
  Sync
Loop
End

Rem ****************************************************************************
Rem ***                        User Program Subroutines                      ***
Rem ****************************************************************************

Menu_Select:
  If CurrentSel = MenuEntries Then CurrentSel = 0
  If CurrentSel < 0 Then CurrentSel = MenuEntries-1
  Gosub HighlightEntry
  Repeat
    Gosub ScrollBackdrop
    Sync
  Until Upkey()=0 And DownKey()=0
Return

HighlightEntry:
  Set Current Bitmap 1
  Paste Image MenuImage,0,0: Rem Main Menu Image
  Paste Image HighlightImage,40,CurrentSel*40+20,1
  Get Image TextureImage,0,0,260,200: Rem Usable Menu Image
  Texture Object 1,TextureImage
  Set Current Bitmap 0
Return

ScrollBackdrop:
  Elapsed = Timer()-T
  If Elapsed >= 30
    Scroll Backdrop X#,0
    Inc X#,0.5: If X#=100.0 Then X=0.0
    T=Timer()
  Endif
Return

Setup:
  Rem *** Set Up Display
  Set Display Mode 800,600,16
  Sync On
  Sync Rate 0
  CLS
  Hide Mouse
  Randomize Timer()

  MenuEntries = 4
  CurrentSel = 0: Rem 4 Menu Entries = 0 To 3 Returned
  ScrollImage = 1000
  MenuImage = 1001
  HighlightImage = 1002
  TextureImage = 1003

  Create Bitmap 1,800,600
  Rem Create 20 different random shaded tiles
  For N=1 To 20
    CLS RGB(255,255,255)
    Ink RGB(0,0,0),0: Box 1,1,31,31
    C=Rnd(155)+100
    Ink RGB(0,C,C),0: Box 1,1,30,30
    Get Image N,0,0,32,32: Rem Store tiles in images 1 to 20
  Next N
  CLS
  For Nx=0 To 7
    For Ny=0 To 7
      R=Rnd(19)+1
      Paste Image R,Nx*32,Ny*32
    Next Nx
  Next Ny
  Get Image ScrollImage,0,0,8*32,8*32

  Rem Create Menu
  Ink RGB(255,255,255),0: Box 0,0,260,200
  Ink 0,0: Box 2,2,258,198
  Set Text Font "Comic Sans MS",1
  Set Text Size 36
  Ink RGB(255,255,255),0
  Center Text 130,20,"Play Game"
  Center Text 130,60,"Options"
  Center Text 130,100,"Help"
  Center Text 130,140,"Exit"
  Ink RGB(255,0,0),0
  Center Text 131,21,"Play Game"
  Center Text 131,61,"Options"
  Center Text 131,101,"Help"
  Center Text 131,141,"Exit"
  Blur Bitmap 1,2
  Get Image MenuImage,0,0,260,200

  Rem Create Menu Highlighter
  Ink RGB(255,255,255),0: Box 0,0,181,44
  Ink RGB(10,10,10),0: Box 1,1,181,44
  Ink RGB(100,100,120),0: Box 1,1,180,43
  Ink 0,0: Box 26,4,154,38
  Get Image HighlightImage,0,0,182,45: Rem Highlighter Image
  Set Current Bitmap 0

  Backdrop On
  Texture Backdrop ScrollImage

  Make Object Plain 1,2.6,2.0
  Position Object 1,0.0,0.0,3.0
  Gosub HighlightEntry
  Texture Object 1,TextureImage
  Set Object 1,1,0,1
  Make Object Plain 2,2.6,2.0
  Color Object 2,RGB(112,112,112)
  Ghost Object On 2,1
  Position Object 2,0.0,0.0,3.01

  Position Camera 0.0,0.0,0.0
  Point Camera 0.0,0.0,3.0
Return

Rem ****************************************************************************
Rem ***                         User Program Functions                       ***
Rem ****************************************************************************



Rem <<<<< Code Skeleton Generated By TDPS (c) TDK_Man 2009 >>>>>

set display mode 800,600,16
sync on
sync rate 60

rem create a green "see through" screen by alternating colored pixels with black ones
ink rgb(0,255,0),0
box 0,0,400,400
start=1
ink 0,0
for y=0 to 400
   for x=0 to 400
      if start and (x&1)
            dot x,y
      endif

      if start=0 and (x&1)=0
         dot x,y
      endif
   next x
   start=1-start
next y
get image 2,0,0,400,400
sync

cls




ink rgb(192,64,192),0
box 0,0,60,60
get image 1,0,0,60,60
sync

create bitmap 1,62,screen height()
for y=0 to 9
   paste image 1,0,y*61
next y

rem screen to print fps
create bitmap 2,60,20

rem bitmap to draw scrolling background on
create bitmap 3,screen width(),screen height()

ct=-1
sch=screen height()
scw=screen width()

rem scroll screen
do
   rem check the count to see if we've moved across the x of all the tiles
   inc ct
   if ct > 60 then ct=0

   rem return to fps display
   set current bitmap 2
   rem display the fps
   cls
   text 0,0,"FPS: "+str$(screen fps())

   rem first copy the image of the tiles to the edge of bitmap 3
   copy bitmap 1,ct,0,ct+1,sch-1,3,scw-2,0,scw-1,sch-1
   rem then shift bitmap 3 over by 1 pixel
   copy bitmap 3,1,0,scw-1,sch-1,3,0,0,scw-2,sch-1
   copy bitmap 3,0
   set current bitmap 0
   paste image 2,200,100,1

   copy bitmap 2,0

   sync
loop