Welcome to Phrogram Sign in | Join | Help
Search
Home Forums Photos Downloads Testimonials Try Phrogram Buy Phrogram
Phrogram » Kid's Programming Language » KPL Questions and Answers » Any one know how i ca make a pen turn a corner ?

Any one know how i ca make a pen turn a corner ?

  •  01-24-2007, 8:36 AM

    Any one know how i ca make a pen turn a corner ?

    Iam wrighting a simpel drawing program for my programing class and when I  move the pen wtih a very wide penwidth it can't make the trun smuthly it allways leaves a chunck out . I put in my method main if you need to look at it. oh I am usibg KPL 1.1 not phrogram .

     

    Method Main()

    Maximize()

    max_x= ScreenWidth()

    max_y= ScreenHeight()

    loadsprite("pointer","Block.gif")

    cuerser_y=GetSpriteHeight("pointer")

    cuerser_x=GetSpriteWidth("pointer")*.5

    pen(False)

    MoveTo(cuerser_x,cuerser_y)

    MoveSpriteToPoint("pointer",(.5*max_x),(.5*max_y))

     

    While True

    Main()

    Maximize()

    max_x= ScreenWidth()

    max_y= ScreenHeight()

    loadsprite("pointer","Block.gif")

    cuerser_y=GetSpriteHeight("pointer")

    cuerser_x=GetSpriteWidth("pointer")*.5

    pen(False)

    MoveTo(cuerser_x,cuerser_y)

    MoveSpriteToPoint("pointer",(.5*max_x),(.5*max_y))

     

    While True

    = ScreenWidth()

    max_y= ScreenHeight()

    loadsprite("pointer","Block.gif")

    cuerser_y=GetSpriteHeight("pointer")

    cuerser_x=GetSpriteWidth("pointer")*.5

    pen(False)

    MoveTo(cuerser_x,cuerser_y)

    MoveSpriteToPoint("pointer",(.5*max_x),(.5*max_y))

     

    While True

    = ScreenHeight()

    loadsprite("pointer","Block.gif")

    cuerser_y=GetSpriteHeight("pointer")

    cuerser_x=GetSpriteWidth("pointer")*.5

    pen(False)

    MoveTo(cuerser_x,cuerser_y)

    MoveSpriteToPoint("pointer",(.5*max_x),(.5*max_y))

     

    While True

    "pointer","Block.gif")

    cuerser_y=GetSpriteHeight("pointer")

    cuerser_x=GetSpriteWidth("pointer")*.5

    pen(False)

    MoveTo(cuerser_x,cuerser_y)

    MoveSpriteToPoint("pointer",(.5*max_x),(.5*max_y))

     

    While True

    =GetSpriteHeight("pointer")

    cuerser_x=GetSpriteWidth("pointer")*.5

    pen(False)

    MoveTo(cuerser_x,cuerser_y)

    MoveSpriteToPoint("pointer",(.5*max_x),(.5*max_y))

     

    While True

    =GetSpriteWidth("pointer")*.5

    pen(False)

    MoveTo(cuerser_x,cuerser_y)

    MoveSpriteToPoint("pointer",(.5*max_x),(.5*max_y))

     

    While True

    False)

    MoveTo(cuerser_x,cuerser_y)

    MoveSpriteToPoint("pointer",(.5*max_x),(.5*max_y))

     

    While True

    "pointer",(.5*max_x),(.5*max_y))

     

    While True

    While True

     

    options()

     

    If IsKeyDown("Right") Then

    If IsKeyDown("Right") Then

    LocationX = LocationX + 1

    End If

    = LocationX + 1

    End If

    End If

     

    If IsKeyDown("Left") Then

    If IsKeyDown("Left") Then

    LocationX = LocationX - 1

    End If

    = LocationX - 1

    End If

    End If

     

    If IsKeyDown("Up") Then

    If IsKeyDown("Up") Then

    LocationY = LocationY - 1

    End If

    = LocationY - 1

    End If

    End If

     

    If IsKeyDown("Down") Then

    If IsKeyDown("Down") Then

    LocationY = LocationY + 1

    End If

    = LocationY + 1

    End If

    End If

    Delay (10)

    MoveSpriteToPoint("pointer",locationx,locationy)

    MoveTo(locationx+cuerser_x,locationy+cuerser_y)

    ShowSprite("pointer")

    End While

    "pointer",locationx,locationy)

    MoveTo(locationx+cuerser_x,locationy+cuerser_y)

    ShowSprite("pointer")

    End While

    +cuerser_x,locationy+cuerser_y)

    ShowSprite("pointer")

    End While

    "pointer")

    End While

    End While

    End Method

    End Method
View Complete Thread