24.10.2012, 11:22
|
#7
|
ПроЭктировщик
Регистрация: 17.07.2009
Сообщений: 182
Написано 51 полезных сообщений (для 71 пользователей)
|
Ответ: 2d сетка
Так ! Вот получилось ... единственно X мыши неверно определяется
код:
Graphics 800,600
SetBuffer BackBuffer()
While Not KeyHit(1)
Cls
mx# = MouseX() : my# = MouseY()
For y = 1 To 13
For x# = -6 To 6
px# = ( (x*30)+(y*x))
py# = y*30
If x<6
Line 400 +px,py , 400 + ( (x+1)*30)+(y*(x+1)),py
EndIf
If y<13
Line 400 +px,py , 400 + ( (x)*30)+((y+1)*(x)) ,(y+1)*30
EndIf
; Plot 400 + px, py
; Text px ,py , Int(x)
; Text px ,py+10 , y
Next
Next
xm# = Floor#( (mx/30)-((my/30)/(mx/30)))
ym# = Floor#(my/30)
Text 20,20,Int(xm)
Text 20,40,Int(ym)
Flip
Wend
End
|
(Offline)
|
|