CodeBase - Draw Numbers Atari Style

Return to the CodeBase listing

Category: Basic 2D

Version: 1.0

0

0

Information

Uploaded: 30th Oct 2010 22:20

Modified: 30th Oct 2010 22:21

Author: MaPo

Summary

Draw numbers Atari style - I just wanted to do it without jpgs and such

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

set display mode 320,240,32

set text font "terminal",1

set text size 12

cls

hide mouse

ink rgb (142,142,142),0

drawZero(10,10)

drawOne(41,10)

drawTwo(72,10)

drawThree(103,10)

drawFour(134,10)

drawFive(10,26)

drawSix(41,26)

drawSeven(72,26)

drawEight(103,26)

drawNine(134,26)

wait key

function drawZero(left,top)

box left+000, top+000, left+023, top+002

box left+000, top+002, left+007, top+008

box left+016, top+002, left+023, top+008

box left+000, top+008, left+023, top+010

endfunction

function drawOne(left,top)

box left+008, top+000, left+0016, top+010

endfunction

function drawTwo(left,top)

box left+000, top+000, left+024, top+002

box left+000, top+004, left+024, top+006

box left+000, top+008, left+024, top+010

box left+016, top+002, left+024, top+004

box left+000, top+006, left+008, top+008

endfunction

function drawThree(left,top)

box left+000, top+000, left+024, top+002

box left+000, top+004, left+024, top+006

box left+000, top+008, left+024, top+010

box left+016, top+002, left+024, top+004

box left+016, top+006, left+024, top+008

endfunction

function drawFour(left,top)

box left+000, top+000, left+008, top+006

box left+008, top+004, left+016, top+006

box left+016, top+000, left+024, top+010

endfunction

function drawFive(left,top)

box left+000, top+000, left+024, top+002

box left+000, top+004, left+024, top+006

box left+000, top+008, left+024, top+010

box left+016, top+006, left+024, top+008

box left+000, top+002, left+008, top+004

endfunction

function drawSix(left,top)

box left+016, top+004, left+023, top+008

box left+007, top+004, left+016, top+006

box left+000, top+000, left+007, top+008

box left+000, top+008, left+023, top+010

endfunction

function drawSeven(left,top)

box left+000, top+000, left+024, top+002

box left+016, top+002, left+024, top+010

endfunction

function drawEight(left,top)

box left+000, top+000, left+023, top+002

box left+000, top+002, left+007, top+008

box left+016, top+002, left+023, top+008

box left+000, top+008, left+023, top+010

box left+007, top+004, left+016, top+006

endfunction

function drawNine(left,top)

box left+000, top+000, left+008, top+006

box left+008, top+004, left+016, top+006

box left+016, top+000, left+024, top+010

box left+008, top+000, left+016, top+002

endfunction

Download

Please login to download

Comments

No comments yet.