Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- # encoding: UTF-8
- # Author: Siegfried Paul Keller Schippner
- from Graphics import *
- l=500
- #win=Window("dibuja",l,l)
- #Dibuja triangulo
- def trazaTriangulo(win,x1,y1,x2,y2,x3,y3):
- lineA=Line((x1,y1),(x2,y2))
- lineA.draw(win)
- lineB=Line((x2,y2),(x3,y3))
- lineB.draw(win)
- lineC=Line((x3,y3),(x1,y1))
- lineC.draw(win)
- #Dibuja Paralelogramo
- def trazaParalelogramo(win,x1,y1,x2,y2,x3,y3,x4,y4):
- lineA=Line((x1,y1),(x2,y2))
- lineA.draw(win)
- lineB=Line((x2,y2),(x3,y3))
- lineB.draw(win)
- lineC=Line((x3,y3),(x4,y4))
- lineC.draw(win)
- lineC=Line((x4,y4),(x1,y1))
- lineC.draw(win)
- #Dibuja Rectangulo
- def trazaRectangulo(win,x1,y1,x2,y2):
- lineA=Line((x1,y1),(x2,y1))
- lineA.draw(win)
- lineB=Line((x2,y1),(x2,y2))
- lineB.draw(win)
- lineC=Line((x2,y2),(x1,y2))
- lineC.draw(win)
- lineC=Line((x1,y2),(x1,y1))
- lineC.draw(win)
- def dibujarCasa():
- win=Window("dibuja",l,l)
- trazaTriangulo(win,125,135,250,60,375,135)
- trazaRectangulo(win,125,135,375,390)#main sqare
- trazaRectangulo(win,210,260,290,390)#door
- trazaRectangulo(win,210,160,150,240)#leftwin
- trazaRectangulo(win,290,160,350,240)#rightwin
- trazaTriangulo(win,290,160,350,240,350,290)
- def main():
- c=input("1. Triangulo\n2.Paralelogramo\n3.Rectangulo")
- if c=="1":
- x1=int(input("x1"))
- y1=int(input("y1"))
- x2=int(input("x2"))
- y2=int(input("y2"))
- x3=int(input("x3"))
- y3=int(input("y3"))
- win=Window("dibuja",l,l)
- trazaTriangulo(win,x1,y1,x2,y2,x3,y3)
- if c=="2":
- x1=int(input("x1"))
- y1=int(input("y1"))
- x2=int(input("x2"))
- y2=int(input("y2"))
- x3=int(input("x3"))
- y3=int(input("y3"))
- x4=int(input("x4"))
- y4=int(input("y4"))
- win=Window("dibuja",l,l)
- trazaParalelogramo(win,x1,y1,x2,y2,x3,y3,x4,y4)
- if c=="3":
- x1=int(input("x1"))
- y1=int(input("y1"))
- x2=int(input("x2"))
- y2=int(input("y2"))
- win=Window("dibuja",l,l)
- trazaRectangulo(win,x1,y1,x2,y2)
- #main()
- dibujarCasa()
Advertisement
Add Comment
Please, Sign In to add comment