sprite editor

[bplus]

Thanks Fellippe, that should do nicely.

Do you know of any InForm apps that did use 3 sliders for RGB, seems to me it would be THE Demo for slider bars.

[FellippeHeitor]

Well, InForm Designer has three sliders for RGB color mixing, and it's been created using InForm Designer itself, so there's your app.

[bplus]

That's where I saw it before!  :)

 Thanks Fellippe

[Petr]

Thank you very much, Johnno56. What version of Linux do you use? I repaired one of the deferred older notebooks, so I would install it there to test it. First I will have to find instructions on installing QB64 under Linux ....

[Petr]

Modify

Hmm... I wonder about reversing that process, click a point from the blown up image and set color selector to that color (along with the slider bars).

It is not difficult. This is a normal percent example: You have a R bar, a G bar and a B bar. 0% is on the left and it is 0. 100% is on right, the value for R and G i B is maximum 255. So if it loads with the POINT or _MEMGET command a pixel of the image, the function returns three R, G, B values. For example the color _RGB32 (128,255,0), so 128 is exactly 50 percent of 256, the driver for R is set in the middle. 255 for G is 100 percent, that set driver to the right. B is 0, ie zero percent. The driver for B will be at the beginning. On the same principle working drivers in my SNDRAW player.

[johnno56]

Petr,

In regards to installing Linux, now days, it's not hard at all. You mentioned an "older" notebook... Some of the mainstream versions of Linux, as with newer versions of Windows, will probably be a bit sluggish on older machines mainly because the newer OS's can be quite taxing on older systems.

Linux has installations for older machines... Yay! Ubuntu has Lubuntu and Xubuntu for example... All you do is go to their homepage; Download the ISO image; Burn it to a DVD or USB drive; Pop it into the notebook and boot. You can either install or test it without installing... Just in case... lol

[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there] has both 32 and 64 bit versions for Linux. (Oh no! [abandoned, outdated and now likely malicious qb64 dot net website - don’t go there] has problems! No. the main website is fine. It seems that the Forums are "on the fritz"...)

If you need help... You know where I am... lol

J

[Petr]

Outside the topic: BPlus, Here's your realization, setings graphics drivers according to the returned color. Fullscreen is NOT USED :-D

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(800, 600, 32)
2. DO
3.     i& = _LOADIMAGE("bart.jpg", 32)
4.     _PUTIMAGE , i&
5.     WHILE _MOUSEINPUT: WEND
6.     c& = POINT(_MOUSEX, _MOUSEY)
7.     Red = _RED32(c&): green = _GREEN32(c&): blue = _BLUE32(c&)
8.     clr$ = STR$(Red) + ", " + STR$(green) + ", " + STR$(blue)
9.     LOCATE 4, 1: PRINT "Selected color is"; clr$
10.     LINE (550, 10)-(750, 70), _RGB32(0, 0, 0), BF
11.  
12.     _PRINTSTRING (570, 12), "R"
13.     R = Drive(600, 20, 255, Red)
14.     _PRINTSTRING (570, 32), "G"
15.     g = Drive(600, 40, 255, green)
16.     _PRINTSTRING (570, 52), "B"
17.     b = Drive(600, 60, 255, blue)
18.  
19.     LOCATE 1, 1: PRINT "R driver is set to"; R; " percent"
20.     LOCATE 2, 1: PRINT "G driver is set to"; g; " percent"
21.     LOCATE 3, 1: PRINT "B driver is set to"; b; " percent"
22.     _DISPLAY
23. LOOP UNTIL _KEYHIT = 27
24. END
25.  
26. FUNCTION Drive (xpos, ypos, max, vlue)
27.     LINE (xpos, ypos)-(xpos + 100, ypos)
28.     Drive = (vlue / max) * 100
29.     l2 = xpos + Drive
30.     LINE (l2, ypos + 5)-(l2 + 5, ypos - 5), , BF
31. END FUNCTION
32.  

[Petr]

please, give LOADIMAGE before DO. This Odin politic - time limited edit for own sources is really bad.

[johnno56]

Guys,

I have decided to shelve the Sprite Editor. I originally started it to, "See if I could", but came up against what "I" call a problem, of simply loading and saving each project. I ended up with the same problem using sdlbasic (original version) as I am now having with QB64. Projects can eventually be saved and loaded but not 'simply'. I feel the amount of work needed to complete the project kind of out weighs the concept of a "simple" editor. You guys have put in more work than I could have hoped for and for that I'm very appreciative. I think from now on I will restrict my ideas to what I can actually achieve...

Thanks guys.

J

[FellippeHeitor]

Steve also has a file select library that's cross platform, maybe he could repost it.

[SMcNeill]

Steve also has a file select library that's cross platform, maybe he could repost it.

http://qb64.freeforums.net/thread/63/file-directory-listing-arrays

Try the above. It's not a GUI file selection tool, but it's a crossplatform way to get information into a set of directory and file arrays.  I've got a GUI version around here somewhere as well, but most folks just seem to enjoy making their own interface and using the stripped down version here to get the information they need, instead.  ;)

[Petr]

Johnno56, do not be sad. Every such project just wants to do it in small steps until you finally get a big result. I will continue with this and add commented source codes here. This time I will test them in both Linux and Windows before i post it here.

[bplus]

Johnno, this is excellent project idea!

[bplus]

OK here is an update of Johnno's v03 and some mods to get an image loaded and into the grid edit area.

Code: QB64: [Select]

1. '   =========================================================
2. '
3. '       SPRITE DRAW v03 by johnno    b+ mods 2020-09-07  comment with " '<
4. '
5. '   =========================================================
6.  
7. SCREEN _NEWIMAGE(1280, 640, 32) '< reduce width to fit my screen
8. _DELAY .25
9. _SCREENMOVE 66, 50 '<  get it off my left side title bar, you will likely want some other adjustment
10. CLS
11.  
12. DIM SHARED gridcolour AS _UNSIGNED LONG
13. DIM SHARED currentcolour AS _UNSIGNED LONG
14. DIM SHARED red AS _UNSIGNED LONG
15. DIM SHARED darkred AS _UNSIGNED LONG
16. DIM SHARED green AS _UNSIGNED LONG
17. DIM SHARED yellow AS _UNSIGNED LONG
18. DIM SHARED black AS _UNSIGNED LONG
19. DIM SHARED white AS _UNSIGNED LONG
20. DIM SHARED gray AS _UNSIGNED LONG
21. 'DIM SHARED clr AS _UNSIGNED LONG
22.  
23.  
24. gridcolour = _RGB32(64, 64, 64)
25. red = _RGB32(255, 0, 0)
26. darkred = _RGB32(160, 0, 0)
27. green = _RGB32(0, 160, 0)
28. yellow = _RGB32(160, 160, 0)
29. black = _RGB32(0, 0, 0)
30. gray = _RGB32(164, 164, 164)
31. white = _RGB32(255, 255, 255)
32. currentcolour = _RGB32(0, 0, 0)
33.  
34. DIM SHARED gridsize, gsize ' < the rest of these too
35. gridsize = 64
36. gsize = 9
37. psize = 1
38. tools = 5
39. resetcurrentcolour = 0
40. DIM SHARED symmetry AS INTEGER
41. symmetry = 0
42. exist = 0
43.  
44. ' < for ? don't need
45. 'r5 = 0
46. 'g5 = 0
47. 'b5 = 0
48.  
49. zones = 9 ' < mouse cleck areas
50. quit = 0
51. 'mousegridx = 0
52. 'mousegridy = 0
53. 'mousegridx2 = 0
54. 'mousegridy2 = 0
55.  
56. DIM SHARED maingrid(gridsize, gridsize) AS _UNSIGNED LONG
57. 'DIM SHARED bgrid(gridsize, gridsize)
58. 'DIM SHARED prevgrid(gridsize, gridsize)
59. DIM SHARED tool(tools)
60. DIM SHARED zone(zones)
61.  
62. buttonclick = _SNDOPEN("assets/buttonClick.wav")
63. buttonclick2 = _SNDOPEN("assets/buttonClick2.wav")
64. buttonclick3 = _SNDOPEN("assets/buttonClick3.wav")
65. wip = _SNDOPEN("assets/bzzzt.wav")
66.  
67. DIM SHARED sample AS LONG
68. sample = _LOADIMAGE("assets/sample64x64.png", 32) ' < ok let's try
69. 'PRINT sample  '<  got it
70. 'end ' < test sample load
71.  
72. setup '< dang where is sample
73. DO
74.  
75.     '   Wait for mouse movement or button press
76.     '
77.     WHILE _MOUSEINPUT: WEND
78.     mx = _MOUSEX
79.     my = _MOUSEY
80.     mb1 = _MOUSEBUTTON(1)
81.     mb2 = _MOUSEBUTTON(2)
82.  
83.     '   ----------------------------
84.     '       Determine Mouse Zone
85.     '   ----------------------------
86.  
87.     '   Zone 1 - Main Grid
88.     '
89.     IF mx > 0 AND mx < 640 AND my > 0 AND my < 640 THEN
90.         zone(1) = 1
91.     ELSE
92.         zone(1) = 0
93.     END IF
94.  
95.     '   Zone 2 - NEW Button
96.     '
97.     IF mx > 690 AND mx < 770 AND my > 520 AND my < 560 THEN
98.         zone(2) = 1
99.     ELSE
100.         zone(2) = 0
101.     END IF
102.  
103.     '   Zone 3 - LOAD Button
104.     '
105.     IF mx > 690 AND mx < 770 AND my > 570 AND my < 610 THEN
106.         zone(3) = 1
107.     ELSE
108.         zone(3) = 0
109.     END IF
110.  
111.     '   Zone 4 - SAVE Button
112.     '
113.     IF mx > 790 AND mx < 870 AND my > 570 AND my < 610 THEN
114.         zone(4) = 1
115.     ELSE
116.         zone(4) = 0
117.     END IF
118.  
119.     '   Zone 5 - QUIT Button
120.     '
121.     IF mx > 884 AND mx < 964 AND my > 520 AND my < 560 THEN
122.         zone(5) = 1
123.     ELSE
124.         zone(5) = 0
125.     END IF
126.  
127.     '   Zone 6 - PENCIL Button
128.     '
129.     IF mx > 1014 AND mx < 1094 AND my > 98 AND my < 138 THEN
130.         zone(6) = 1
131.     ELSE
132.         zone(6) = 0
133.     END IF
134.  
135.     '   Zone 7 - LINE Button
136.     '
137.     IF mx > 1014 AND mx < 1094 AND my > 148 AND my < 188 THEN
138.         zone(7) = 1
139.     ELSE
140.         zone(7) = 0
141.     END IF
142.  
143.     '   Zone 8 - MIRROR Button
144.     '
145.     IF mx > 1014 AND mx < 1094 AND my > 198 AND my < 238 THEN
146.         zone(8) = 1
147.     ELSE
148.         zone(8) = 0
149.     END IF
150.  
151.     '   Zone 9 - CLEAR Button
152.     '
153.     IF mx > 884 AND mx < 964 AND my > 570 AND my < 610 THEN
154.         zone(9) = 1
155.     ELSE
156.         zone(9) = 0
157.     END IF
158.  
159.     '   --------------------
160.     '       Draw On Grid
161.     '   --------------------
162.     IF zone(1) = 1 AND mb1 THEN
163.         drawongrid
164.     END IF
165.  
166.     '   -----------------------
167.     '       Erase From Grid
168.     '   -----------------------
169.     IF zone(1) = 1 AND mb2 THEN
170.         erasefromgrid
171.     END IF
172.     'updatepreview   ' <  should these be outside IF?
173.     'redrawgrid
174.  
175.     '   ------------
176.     '       QUIT
177.     '   ------------
178.     IF zone(5) = 1 AND mb1 THEN
179.         _SNDPLAY (buttonclick3)
180.         _DELAY .2
181.         COLOR darkred
182.         LINE (884, 520)-STEP(80, 40), , B
183.         COLOR red
184.         _PRINTSTRING (891, 523), "Quit"
185.         _DELAY .2
186.         quit = 1
187.     END IF
188.  
189.     '   ------------------
190.     '       LOAD Image
191.     '   ------------------
192.     IF zone(3) = 1 AND mb1 THEN
193.         _SNDPLAY (buttonclick2)
194.         _DELAY .2
195.         tool(1) = 0
196.         pencil
197.         loadfile
198.     END IF
199.  
200.     '   ------------------
201.     '       SAVE Image
202.     '   ------------------
203.     IF zone(4) = 1 AND mb1 THEN
204.         _SNDPLAY (wip)
205.         _DELAY .2
206.         'savefile
207.     END IF
208.  
209.     '   -----------------
210.     '       NEW Image
211.     '   -----------------
212.     IF zone(2) = 1 AND mb1 THEN
213.         _SNDPLAY (buttonclick2)
214.         _DELAY .2
215.         newimage
216.     END IF
217.  
218.     '   -------------------
219.     '       CLEAR Image
220.     '   -------------------
221.     IF zone(9) = 1 AND mb1 THEN
222.         _SNDPLAY (buttonclick2)
223.         _DELAY .2
224.         clearimage
225.     END IF
226.  
227.     '   ----------------------
228.     '       TOOLS - Pencil
229.     '   ----------------------
230.     IF zone(6) = 1 AND mb1 THEN
231.         _SNDPLAY (buttonclick2)
232.         _DELAY .2
233.         tool(1) = 1
234.         pencil
235.         tool(2) = 0
236.         drawline
237.         tool(3) = 0
238.         symmetry = 0
239.         mirror
240.     END IF
241.  
242.     '   --------------------------
243.     '       TOOLS - Line (wip)
244.     '   --------------------------
245.     IF zone(7) = 1 AND mb1 THEN
246.         _SNDPLAY (wip)
247.         _DELAY .2
248.         'tool(1) = 1
249.         'pencil
250.         'tool(2) = 1
251.         'drawline
252.         'tool(3) = 0
253.         'symmetry = 0
254.         'mirror
255.     END IF
256.  
257.     '   ---------------------------------
258.     '       TOOLS - Mirror / Symmetry
259.     '   ---------------------------------
260.     IF mb1 AND zone(8) = 1 AND tool(3) = 0 THEN
261.         _SNDPLAY (buttonclick2)
262.         _DELAY .2
263.         tool(1) = 1
264.         pencil
265.         tool(2) = 0
266.         drawline
267.         tool(3) = 1
268.         symmetry = 1
269.         mirror
270.     END IF
271.  
272.     '   -----------------------------
273.     '       Select Current Colour
274.     '   -----------------------------
275.     IF mx > 690 AND mx < 964 AND my > 300 AND my < 490 AND mb1 THEN
276.         currentcolour = POINT(_MOUSEX, _MOUSEY)
277.         'convert (currentcolour)
278.         'r5 = getR(currentcolour)
279.         'g5 = getG(currentcolour)
280.         'b5 = getB(currentcolour)
281.     END IF
282.     COLOR currentcolour
283.     LINE (821, 521)-STEP(28, 28), , BF
284.  
285.     _DISPLAY
286.  
287.     _LIMIT 60 ' <<< cut down the looping save the CPU!
288. LOOP UNTIL quit = 1 OR INKEY$ = CHR$(27)
289. _DELAY 2
290. SYSTEM
291.  
292. '==================================================================
293.  
294. '   ----------------------
295. '       Convert to RGB
296. '   ----------------------
297. 'SUB convert (clr)
298. '    r5 = _RED32(clr)
299. '    g5 = _GREEN32(clr)
300. '    b5 = _BLUE32(clr)
301. 'END SUB
302. '   ==================================================================
303. '
304. '       PROCEDURES AND FUNCTIONS
305. '
306. '   ==================================================================
307.  
308. '   -----------------------
309. '       Initial Display
310. '   -----------------------
311.  
312. SUB setup
313.  
314.     logo = _LOADIMAGE("assets/draw3.png", 32)
315.     patch = _LOADIMAGE("assets/colourpatch.png", 32)
316.  
317.     gsize = 9
318.  
319.     '   ------------------------
320.     '       Reset Tool flags
321.     '   ------------------------
322.     FOR i = 1 TO tools
323.         tool(i) = 0
324.     NEXT
325.  
326.     '   ------------------------
327.     '       Reset Zone flags
328.     '   ------------------------
329.     FOR i = 1 TO zones
330.         zone(i) = 0
331.     NEXT
332.  
333.     '   ----------------------
334.     '       Draw Main Grid
335.     '   ----------------------
336.     COLOR gridcolour
337.     FOR x = 0 TO 640
338.         LINE (x, 0)-(x, 640)
339.         x = x + gsize
340.     NEXT
341.     FOR y = 0 TO 640
342.         LINE (0, y)-(640, y)
343.         y = y + gsize
344.     NEXT
345.     'redrawgrid
346.  
347.     '   ---------------------
348.     '       Program Logo
349.     '   ---------------------
350.     _PUTIMAGE (720, 0), logo
351.     COLOR _RGB32(0, 128, 128)
352.     _PRINTSTRING (750, 620), "(C) 2015 John Baldwin"
353.  
354.     '   -----------------------------
355.     '       Colour Selection Grid
356.     '   -----------------------------
357.     _PUTIMAGE (690, 300), patch
358.  
359.     '   ----------------------------------
360.     '       Sprite Preview Box - 64x64
361.     '   ----------------------------------
362.     COLOR gridcolour
363.     LINE (698, 98)-STEP(67, 67), , B
364.     _PUTIMAGE (700, 100), sample, 0 ' < add sample
365.     COLOR gray
366.     _PRINTSTRING (703, 170), "Preview"
367.     'update grid
368.     preview2grid
369.  
370.     '   -----------------------------------------
371.     '       Sprite Preview Box - Magnified x2
372.     '   -----------------------------------------
373.     COLOR gridcolour
374.     LINE (798, 98)-STEP(134, 134), , B
375.     _PUTIMAGE (800, 100)-STEP(128, 128), sample, 0 ' < add sample
376.     COLOR gray
377.     _PRINTSTRING (830, 235), "Preview x2"
378.  
379.     '   -----------------------------------
380.     '       Current Selected Colour Box
381.     '   -----------------------------------
382.     COLOR gridcolour
383.     LINE (820, 520)-STEP(30, 30), , B
384.  
385.     '   --------------------
386.     '       Menu Buttons
387.     '   --------------------
388.     COLOR gridcolour
389.     LINE (690, 520)-STEP(80, 40), , B
390.     _PRINTSTRING (698, 523), "New"
391.  
392.     COLOR gridcolour
393.     LINE (690, 570)-STEP(80, 40), , B
394.     _PRINTSTRING (698, 573), "Load"
395.  
396.     COLOR gridcolour
397.     LINE (790, 570)-STEP(80, 40), , B
398.     _PRINTSTRING (798, 573), "Save"
399.  
400.     COLOR gridcolour
401.     LINE (884, 520)-STEP(80, 40), , B
402.     _PRINTSTRING (891, 523), "Quit"
403.  
404.     COLOR gridcolour
405.     LINE (884, 570)-STEP(80, 40), , B
406.     _PRINTSTRING (892, 573), "Clear"
407.  
408.     '   --------------------
409.     '       TOOL BUTTONS
410.     '   --------------------
411.  
412.     '   Pencil
413.  
414.     COLOR gridcolour
415.     LINE (1014, 98)-STEP(80, 40), , B
416.     _PRINTSTRING (1022, 101), "Pencil"
417.     tool(1) = 0
418.  
419.     '   Line
420.  
421.     COLOR gridcolour
422.     LINE (1014, 148)-STEP(80, 40), , B
423.     COLOR gridcolour
424.     _PRINTSTRING (1022, 151), "Line"
425.     _PRINTSTRING (1059, 168), "wip"
426.     tool(2) = 0
427.  
428.     '   Mirror / Symmetry
429.  
430.     COLOR gridcolour
431.     LINE (1014, 198)-STEP(80, 40), , B
432.     _PRINTSTRING (1022, 201), "Mirror"
433.     tool(3) = 0
434.  
435.     '   Spares
436.  
437.     COLOR _RGB32(32, 32, 32)
438.     LINE (1014, 248)-STEP(80, 40), , B
439.     LINE (1014, 298)-STEP(80, 40), , B
440.     LINE (1014, 348)-STEP(80, 40), , B
441.     LINE (1014, 398)-STEP(80, 40), , B
442.     LINE (1014, 448)-STEP(80, 40), , B
443.  
444.     LINE (1104, 98)-STEP(80, 40), , B
445.     LINE (1104, 148)-STEP(80, 40), , B
446.     LINE (1104, 198)-STEP(80, 40), , B
447.     LINE (1104, 248)-STEP(80, 40), , B
448.     LINE (1104, 298)-STEP(80, 40), , B
449.     LINE (1104, 348)-STEP(80, 40), , B
450.     LINE (1104, 398)-STEP(80, 40), , B
451.     LINE (1104, 448)-STEP(80, 40), , B
452.  
453.     LINE (1194, 98)-STEP(80, 40), , B
454.  
455. END SUB
456.  
457. SUB drawongrid
458.     IF tool(1) <> 0 THEN
459.         COLOR currentcolour
460.         mousegridx = INT(_MOUSEX / 10) * 10
461.         mousegridy = INT(_MOUSEY / 10) * 10
462.         LINE (mousegridx, mousegridy)-STEP(10, 10), , BF
463.  
464.         IF symmetry = 1 THEN
465.             COLOR currentcolour
466.             mousegridx2 = 640 - (INT(_MOUSEX / 10) * 10) - 9
467.             mousegridy2 = INT(_MOUSEY / 10) * 10
468.             LINE (mousegridx2, mousegridy2)-STEP(10, 10), , BF
469.         END IF
470.     END IF
471. END SUB
472.  
473. SUB erasefromgrid
474.     IF tool(1) <> 0 THEN
475.         COLOR _RGB32(0, 0, 0)
476.         mousegridx = INT(_MOUSEX / 10) * 10
477.         mousegridy = INT(_MOUSEY / 10) * 10
478.         LINE (mousegridx, mousegridy)-STEP(10, 10), , BF
479.         _DISPLAY
480.     END IF
481. END SUB
482.  
483. SUB newimage
484.     sure
485.     IF exist = 1 THEN
486.         savefile
487.         exist = 0
488.     END IF
489.     tool(1) = 0
490.     pencil
491.     tool(2) = 0
492.     drawline
493.     tool(3) = 0
494.     symmetry = 0
495.     mirror
496.     FOR imagex = 0 TO 63
497.         FOR imagey = 0 TO 63
498.             maingrid(imagex, imagey) = black
499.             COLOR maingrid(imagex, imagey)
500.             '   -------------------------
501.             '       "Poor Man's" Fill
502.             '   -------------------------
503.             'r5 = getR(maingrid[imagex][imagey])
504.             'g5 = getG(maingrid[imagex][imagey])
505.             'b5 = getB(maingrid[imagex][imagey])
506.             'set color r5,g5,b5
507.             dotx = imagex * 10
508.             doty = imagey * 10
509.             LINE (dotx, doty)-STEP(10, 10), , BF
510.             '   --------------------
511.             '       Draw Preview
512.             '   --------------------
513.             PSET (700 + imagex, 100 + imagey)
514.             '   ------------------------------
515.             '       Draw Magnified Preview
516.             '   ------------------------------
517.             PSET (800 + imagex, 100 + imagey)
518.         NEXT
519.     NEXT
520.  
521.     resetcurrentcolour = 1
522.  
523.     redrawgrid
524.  
525.     _DELAY .1
526.  
527.     'free file 1
528.  
529. END SUB
530.  
531. SUB loadfile
532.     sample = _LOADIMAGE("assets/sample64x64.png", 32)
533.     _PUTIMAGE (700, 100), sample
534.     COLOR gridcolour
535.     '   --------------------
536.     '       SCAN IMAGE ?
537.     '   --------------------
538.     FOR imagex = 0 TO 63
539.         FOR imagey = 0 TO 63
540.             maingrid(imagex, imagey) = POINT(700 + imagex, 100 + imagey)
541.         NEXT
542.     NEXT
543.     '   -------------------------------
544.     '       TRANSFER TO MAIN GRID ?
545.     '   -------------------------------
546.     FOR imagex = 0 TO 63
547.         FOR imagey = 0 TO 63
548.             COLOR maingrid(imagex, imagey)
549.             '   -------------------------
550.             '       "Poor Man's" Fill
551.             '   -------------------------
552.             'r5 = getR(maingrid[imagex][imagey])
553.             'g5 = getG(maingrid[imagex][imagey])
554.             'b5 = getB(maingrid[imagex][imagey])
555.             'set color r5,g5,b5
556.             dotx = imagex * 10
557.             doty = imagey * 10
558.             LINE (dotx, doty)-STEP(10, 10), , BF
559.         NEXT
560.     NEXT
561.     redrawgrid
562. END SUB
563.  
564. SUB savefile
565.  
566. END SUB
567.  
568. SUB clearimage
569.     tool(1) = 0
570.     pencil
571.     tool(2) = 0
572.     drawline
573.     tool(3) = 0
574.     mirror
575.     FOR imagex = 0 TO 63
576.         FOR imagey = 0 TO 63
577.             maingrid(imagex, imagey) = black
578.             COLOR maingrid(imagex, imagey)
579.             '   -------------------------
580.             '       "Poor Man's" Fill
581.             '   -------------------------
582.             'r5 = getR(maingrid[imagex][imagey])
583.             'g5 = getG(maingrid[imagex][imagey])
584.             'b5 = getB(maingrid[imagex][imagey])
585.             'set color r5,g5,b5
586.             dotx = imagex * 10
587.             doty = imagey * 10
588.             LINE (dotx, doty)-STEP(10, 10), , BF
589.             '   --------------------
590.             '       Draw Preview
591.             '   --------------------
592.             PSET (700 + imagex, 100 + imagey)
593.             '   ------------------------------
594.             '       Draw Magnified Preview
595.             '   ------------------------------
596.             PSET (800 + imagex, 100 + imagey)
597.         NEXT
598.     NEXT
599.  
600.     resetcurrentcolour = 1
601.  
602.     redrawgrid
603.  
604.     _DELAY .1
605.  
606.     'free file 1
607.  
608. END SUB
609.  
610. SUB sure
611.     exist = 0
612.     FOR imagex = 0 TO 63
613.         FOR imagey = 0 TO 63
614.             IF POINT(700 + imagex, 100 + imagey) <> black THEN
615.                 exist = 1
616.             END IF
617.         NEXT
618.     NEXT
619. END SUB
620.  
621. SUB msgbox
622.  
623. END SUB
624.  
625. '   -----------------------
626. '       TOOL PROCEDURES
627. '   -----------------------
628.  
629. SUB pencil
630.     IF tool(1) = 0 THEN
631.         COLOR gridcolour
632.         LINE (1014, 98)-STEP(80, 40), , B
633.         _PRINTSTRING (1022, 101), "Pencil"
634.     END IF
635.     IF tool(1) = 1 THEN
636.         COLOR white
637.         LINE (1014, 98)-STEP(80, 40), , B
638.         COLOR yellow
639.         _PRINTSTRING (1022, 101), "Pencil"
640.         COLOR gridcolour
641.         tool(2) = 0
642.         drawline
643.         tool(3) = 0
644.         symmetry = 0
645.         mirror
646.     END IF
647. END SUB
648.  
649. SUB drawline
650.     '   -------------------------------------
651.     '       Change state of 'line' button
652.     '   -------------------------------------
653.     'IF tool(2) = 0 THEN
654.     'COLOR gridcolour
655.     'LINE (1014, 148)-STEP(80, 40), , B
656.     '_PRINTSTRING (1022, 151), "Line"
657.     'END IF
658.     'IF tool(2) = 1 THEN
659.     'COLOR white
660.     'LINE (1014, 148)-STEP(80, 40), , B
661.     'COLOR yellow
662.     '_PRINTSTRING (1022, 151), "Line"
663.     'COLOR gridcolour
664.     'END IF
665.     '   -----------------------------------------
666.     '       Line function goes here... W.I.P.
667.     '   -----------------------------------------
668.     'COLOR currentcolour
669.     'x1 = 0
670.     'x2 = 0
671.     'y1 = 0
672.     'y2 = 0
673.     'click = 0
674.     'WHILE click = 0
675.     'IF _MOUSEBUTTON(1) AND zone(1) = 1 THEN
676.     'click = 1
677.     'x = _MOUSEX
678.     'y = _MOUSEY
679.     'x1 = x
680.     'y1 = y
681.     'mousegridx = INT(x1 / 10) * 10
682.     'mousegridy = INT(y1 / 10) * 10
683.     'LINE (mousegridx, mousegridy)-STEP(10, 10), , BF
684.     'END IF
685.     'IF mb2 AND zone(1) = 1 THEN
686.     '    x = _MOUSEX
687.     'y = _MOUSEY
688.     'x2 = x
689.     'y2 = y
690.     'mousegridx = INT(x2 / 10) * 10
691.     'mousegridy = INT(y2 / 10) * 10
692.     'LINE (mousegridx, mousegridy)-STEP(10, 10), , BF
693.     'click = 1
694.     'dx = ABS(x2 - x1)
695.     'sx = -1
696.     'IF x1 < x2 THEN sx = 1
697.     'dy = ABS(y2 - y1)
698.     'sy = -1
699.     'IF y1 < y2 THEN sy = 1
700.     'er = -dy
701.     'IF dx > dy THEN er = dx
702.     'er = INT(er / 2)
703.     'DO
704.     '    LINE (INT(x1 / 10) * 10, INT(y1 / 10) * 10)-STEP(10, 10), , BF
705.     'e2 = er
706.     'IF e2 > -dx THEN
707.     '    er = er - dy
708.     'x1 = x1 + sx
709.     'END IF
710.     'IF e2 < dy THEN
711.     '    er = er + dx
712.     'y1 = y1 + sy
713.     'END IF
714.     '_DISPLAY
715.     'LOOP UNTIL x1 = x2 AND y1 = y2
716.     'END IF
717.     '_DISPLAY
718.     'IF INKEY$ = CHR$(27) THEN SYSTEM
719.     'WEND
720.     'END IF
721. END SUB
722.  
723. SUB mirror
724.     '
725.     '    Change state of 'symmetry' button
726.     '
727.     IF tool(3) = 0 THEN
728.         COLOR gridcolour
729.         LINE (1014, 198)-STEP(80, 40), , B
730.         _PRINTSTRING (1022, 201), "Mirror"
731.     END IF
732.     IF tool(3) = 1 THEN
733.         COLOR white
734.         LINE (1014, 198)-STEP(80, 40), , B
735.         COLOR yellow
736.         _PRINTSTRING (1022, 201), "Mirror"
737.         COLOR gridcolour
738.     END IF
739. END SUB
740.  
741. SUB redrawgrid
742.     gsize = 9
743.     COLOR gridcolour
744.     FOR x = 0 TO 640
745.         LINE (x, 0)-(x, 640)
746.         x = x + gsize
747.     NEXT
748.     FOR y = 0 TO 640
749.         LINE (0, y)-(640, y)
750.         y = y + gsize
751.     NEXT
752. END SUB
753.  
754. SUB updatepreview
755.     FOR prevx = 0 TO 63
756.         FOR prevy = 0 TO 63
757.             COLOR POINT((prevx * 10) + 5, (prevy * 10) + 5)
758.             PSET (700 + prevx, 100 + prevy)
759.         NEXT
760.     NEXT
761.     '    Magnified Preview
762.     FOR prevx = 0 TO 63
763.         FOR prevy = 0 TO 63
764.             COLOR POINT((prevx * 10) + 5, (prevy * 10) + 5)
765.             PSET (800 + (prevx * 2), 100 + (prevy * 2))
766.             PSET (801 + (prevx * 2), 100 + (prevy * 2))
767.  
768.             PSET (800 + (prevx * 2), 101 + (prevy * 2))
769.             PSET (801 + (prevx * 2), 101 + (prevy * 2))
770.  
771.             'REM draw rect 800+(prevx*2),100+(prevy*2),2,2,true
772.         NEXT
773.     NEXT
774. END SUB
775.  
776. SUB preview2grid '< this whole sub
777.     FOR prevx = 0 TO 63
778.         FOR prevy = 0 TO 63
779.             COLOR POINT(700 + prevx, 100 + prevy)
780.             LINE (prevx * 10, prevy * 10)-STEP(gsize, gsize), , BF
781.         NEXT
782.     NEXT
783. END SUB
784.  

Hey looks like we are ready to save an image ;-)   

And looks like we will need a tool to set current color from the image!

[johnno56]

As per your request... This is the current version (unmodified) including the assets...