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

impersonalis · 10.02.2006, 00:17

Библиотека просто супер! Меня порадовала. Но тут, явно на беду, я решил её посмотреть ( непосредственно программны код, а не её работу) - и О УЖАС! Я был в шоке, мой разум начал погружаться во тьму.
Из функции InitI3D() хитро прищуриваясь и плотоядно улыбаясь, на меня смотрела команда GOTO. Страх объял меня и началась пляска нервов.
О БЕЗУМИЕ!
Поучему бы не переписать эту фонкцию вот так:

Function InitI3D()
 GWidth%=GraphicsWidth()
 GWidth2%=GWidth%/2
 GHeight%=GraphicsHeight()
 GHeight2%=GHeight%/2
	;Значения по умолчанию
 I3DPSX#=0.15
 I3DPSY#=0.15
;640x480
	If (GWidth%=640) * (GHeight%=480) Then
 I3DPSX#=0.15
 I3DPSY#=0.15

;800x600
	ElseIf (GWidth%=800) * (GHeight%=600) Then
 I3DPSX#=0.15
 I3DPSY#=0.15

;1024x768
	ElseIf (GWidth%=1024) * (GHeight%=768) Then
 I3DPSX#=0.1487
 I3DPSY#=0.1487

;1028x960
	ElseIf (GWidth%=1280) * (GHeight%=960) Then
 I3DPSX#=0.15
 I3DPSY#=0.15

;1280x1024
	ElseIf (GWidth%=1280) * (GHeight%=1024) Then
 I3DPSX#=0.15
 I3DPSY#=0.15
	EndIf
 X0#=-GWidth2%*I3DPSX#
 Y0#=GHeight2%*I3DPSY#
End Function

А так, очень даже симпотичная библочка.

10.02.2006, 00:17	#8
impersonalis Зануда с интернетом Регистрация: 04.09.2005 Сообщений: 14,014 Написано 6,798 полезных сообщений (для 20,935 пользователей)	Библиотека просто супер! Меня порадовала. Но тут, явно на беду, я решил её посмотреть ( непосредственно программны код, а не её работу) - и О УЖАС! Я был в шоке, мой разум начал погружаться во тьму. Из функции InitI3D() хитро прищуриваясь и плотоядно улыбаясь, на меня смотрела команда GOTO. Страх объял меня и началась пляска нервов. О БЕЗУМИЕ! Поучему бы не переписать эту фонкцию вот так: Function InitI3D() GWidth%=GraphicsWidth() GWidth2%=GWidth%/2 GHeight%=GraphicsHeight() GHeight2%=GHeight%/2 ;Значения по умолчанию I3DPSX#=0.15 I3DPSY#=0.15 ;640x480 If (GWidth%=640) * (GHeight%=480) Then I3DPSX#=0.15 I3DPSY#=0.15 ;800x600 ElseIf (GWidth%=800) * (GHeight%=600) Then I3DPSX#=0.15 I3DPSY#=0.15 ;1024x768 ElseIf (GWidth%=1024) * (GHeight%=768) Then I3DPSX#=0.1487 I3DPSY#=0.1487 ;1028x960 ElseIf (GWidth%=1280) * (GHeight%=960) Then I3DPSX#=0.15 I3DPSY#=0.15 ;1280x1024 ElseIf (GWidth%=1280) * (GHeight%=1024) Then I3DPSX#=0.15 I3DPSY#=0.15 EndIf X0#=-GWidth2%I3DPSX# Y0#=GHeight2%I3DPSY# End Function А так, очень даже симпотичная библочка. __________________ http://nabatchikov.com Мир нужно делать лучше и чище. Иначе, зачем мы живем? tormoz А я растила сына на преданьях о принцах, троллях, потайных свиданьях, погонях, похищениях невест. Да кто же знал, что сказка душу съест?
(Offline)