forum.boolean.name - Показать сообщение отдельно

impersonalis · 29.10.2005, 02:55

Транслируя на B3D:

x1=10
 y1=0
x2=10 
y2=10
x3=90 
y3=20
Color 255,0,0

n=Sqr((x1+x2)^2+(y1+y2)^2)
For i=1 To n
Line x3,y3,x1+i*(x2-x1)/n,y1+i*(y2-y1)/n

Next
Flip
WaitKey()

29.10.2005, 02:55	#9
impersonalis Зануда с интернетом Регистрация: 04.09.2005 Сообщений: 14,014 Написано 6,798 полезных сообщений (для 20,935 пользователей)	Транслируя на B3D: x1=10 y1=0 x2=10 y2=10 x3=90 y3=20 Color 255,0,0 n=Sqr((x1+x2)^2+(y1+y2)^2) For i=1 To n Line x3,y3,x1+i(x2-x1)/n,y1+i(y2-y1)/n Next Flip WaitKey() __________________ http://nabatchikov.com Мир нужно делать лучше и чище. Иначе, зачем мы живем? tormoz А я растила сына на преданьях о принцах, троллях, потайных свиданьях, погонях, похищениях невест. Да кто же знал, что сказка душу съест?
(Offline)