Sorry your browser is not supported!

rem
rem AGK Application
rem

rem Landscape App
setVirtualResolution(640,480)

dim temp[0] as integer
temp[0] = 0

px# = getPointerX()
px# = getPointerY()

rem A Wizard Did It!
do
    if getPointerState()>0
        deleteTime# = timer()+1.0
        dx# = getPointerX() - px#
        dy# = getPointerY() - py#
        if dx#<>0 or dy#<>0
            n = temp[0]+1
            dim temp[n] as integer
            temp[0] = n
            spr = createSprite(0)
            setSpriteTransparency(spr,0)
            d# = sqrt(dx#*dx#+dy#*dy#)
            setSpriteSize(spr,d#,2)
            setSpriteOffset(spr,0,1)
            setSpritePositionByOffset(spr,getPointerX(),getPointerY())
            a# = atanfull(-dy#,dx#)
            setSpriteAngle(spr,a#)
            temp[n] = spr
        endif
    endif
    px# = getPointerX()
    py# = getPointerY()
    
    if timer()>deleteTime#
        n = temp[0]
        for i=1 to n
            deleteSprite(temp[i])
        next
        dim temp[0] as integer
        temp[0] = 0
    endif
    
    Sync()
loop

Function Bezier4(p:TV3D Var,p1:TV3D,p2:TV3D,p3:TV3D,p4:TV3D,mu:Float)

 'MR 01.07.2005

 'Four control point Bezier interpolation
 'mu ranges from 0 To 1, start To End of curve

 Local mum1:Float,mum13:Float,mu3:Float

 mum1 = 1.0 - mu
 mum13 = mum1 * mum1 * mum1
 mu3 = mu * mu * mu

 p.x = mum13*p1.x + 3.0*mu*mum1*mum1*p2.x + 3.0*mu*mu*mum1*p3.x + mu3*p4.x
 p.y = mum13*p1.y + 3.0*mu*mum1*mum1*p2.y + 3.0*mu*mu*mum1*p3.y + mu3*p4.y

 p.z = mum13*p1.z + 3.0*mu*mum1*mum1*p2.z + 3.0*mu*mu*mum1*p3.z + mu3*p4.z

End Function

void draw_line(int mode)
{
    /*sprintf(buffer,"touchID2: %i",touch2ID);
     agk::Print(buffer);*/
    
	if(mode==1 and touch2ID==0){ 
        if(touchStarted==1){agk::PlaySound(agk::Random(1,5),soundVolume,0);
            firstID=iNewSprite+1;undoState=false;undo_available=true;
            //NSLog(@"draw line %i,%i,%i,%i",firstID,iNewSprite,undoState,undo_available);
            
            //NSLog(@"inew %i",iNewSprite);
        };
        
        /*//brush randomizer
         currentBrush=agk::Random(17,20);
         //brushType=currentBrush;
         brushType=17;*/
        
        currentBrush=agk::Random(17,26);
        
        if((oldtouchX-touchX!=0 or oldtouchY-touchY!=0) and oldtouchX>0 and oldtouchY>0)
        {
            //Draw sprites spray
            //for(int x=1; x<=8; x++) Discarded: spray
            //{
            //if(agk::Random(0,10)>4){ Discarded: spray
            
            //if(agk::Random(0,5)==0){currentEmitter=iNewSprite;make_particles(currentEmitter);};
            
            
            if(agk::GetSpriteHit(touchX,touchY)!=(iNewSprite))
            {
                //NSLog(@"inew P %i",iNewSprite);

                
              
                float tempangle=agk::ATanFull(touchX-touchlastX,touchY-touchlastY);
                
                iNewSprite = clone_sprite(iNewSprite, currentBrush,0);
                
                
                uWhite.tag[iNewSprite-initSprite]=1;
                
                agk::SetSpritePositionByOffset ( iNewSprite, touchX, touchY);
                agk::SetSpriteColor(iNewSprite,brushR,brushG,brushB,brushPressure);
                agk::SetSpriteAngle(iNewSprite,tempangle);
                //unsigned int scale=1;//JUNK
                //agk::SetSpriteScale(iNewSprite,scale,scale);
                //agk::SetSpriteDepth(iNewSprite,1000);
                
                
                
                
                
            }
            else{/*NSLog(@"not drawing");*/};
            ;
            if(touchX!=touchstartX or touchY!=touchstartY)
            {
                if (agk::GetSpriteExists(iNewSprite-1)!=0){
                    
                    unsigned int dist=sqrt_dist(touchX,touchY,touchlastX,touchlastY);
                    float tempangle=agk::ATanFull(touchX-touchlastX,touchY-touchlastY);
                    
					unsigned int previousSprite=iNewSprite-1;
					if(previousSprite<initSprite){previousSprite=initSprite;};
                    
                    //agk::Print(dist);
                    
                    
                    if(dist>brushSize*0.5){//fill gaps between touches
						
						float fillD=dist/(brushSize*0.75);
                        
						for(int i=1;i<=fillD;i++)
                        {
                            currentBrush=agk::Random(17,26);
                            
                            int	i2NewSprite=clone_sprite(iNewSprite,currentBrush,0);
                            agk::SetSpriteColor(i2NewSprite,brushR,brushG,brushB,brushPressure);
                            
                            agk::SetSpriteAngle(i2NewSprite,tempangle);
                            iNewSprite=i2NewSprite;//correct interim drawing process
                            agk::SetSpritePositionByOffset ( i2NewSprite,
                                                            touchX-brushSize*0.75*i*agk::Sin(tempangle),
                                                            touchY+brushSize*0.75*i*agk::Cos(tempangle));
                            
                            
							
                            
                            
                            
						}
					}
                    
                }
            }
        }
        
        oldtouchX=touchX;
        oldtouchY=touchY;
        
        }


}

rem
rem AGK Application
rem

rem A Wizard Did It!
global gSig as tSig



` *********************************
` *** Type tSigPoint
` *** Represents a point in the signature trail
` *** pointType = 1:Start, 2:Standard, 3:End
` *********************************
type tSigPoint
    id
    x as float
    y as float
    pointType
    spriteId
endtype


` *********************************
` *** Type tSig - Signature System
` *** running used to show a signature is being entered
` *** down used to show 'pen' is down
` *** x1,x2,y1,y2 are the box coordinates for the signature area
` *********************************
type tSig
    initialised
    running
    down
    x1 as float
    x2 as float
    y1 as float
    y2 as float
    maxPoints
    currentPoint
    lastX as float
    lastY as float
    waypointDistance as float
endtype


setVirtualResolution(1024,768)
siginit()
sigStart()
spr = createSprite(0)
setSpriteSize(spr,3,3)

do
    sigprocess()
    for n = 1 to gSig.currentPoint
        setSpritePosition(spr,arrSigPoint[n].x, arrSigPoint[n].y)
        drawSprite(spr)
    next n
    sync()
loop


` *****************************
` *** Initilasise Sig System
` *****************************
function sigInit()

    dim arrSigPoint[200] as tSigPoint
    gSig.initialised = 1
    gSig.maxPoints = 200

    `*** Set default frame to screen - 10% on all sides
    gSig.x1 = getVirtualWidth() * 0.1
    gSig.x2 = getvirtualwidth() - gSig.x1
    gSig.y1 = getVirtualHeight() * 0.1
    gSig.y2 = getVirtualHeight() - gSig.y1

    `*** Set default waypoint distance to be 2.5% of frame width
    gSig.wayPointDistance = getVirtualwidth() * 0.8 * 0.025

endfunction

` *********************************
` *** sigStart - start processing signature entry
` *********************************
function sigStart()

    gSig.running = 1
    gSig.currentPoint = 0

endfunction

` *********************************
` *** sigStart - start processing signature entry
` *********************************
function sigEnd()

    gSig.running = 0

endfunction

` *********************************
` *** sigProcess - processing signature entry
` *********************************
function sigProcess()

    x# = getPointerX() :  y# = getPointerY()

    `*** Pointer is pressed
    if getPointerState() = 1


        if x# > gSig.x1 and x# < gSig.x2 and y# > gSig.y1 and y# < gSig.y2
        ` *** Pointer is within the signature zone
            select gSig.down

                case 1
                    `*** Check for next waypoint by testing distance
                    distx# = (arrSigPoint[gSig.currentPoint].x - x#)
                    disty# = (arrSigPoint[gSig.currentPoint].y - y#)
                    if sqrt((distx# * distx#) + (disty# * disty#)) > gSig.wayPointDistance
                        gSig.currentPoint = gSig.currentPoint + 1
                        arrSigPoint[gSig.currentPoint].x = x#
                        arrSigPoint[gSig.currentPoint].y = y#
                        arrSigPoint[gSig.currentPoint].pointType = 2
                    endif
                endcase


                ` *** pointer just pressed
                case 0
                    if getPointerState() = 1
                        gSig.down = 1
                        gSig.currentPoint = gSig.currentPoint + 1
                        arrSigPoint[gSig.currentPoint].x = x#
                        arrSigPoint[gSig.currentPoint].y = y#
                        arrSigPoint[gSig.currentPoint].pointType = 1
                    endif
                endcase

            endselect

        else
            ` We are not in the signature zone
        endif

    else
    ` *** Pointer is not pressed
        `If pointer was pressed we need to create an endpoint
        if gSig.down = 1
            gSig.down = 0
            gSig.currentPoint = gSig.currentPoint + 1
            arrSigPoint[gSig.currentPoint].x = x#
            arrSigPoint[gSig.currentPoint].y = y#
            arrSigPoint[gSig.currentPoint].pointType = 3
        endif
    endif

endfunction

rem
rem AGK Application 1.08B8
rem MR

SetDisplayAspect( 4.0/3.0 )
setsyncrate(60,0)

img=loadimage("Dot.png") //32x32 Pixel Circle
sprdot=createsprite(img)
setspritesize(sprdot,0.5,0.5)

setclearcolor(255,255,255)

type TPoint
 x as float
 y as float
endtype
global PT as TPoint
global P0 as TPoint
global P1 as TPoint
global P2 as TPoint
global P3 as TPoint

dim Grid[5000,32] as TPoint
dim GCount[32] as integer
a=0
down=2

addvirtualbutton(1,70,10,10)
setvirtualbuttontext(1,"CLEAR")

addvirtualbutton(2,80,10,10)
setvirtualbuttontext(2,"READY")

addvirtualbutton(3,90,10,10)
setvirtualbuttontext(3,"EXIT")

xright#=0
do

    //print(screenfps())
    //print("a "+str(a))
    //print("c "+str(GCount[a]))

    if getvirtualbuttonpressed(3)=1
        exit
    endif

    if getvirtualbuttonpressed(2)=1
        ready=1
    endif

    if getvirtualbuttonpressed(1)=1
        ready=0
        xright#=0
        for a=1 to 32
          GCount[a]=0
        next
        a=0
    endif

    t= getpointerstate()
    //t = GetRawFirstTouchEvent(1)

        x#=getpointerx()
        y#=getpointery()
        //x# = getrawtouchcurrentx(t)
        //y# = getrawtouchcurrenty(t)

    if t=0
        if down=1
            down=2
            for ia=1 to a
                for i=1 to GCount[ia]
                     Grid[i,ia].x=Grid[i,ia].x-xright#/2
                     Grid[i,ia].y=Grid[i,ia].y
                next
            next
        endif
    else
        if down=2 then a=a+1
        down=1

        if GCount[a]<5000
            GCount[a]=GCount[a]+1
            c=GCount[a]
            Grid[c,a].x=x#
            Grid[c,a].y=y#
            if x#>xright# then xright#=x#
        endif

    endif

    if ready=0
        for ia=1 to a
            for i=1 to GCount[ia]-1 step 1
                 x1#=Grid[i,ia].x
                 y1#=Grid[i,ia].y
                 x2#=Grid[i+1,ia].x
                 y2#=Grid[i+1,ia].y
                 drawline(x1#,y1#,x2#,y2#,0,0,0)
            next
        next
    endif

    //Paint Dots
    if ready=1
        setspritecolor(sprdot,64,64,64,128)
        for ia=1 to a
            for i=1 to GCount[ia]-1 step 1
                 x1#=Grid[i,ia].x
                 y1#=Grid[i,ia].y
                 x2#=Grid[i+1,ia].x
                 y2#=Grid[i+1,ia].y
                     for mu#=0.0 to 1.0 step 0.1
                        x3#=Intp(x1#,x2#,mu#)
                        y3#=Intp(y1#,y2#,mu#)
                        x3#=x3#-50.0
                        y3#=y3#-50.0
                        x3#=x3#/4.0
                        y3#=y3#/4.0
                        x3#=x3#+50.0
                        y3#=y3#+50.0
                        setspritepositionbyoffset(sprdot,x3#,y3#)
                        drawsprite(sprdot)
                     next
            next
        next
        setspritepositionbyoffset(sprdot,-10,-10)
    endif

 Sync()
loop
end