Quote: "I got an idea for a challenge use dbpro to make art. Thats a challenge because dbpro doesn't have alot of draw commands. Now wouldn't that be a challenge ."
Most of the older coders here will tell you... "That's what we used to do before mice and drawing programs."
I took the start of a very old program I made and converted it to Darkbasic... it's not technically art but it was vital for scoring. The full program is art but it was 1,190 lines of "line" commands... I didn't feel like adding color changes for every line (old "line" commands had color at the end).
In the Pro version I did some editing of the coordinates because Pro isn't as accurate as it should be with coordinates. TDK you are SOOOO right about Pros graphic bugs!!
Pro Version:
` 1
ink rgb(255,255,255),0
line 1,12,3,10
line 3,10,3,18
line 1,18,6,18
` 2
line 7,10,11,10
line 11,11,11,14
line 10,14,7,14
line 7,15,7,18
line 8,18,12,18
` 3
line 13,10,17,10
line 17,11,17,18
line 16,18,12,18
line 16,14,14,14
` 4
line 19,10,19,14
line 19,14,23,14
line 22,10,22,19
` 5
line 29,10,25,10
line 25,10,25,14
line 25,14,29,14
line 29,15,29,18
line 28,18,24,18
` 6
line 35,10,31,10
line 31,11,31,18
line 32,18,35,18
line 35,17,35,14
line 34,14,31,14
` 7
line 37,10,41,10
line 41,10,41,12
line 41,12,39,14
line 39,14,39,19
` 8
line 44,10,47,10
line 44,18,47,18
line 44,14,47,14
line 43,11,43,18
line 47,11,47,18
ink 0,0
dot 43,14
dot 47,14
` 9
ink rgb(255,255,255),0
line 50,10,53,10
line 49,11,49,14
line 50,14,53,14
line 53,11,53,18
line 52,18,48,18
` 0
line 56,10,59,10
line 56,18,59,18
line 55,11,55,18
line 59,11,59,18
wait key
The classic version didn't need any coordinate changes but it doesn't appear to do angle lines right either. After 30 minutes of converting Pro I didn't want to bother getting it exactly right for Classic.
Classic Version:
` 1
ink rgb(255,255,255),0
line 1,11,3,10
line 3,10,3,18
line 1,18,5,18
` 2
line 7,10,10,10
line 11,11,11,13
line 10,14,8,14
line 7,15,7,17
line 8,18,11,18
` 3
line 13,10,16,10
line 17,11,17,17
line 16,18,13,18
line 16,14,14,14
` 4
line 19,10,19,14
line 19,14,23,14
line 22,10,22,18
` 5
line 29,10,25,10
line 25,10,25,14
line 25,14,28,14
line 29,15,29,17
line 28,18,25,18
` 6
line 35,10,32,10
line 31,11,31,17
line 32,18,34,18
line 35,17,35,15
line 34,14,32,14
` 7
line 37,10,41,10
line 41,10,41,12
line 41,12,39,14
line 39,14,39,18
` 8
line 44,10,46,10
line 44,18,46,18
line 44,14,46,14
line 43,11,43,17
line 47,11,47,17
ink 0,0
dot 43,14
dot 47,14
` 9
ink rgb(255,255,255),0
line 50,10,52,10
line 49,11,49,13
line 50,14,52,14
line 53,11,53,17
line 52,18,49,18
` 0
line 56,10,58,10
line 56,18,58,18
line 55,11,55,17
line 59,11,59,17
wait key