Нарисовать машину, джип или кроссовер- QBasic(Бейсик)

SCREEN 7
LINE (85, 70)-(165, 70)
LINE (165, 70)-(225, 110)
LINE (225, 110)-(55, 110)
LINE (55, 110)-(65, 105)
LINE (65, 100)-(75, 105), 15, B
LINE (65, 105)-(90, 105)
LINE (90, 105)-(90, 110)
LINE (85, 70)-(90, 105), 15, B
LINE (165, 70)-(165, 110)
LINE (165, 105)-(210, 105)
LINE (210, 105)-(165, 75)
LINE (90, 70)-(145, 110), 15, B
LINE (95, 80)-(140, 105), 15, B
LINE (225, 110)-(225, 90)
LINE (225, 90)-(230, 85)
LINE (230, 85)-(240, 85)
LINE (240, 85)-(245, 90)
LINE (245, 90)-(245, 135)
LINE (245, 135)-(240, 140)
LINE (240, 140)-(230, 140)
LINE (230, 140)-(225, 135)
LINE (235, 85)-(235, 140)
LINE (225, 110)-(225, 135)
LINE (215, 130)-(225, 140), 15, B
LINE (225, 135)-(215, 135)
LINE (185, 140)-(195, 150), 15, B
CIRCLE (190, 145), 15, 15
CIRCLE (190, 145), 20, 15
CIRCLE (35, 145), 15, 15
CIRCLE (35, 145), 20, 15
LINE (30, 140)-(40, 150), 15, B
LINE (170, 150)-(55, 150)
LINE (10, 145)-(5, 140)
LINE (5, 130)-(5, 140)
LINE (5, 140)-(5, 115)
LINE (5, 115)-(10, 110)
LINE (10, 110)-(30, 100)
LINE (30, 100)-(40, 100)
LINE (40, 100)-(45, 105)
LINE (45, 105)-(20, 105)
LINE (20, 105)-(25, 100)
LINE (25, 100)-(40, 95)
LINE (40, 95)-(45, 100)
LINE (45, 100)-(45, 105)
LINE (75, 100)-(45, 100)
LINE (85, 70)-(75, 100)
LINE (225, 140)-(215, 145)
LINE (215, 145)-(210, 145)
LINE (215, 145)-(215, 120)
LINE (215, 120)-(210, 115)
LINE (210, 115)-(175, 115)
LINE (175, 115)-(165, 125)
LINE (165, 125)-(160, 145)
LINE (170, 145)-(60, 145)
LINE (60, 145)-(55, 125)
LINE (55, 125)-(50, 120)
LINE (50, 120)-(20, 120)
LINE (20, 120)-(15, 130)
LINE (5, 130)-(15, 140), 15, B
LINE (10, 130)-(10, 120)
LINE (10, 120)-(5, 115)
LINE (10, 125)-(5, 120)
LINE (10, 130)-(5, 125)
LINE (10, 120)-(15, 115)
LINE (15, 115)-(20, 120)
LINE (15, 115)-(55, 115)
LINE (55, 115)-(60, 120)
LINE (60, 120)-(65, 145)
LINE (50, 120)-(55, 115)
LINE (55, 125)-(60, 120)
LINE (55, 110)-(15, 115)
LINE (55, 110)-(65, 120)
LINE (65, 120)-(70, 145)
LINE (65, 120)-(60, 125)
LINE (175, 115)-(170, 110)
LINE (210, 115)-(215, 110)
LINE (215, 120)-(220, 115)
LINE (220, 115)-(215, 110)
LINE (220, 115)-(220, 130)
LINE (170, 110)-(160, 125)
LINE (160, 125)-(155, 145)
LINE (160, 125)-(165, 125)
LINE (215, 130)-(205, 120)
LINE (205, 120)-(175, 120)
LINE (175, 120)-(170, 125)
LINE (170, 125)-(165, 145)
LINE (90, 105)-(85, 105)
LINE (65, 120)-(165, 120)
LINE (68, 135)-(85, 135)
LINE (85, 120)-(85, 135)
LINE (85, 120)-(85, 105)
LINE (85, 135)-(90, 140)
LINE (90, 140)-(135, 140)
LINE (135, 140)-(140, 135)
LINE (140, 135)-(145, 110)
LINE (125, 110)-(140, 115), 15, B
LINE (80, 110)-(90, 115), 15, B
LINE (80, 130)-(90, 135), 15, B
LINE (140, 135)-(158, 135)
LINE (145, 150)-(165, 150)

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment