Share My Creation Mori Paint

hi

i am working with my 7 years old daughter on a simple painting app.
(she is the producer and i work for her as the developer :p [income will be shared like this: me 50%, she 20%, apple 30%] she is 7 years old so it was easy to negotiate with her :D

Link: https://itunes.apple.com/us/app/mori-paint/id1209428959?l=iw&ls=1&mt=8

EDIT: thanx to @narek adonts for his gestures class :)

mpaint.png

 
Last edited:

ilan

Expert
Licensed User
Longtime User
app is now ready for publish (i have updated the video in the first post)

i will post the link when the app has been approved.

thanks, ilan :)
 
Last edited:

ilan

Expert
Licensed User
Longtime User
app has been approved. i have updated the link on the first post.
i was really surprised that it was approved because i putted a youtube link in the description. but it looks like apple allow that :)

btw this is my 15 ios app.
so now i have 15 ios app online and 36 android apps (number 16 and 37 are in the oven :))
 
Last edited:

ilan

Expert
Licensed User
Longtime User
oh thank you. and you think the drawing is not smooth?

my problem was that if i swipe my finger fast on the screen i will get few dots and thats it but then i could figure out how to draw the whole path.
the zooming is indeed not very smooth but i dont know how to solve it.

btw what i do to not have only dots on my screen is this:

B4X:
If isDrawing Then
                Dim p As point
                p.Initialize
                p.x = x
                p.y = y
                p.r = strokewidth
                path.pathlist.Add(p)
                paintCVS.DrawCircle(p.x,p.y,p.r/2,path.color,True,0)
                paintCVS.DrawLine(lastPoint.x,lastPoint.y,p.x,p.y,path.color,p.r)
                paintCVS.Refresh
                lastPoint.x = X
                lastPoint.y = y
            End If
 

narek adonts

Well-Known Member
Licensed User
Longtime User
oh thank you. and you think the drawing is not smooth?

my problem was that if i swipe my finger fast on the screen i will get few dots and thats it but then i could figure out how to draw the whole path.
the zooming is indeed not very smooth but i dont know how to solve it.

btw what i do to not have only dots on my screen is this:

B4X:
If isDrawing Then
                Dim p As point
                p.Initialize
                p.x = x
                p.y = y
                p.r = strokewidth
                path.pathlist.Add(p)
                paintCVS.DrawCircle(p.x,p.y,p.r/2,path.color,True,0)
                paintCVS.DrawLine(lastPoint.x,lastPoint.y,p.x,p.y,path.color,p.r)
                paintCVS.Refresh
                lastPoint.x = X
                lastPoint.y = y
            End If
Try my code. You will see ) it is using UIBezierpath
 
Top