Full Version: A 3d Box Out Of Lines
Scenyx Entertainment Community > Xbox1 Forums > Dashboard Forums > Official MediaXMenu (MXM) Forum > MXM WIP Beta forum
| 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
Cool
This is a "lo-fi" version of our main content. To view the full version with more information, formatting and images, please click here.