Jump to content


Photo

A 3d Box Out Of Lines


  • Please log in to reply
1 reply to this topic

#1 flattspott

flattspott

    X-S Freak

  • Moderator
  • PipPipPipPipPip
  • 1,787 posts
  • Location:Southern California
  • Xbox Version:v1.0
  • 360 version:v1 (xenon)

Posted 24 June 2004 - 07:20 PM

user posted image

CODE
Set Scale 100
Set gLeft 300
Set gTop 200
Set XPos %gLeft%
Set YPos %gTop%
Set H1 %(YPos+Scale)%
Set W1 %(XPos+Scale)%

:DrawBOX
BeginDraw
Line %(W1/2)% %(H1/2)% %XPos% %YPos% WHITE
Line %(W1/2+Scale)% %(H1/2+Scale)% %(XPos+Scale)% %(YPos+Scale)% WHITE
Line %(W1/2+Scale*2)% %(H1/2+Scale)% %(XPos+Scale*2)% %(YPos+Scale)% WHITE
Line %(W1/2+Scale)% %(H1/2)% %(XPos+Scale)% %YPos% WHITE
Line %(W1/2)% %(H1/2)% %(W1/2+Scale)% %(H1/2+Scale)% WHITE
Line %XPos% %YPos% %(Scale+XPos)% %(Scale+YPos)% WHITE
Line %(XPos+Scale)% %YPos% %XPos% %YPos% WHITE
Line %(XPos+Scale)% %YPos% %(XPos+Scale*2)% %(YPos+Scale)% WHITE
Line %(XPos+Scale)% %(YPos+Scale)% %(XPos+Scale*2)% %(YPos+Scale)% WHITE
Line %(W1/2)% %(H1/2)% %(W1/2+Scale)% %(H1/2)% WHITE
Line %(W1/2+Scale*2)% %(H1/2+Scale)% %(W1/2+Scale)% %(H1/2)% WHITE
Line %(W1/2+Scale)% %(H1/2+Scale)% %(W1/2+Scale*2)% %(H1/2+Scale)% WHITE
EndDraw
IQWaitMsg Any
If %Msg_ID% == "UI_LF" Then
Sub XPos 2
EndIf
If %Msg_ID% == "UI_RT" Then
Add XPos 2
EndIf
If %Msg_ID% == "UI_UP" Then
Sub YPos 2
EndIf
If %Msg_ID% == "UI_DN" Then
Add YPos 2
EndIf
If %Msg_ID% == "UI_SELECT" Then
Add Scale 2
EndIf
If %Msg_ID% == "MUSIC_NEXT" Then
Sub Scale 2
EndIf
If %Msg_ID% == "UI_BACK" Then
Goto EXIT
EndIf
Set H1 %(YPos+Scale)%
Set W1 %(XPos+Scale)%
Goto DrawBOX
:EXIT
Quit


Again from a VisualBasic app I found

#2 geniusalz

geniusalz

    Team MXM

  • Head Moderators
  • PipPipPipPipPip
  • 1,827 posts
  • Gender:Male
  • Xbox Version:v1.1
  • 360 version:unknown

Posted 25 June 2004 - 10:55 AM

Cool




0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users