3 replies to this topic

[allknowing2012]

Working on a new table .. like to incorporate flexdmd/ultradmd. I cant seem to get full color to show. I show an image and its orange-ish just like dmd score/player/border etc.

I run the flexdmdui and it shows full color or I switch to say blue ... the pin still shows orange.

 

I created just a blank table to see if it was just my pin code. No luck.

Any pointers on where to look?

 

testing via

drain_hit()

    DMD "vidBallSave.wmv", "BALL SAVE", 1235, 700

 

This is the basic code I added to a 10.6 "blank table".

sub table1_init
	LoadUltraDMD
    UltraDMD.SetVideoStretchMode UltraDMD_VideoMode_Middle
	OnScoreboardChanged()
end Sub

'*******************************************************************
'                           DMD
'-------------------------------------------------------------------
Dim UltraDMD

Const UltraDMD_VideoMode_Stretch = 0
Const UltraDMD_VideoMode_Top = 1
Const UltraDMD_VideoMode_Middle = 2
Const UltraDMD_VideoMode_Bottom = 3

dim curDir


Sub LoadUltraDMD
	Dim FlexDMD
    Set FlexDMD = CreateObject("FlexDMD.FlexDMD")
	Set UltraDMD = FlexDMD.NewUltraDMD()
    UltraDMD.Init

	Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    curDir = fso.GetAbsolutePathName(".")
    Set fso = nothing
	
 ' A Major version change indicates the version is no longer backward compatible
    If Not UltraDMD.GetMajorVersion = 1 Then
        MsgBox "Incompatible Version of UltraDMD found."
        Exit Sub
    End If
    'A Minor version change indicates new features that are all backward compatible
    If UltraDMD.GetMinorVersion < 0 Then
        MsgBox "Incompatible Version of UltraDMD found.  Please update to version 1.1 or newer."
        Exit Sub
    End If
	UltraDMD.SetVideoStretchMode UltraDMD_VideoMode_Middle
    UltraDMD.SetProjectFolder curDir & "\FlexDMD.UltraDMD"
	Dim imgList
End Sub


Sub DMD_DisplayScene()
    If Not UltraDMD is Nothing Then
        UltraDMD.DisplayScene00 casti, "",14 ,5 ,"" ,15,6, 1, 1000, 1
       ' If pauseTime > 0 OR animateIn < 14 OR animateOut < 14 Then
        '   Timer1DmD.Enabled = True
        'End If
    End If
End Sub


Sub DMD_DisplaySceneEx(bkgnd,toptext,topBrightness, topOutlineBrightness, bottomtext, bottomBrightness, bottomOutlineBrightness, animateIn,pauseTime,animateOut)
    If Not UltraDMD is Nothing Then
        Debug.Print bkgnd
        Debug.Print toptext
        Debug.Print topBrightness
        Debug.Print topOutlineBrightness
        Debug.Print bottomtext
        Debug.Print bottomBrightness
        Debug.Print bottomOutlineBrightness
        Debug.Print animateIn
        Debug.Print pauseTime
        Debug.Print animateOut
        UltraDMD.DisplayScene00Ex bkgnd, toptext, topBrightness, topOutlineBrightness, bottomtext, bottomBrightness, bottomOutlineBrightness, animateIn, pauseTime, animateOut
        If pauseTime > 0 OR animateIn < 14 OR animateOut < 14 Then
            Timer1DmD.Enabled = True
        End If
    End If
End Sub

Sub OnScoreboardChanged()
        UltraDMD.DisplayScoreboard 3, 1, 1, 2, 3, 4, "credits " & 123, "ball " & 1
End Sub

Sub DMD(background, toptext, bottomtext, duration)
    UltraDMD.DisplayScene00 background, toptext, 15, bottomtext, 15, 14, duration, 14
End Sub

Edited by allknowing2012, 24 January 2021 - 05:15 PM.

[allknowing2012]

Using freezy 1.8 shows full color

dmdext test -d auto

[allknowing2012]

Works fine (full color) using UltraDMD rather than FlexDMD .. so I will look into that angle...
 

' Dim FlexDMD

' Set FlexDMD = CreateObject("FlexDMD.FlexDMD")

' Set UltraDMD = FlexDMD.NewUltraDMD()

 

    Set UltraDMD = CreateObject("UltraDMD.DMDObject")

[allknowing2012]

Found the answer...

 

FlexDMD.RenderMode=2