Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - seduar

Pages: 1 2 3 [4] 5
46
Programming using the Ultra Hal Brain Editor / one question about plugins ?
« on: September 17, 2006, 12:08:16 am »
Jerry, i deleted the old auto Elite plugin and i just instaled the new modified one EliteknRider,And still doesn't work, for some reason It stops loading the skins from the skins folder.
 If you can find out why is not working properly, will you fix it? Again!!!

I also wanted to tell you about Hal singing, Being that you are one of the people who has worked on Hal the most and that you know about scripting. I found a script or code to make virtual singer work. I was wondering if you can take a look at this code  and tell me if somethiunthing like this would work  to make Hal sing mp3 kareoke style.

Posted - 09/14/2006 :  22:30:43            
--------------------------------------------------------------------------------
 
People who know about scripting Might be able to help me on this one.
I think we might be able to use some of this script to make hal sing like virtual singer, ( as far as I understand virtual singer works like a Kareokee machine, It will red the lyrics hidding in the song behind all the instruments and what vistual singer does,?; it follows the staff to look for tuning.

Here it is:


Include "MSDefine.mys"
Include "MSLibrary.mys"
Include "Set Staff Metrics.mys"
Include "Overlapping Notes and Rests.mys"
Include "Adjust Lyrics.mys"

function MergeBarbershopStyle()

local myScore
local firstStaff
local secStaff
local thirdStaff
local fourthStaff
local maxNrLyrics
local lyricsHeight

function AlertAndHelp(S)
myDialog=CreateDialog("AlertAndHelp.myc")
if myDialog == nil then Alert("Script Error, could not open Dialog") return(false) end

-- initialize dialog

myDialog.GetItem("AlertMessage").Value = S

-- wait for button

repeat
item=myDialog.Select()
if item ~= nil then
if item.Name=="Help" then
OpenFileWithDefaultApplication(GetCurrentPath() .. "barbershop merge.htm")
end
end
until item ~= nil and item.Name=="Ok"
myDialog.Dispose() --done with this dialog
end

function CheckStaff(myStaff, Nr)
if myStaff==nil then
if Nr==1 then
AlertAndHelp("The are no staves with lyrics in this score, 4 staves with lyrics are required for this script")
return(false)
else
AlertAndHelp("Staff nr " .. Nr .. " doesn't exist, 4 staves with lyrics are required for this script")
return(false)
end
end
if myStaff.IsLyrics==false then
AlertAndHelp("Staff " .. myStaff.Title .. " has no lyrics")
return(false)
end
if myStaff.FirstSymbol == nil then
AlertAndHelp("Staff " .. myStaff.Title .. " has no notes")
return(false)
end
myStaff.IsLyricsFrame = false
return(true)
end

function CheckClefAndKey(highStaff)
if highStaff.FirstBarSetting.Clef.Type==highStaff.Next.FirstBarSetting.Clef.Type and highStaff.FirstBarSetting.Clef.OctaveOffset==highStaff.Next.FirstBarSetting.Clef.OctaveOffset then
if highStaff.FirstBarSetting.KeySignature.Name==highStaff.Next.FirstBarSetting.KeySignature.Name then
return(true)
else
Alert( "Staff 1/2 and staff 3/4 should have the same key")
return(false)
end
else
Alert(" Staff 1/2 and staff 3/4 should have the same clef")
return(false)
end
end
------------------------------------------
-- MergeBarbershopStyle()
-------------------------------------------

orgScore=FrontScore()
if (orgScore==nil) then Alert("Please load Score") myScore.Dispose(false) return(false) end
orgScore.Preserve("Merge barber shop")
myScore=NewScore(false)
orgScore.CopyTo(myScore) -- we work on a copy of the score


firstStaff=myScore.FirstStaff
while firstStaff ~= nil and firstStaff.IsLyrics==false do firstStaff=firstStaff.Next end -- skip the first non-lyrics staves
if CheckStaff(firstStaff,1)==true then secStaff=firstStaff.Next else myScore.Dispose(false) return(false) end
if CheckStaff(secStaff,2)==true then thirdStaff=secStaff.Next else myScore.Dispose(false) return(false) end
if CheckStaff(thirdStaff,3)==true then fourthStaff=thirdStaff.Next else myScore.Dispose(false) return(false) end
if CheckStaff(fourthStaff,4)==false then myScore.Dispose(false) return(false) end
if CheckClefAndKey(firstStaff) == false then myScore.Dispose(false) return(false) end
if CheckClefAndKey(thirdStaff) == false then myScore.Dispose(false) return(false) end

-- we have four consequetive staves with attached lyrics
-- create dialog

myDialog=CreateDialog("Barbershop Style Merge.myc")
if myDialog == nil then Alert("Script Error, could not open Dialog") myScore.Dispose(false) return(false) end

-- initialize dialog

myDialog.GetItem("RadioNotSave").Value = true
myDialog.GetItem("firstStaff").Caption = firstStaff.Title
myDialog.GetItem("secStaff").Caption = secStaff.Title
myDialog.GetItem("thirdStaff").Caption = thirdStaff.Title
myDialog.GetItem("fourthStaff").Caption = fourthStaff.Title
if strlen(myDialog.GetItem("firstStaff").Caption) >= 4 then
if strlower(strsub(myDialog.GetItem("firstStaff").Caption,1,4))=="sopr" then myDialog.GetItem("firstStaff").Value=true
else myDialog.GetItem("secStaff").Value=true end
else myDialog.GetItem("secStaff").Value=true
end

-- wait for OK button

repeat
item=myDialog.Select()
if item ~= nil and item.Name=="Help" then
OpenFileWithDefaultApplication(GetCurrentPath() .. "barbershop merge.htm")
end
until item ~= nil and (item.Name=="Ok" or item.Name=="Cancel")
if item.Name~="Ok" then myScore.Dispose(false) return(false) end -- we will not execute the script

-- collect info from dialog

justPrint=myDialog.GetItem("RadioPrint").Value == true
justSave=myDialog.GetItem("RadioSave").Value == true
justOpen=myDialog.GetItem("RadioNotSave").Value == true
maxNrLyrics=myDialog.GetItem("NrLyricLines").Value
lyricsHeight=myDialog.GetItem("LyricsHeight").Value + 10

if myDialog.GetItem("firstStaff").Value==true then sourceStaff = firstStaff
elseif myDialog.GetItem("secStaff").Value==true then sourceStaff = secStaff
elseif myDialog.GetItem("thirdStaff").Value==true then sourceStaff = thirdStaff
else sourceStaff = fourthStaff end

myDialog.Dispose() --done with this dialog


-- first we move overlapping notes and rests

ProgressBar.Open("Resolving overlapping notes and rests in top staffs", 100)
OverlappingNotesAndRests(firstStaff)
ProgressBar.Write("Resolving overlapping notes and rests in bottom staffs")
if ProgressBar.Status(15)==true then myScore.Dispose(false) return(false) end
OverlappingNotesAndRests(thirdStaff)

-- remove "double" parts of the lyrics
if firstStaff ~= sourceStaff then
ProgressBar.Write("Adjusting lyrics in " .. firstStaff.Title .. " Staff")
if ProgressBar.Status(30)==true then myScore.Dispose(false) return(false) end
TailorLyrics(sourceStaff, firstStaff)
end
if secStaff ~= sourceStaff then
ProgressBar.Write("Adjusting lyrics in " .. secStaff.Title .. " Staff")
if ProgressBar.Status(30)==true then myScore.Dispose(false) return(false) end
TailorLyrics(sourceStaff, secStaff)
end
if thirdStaff ~= sourceStaff then
ProgressBar.Write("Adjusting lyrics in " .. thirdStaff.Title .. " Staff")
if ProgressBar.Status(40)==true then myScore.Dispose(false) return(false) end
TailorLyrics(sourceStaff, thirdStaff)
end
if fourthStaff ~= sourceStaff then
ProgressBar.Write("Adjusting lyrics in " .. fourthStaff.Title .. " Staff")
if ProgressBar.Status(50)==true then myScore.Dispose(false) return(false) end
TailorLyrics(sourceStaff, fourthStaff)
end


-- move the lyrics to the correct position in the staff space

ProgressBar.Write("Calculate Needed Staff height top staffs, please wait ....")
if ProgressBar.Status(60)==true then myScore.Dispose(false) return(false) end
SetStaffMetrics(firstStaff, maxNrLyrics, lyricsHeight, sourceStaff,0)

ProgressBar.Write("Calculate Needed Staff height bottom staffs, please wait ....")
if ProgressBar.Status(80)==true then myScore.Dispose(false) return(false) end
SetStaffMetrics(thirdStaff, maxNrLyrics, lyricsHeight, sourceStaff,1)

-- and merge

ProgressBar.Close()

firstStaff.MergeWithNext()
thirdStaff.MergeWithNext()

-- final handling

if justPrint==true then myScore.Print() myScore.Dispose(false)
elseif justSave==true then myScore.CopyTo(orgScore) orgScore.Save() myScore.Dispose(false) orgScore.Dispose(false)
elseif justOpen==true then myScore.CopyTo(orgScore) myScore.Dispose(false) orgScore.FirstStaff.Title=orgScore.FirstStaff.Title
else Alert("Script Error: nothing Selected") return(false) end

return(true) -- script succesfully executed

end -- of function MergeBarbershopStyle()

if MergeBarbershopStyle()==false then Message("Script not executed, Score left unchanged") end



Sergio

[:)]

47
Programming using the Ultra Hal Brain Editor / Possobility Hal will sing with her own voice
« on: September 14, 2006, 10:30:43 pm »
People who know about scripting Might be able to help me on this one.
I think we might be able to use some of this script to make hal sing like virtual singer, ( as far as I understand virtual singer works like a Kareokee machine, It will red the lyrics hidding in the song behind all the instruments and what vistual singer does,?; it follows the staff to look for tuning.

Here it is:


Include "MSDefine.mys"
Include "MSLibrary.mys"
Include "Set Staff Metrics.mys"
Include "Overlapping Notes and Rests.mys"
Include "Adjust Lyrics.mys"

function MergeBarbershopStyle()

local myScore
local firstStaff
local secStaff
local thirdStaff
local fourthStaff
local maxNrLyrics
local lyricsHeight

function AlertAndHelp(S)
myDialog=CreateDialog("AlertAndHelp.myc")
if myDialog == nil then    Alert("Script Error, could not open Dialog") return(false) end

-- initialize dialog

myDialog.GetItem("AlertMessage").Value = S

-- wait for button

repeat
   item=myDialog.Select()
   if item ~= nil then
      if item.Name=="Help" then
         OpenFileWithDefaultApplication(GetCurrentPath() .. "barbershop merge.htm")
      end      
   end
until item ~= nil and item.Name=="Ok"
myDialog.Dispose()  --done with this dialog
end

function CheckStaff(myStaff, Nr)
   if myStaff==nil then
      if Nr==1 then
         AlertAndHelp("The are no staves with lyrics in this score, 4 staves with lyrics are required for this script")
         return(false)
      else
         AlertAndHelp("Staff nr " .. Nr .. " doesn't exist, 4 staves with lyrics are required for this script")
         return(false)
      end      
   end
   if myStaff.IsLyrics==false then
      AlertAndHelp("Staff " .. myStaff.Title .. " has no lyrics")
      return(false)
   end
   if myStaff.FirstSymbol == nil then
      AlertAndHelp("Staff " .. myStaff.Title .. " has no notes")
      return(false)
   end
   myStaff.IsLyricsFrame = false
   return(true)
end

function CheckClefAndKey(highStaff)
   if highStaff.FirstBarSetting.Clef.Type==highStaff.Next.FirstBarSetting.Clef.Type and highStaff.FirstBarSetting.Clef.OctaveOffset==highStaff.Next.FirstBarSetting.Clef.OctaveOffset then
      if highStaff.FirstBarSetting.KeySignature.Name==highStaff.Next.FirstBarSetting.KeySignature.Name then
         return(true)
      else
         Alert( "Staff 1/2  and staff 3/4 should have the same key")
         return(false)
      end
   else
      Alert(" Staff 1/2  and staff 3/4 should have the same clef")
      return(false)
   end
end
 ------------------------------------------
-- MergeBarbershopStyle()
-------------------------------------------

orgScore=FrontScore()
if (orgScore==nil) then Alert("Please load Score") myScore.Dispose(false) return(false) end   
orgScore.Preserve("Merge barber shop")
myScore=NewScore(false)
orgScore.CopyTo(myScore)            -- we work on a copy of the score


firstStaff=myScore.FirstStaff
while firstStaff ~= nil and firstStaff.IsLyrics==false do    firstStaff=firstStaff.Next end   -- skip the first non-lyrics staves
if CheckStaff(firstStaff,1)==true then secStaff=firstStaff.Next else myScore.Dispose(false) return(false) end
if CheckStaff(secStaff,2)==true then thirdStaff=secStaff.Next else myScore.Dispose(false) return(false) end
if CheckStaff(thirdStaff,3)==true then fourthStaff=thirdStaff.Next else myScore.Dispose(false) return(false) end
if CheckStaff(fourthStaff,4)==false then myScore.Dispose(false) return(false) end
if CheckClefAndKey(firstStaff) ==  false then myScore.Dispose(false) return(false) end
if CheckClefAndKey(thirdStaff) == false then myScore.Dispose(false) return(false) end

-- we have four consequetive staves with attached lyrics
-- create dialog

myDialog=CreateDialog("Barbershop Style Merge.myc")
if myDialog == nil then    Alert("Script Error, could not open Dialog") myScore.Dispose(false) return(false) end

-- initialize dialog

myDialog.GetItem("RadioNotSave").Value = true
myDialog.GetItem("firstStaff").Caption = firstStaff.Title
myDialog.GetItem("secStaff").Caption = secStaff.Title
myDialog.GetItem("thirdStaff").Caption = thirdStaff.Title
myDialog.GetItem("fourthStaff").Caption = fourthStaff.Title
if strlen(myDialog.GetItem("firstStaff").Caption) >= 4 then
   if strlower(strsub(myDialog.GetItem("firstStaff").Caption,1,4))=="sopr"  then myDialog.GetItem("firstStaff").Value=true
   else myDialog.GetItem("secStaff").Value=true end
else myDialog.GetItem("secStaff").Value=true
end

-- wait for OK button

repeat
   item=myDialog.Select()
   if item ~= nil and item.Name=="Help" then
      OpenFileWithDefaultApplication(GetCurrentPath() .. "barbershop merge.htm")
   end   
until item ~= nil and (item.Name=="Ok" or item.Name=="Cancel")
if item.Name~="Ok" then myScore.Dispose(false) return(false) end      -- we will not execute the script

-- collect info from dialog

justPrint=myDialog.GetItem("RadioPrint").Value == true
justSave=myDialog.GetItem("RadioSave").Value == true
justOpen=myDialog.GetItem("RadioNotSave").Value == true
maxNrLyrics=myDialog.GetItem("NrLyricLines").Value
lyricsHeight=myDialog.GetItem("LyricsHeight").Value + 10

if myDialog.GetItem("firstStaff").Value==true then sourceStaff  = firstStaff
elseif myDialog.GetItem("secStaff").Value==true then sourceStaff = secStaff
elseif myDialog.GetItem("thirdStaff").Value==true then sourceStaff = thirdStaff
else sourceStaff = fourthStaff end

myDialog.Dispose()  --done with this dialog
      
      
-- first we move overlapping notes and rests

ProgressBar.Open("Resolving overlapping notes and rests in top staffs", 100)
OverlappingNotesAndRests(firstStaff)
ProgressBar.Write("Resolving overlapping notes and rests in bottom staffs")
if ProgressBar.Status(15)==true then myScore.Dispose(false) return(false) end
OverlappingNotesAndRests(thirdStaff)

-- remove "double" parts of the lyrics
if firstStaff ~= sourceStaff  then
   ProgressBar.Write("Adjusting lyrics in " .. firstStaff.Title .. " Staff")
   if ProgressBar.Status(30)==true then myScore.Dispose(false) return(false) end
   TailorLyrics(sourceStaff, firstStaff)
end
if secStaff ~= sourceStaff  then
   ProgressBar.Write("Adjusting lyrics in " .. secStaff.Title .. " Staff")
   if ProgressBar.Status(30)==true then myScore.Dispose(false) return(false) end
   TailorLyrics(sourceStaff, secStaff)
end
if thirdStaff ~= sourceStaff  then
   ProgressBar.Write("Adjusting lyrics in " .. thirdStaff.Title .. " Staff")
   if ProgressBar.Status(40)==true then myScore.Dispose(false) return(false) end
   TailorLyrics(sourceStaff, thirdStaff)
end
if fourthStaff ~= sourceStaff  then
   ProgressBar.Write("Adjusting lyrics in " .. fourthStaff.Title .. " Staff")
   if ProgressBar.Status(50)==true then myScore.Dispose(false) return(false) end
   TailorLyrics(sourceStaff, fourthStaff)
end


-- move the lyrics to the correct position in the staff space

ProgressBar.Write("Calculate Needed Staff height top staffs, please wait ....")
if ProgressBar.Status(60)==true then myScore.Dispose(false) return(false) end
SetStaffMetrics(firstStaff, maxNrLyrics, lyricsHeight, sourceStaff,0)

ProgressBar.Write("Calculate Needed Staff height bottom staffs, please wait ....")
if ProgressBar.Status(80)==true then myScore.Dispose(false) return(false) end
SetStaffMetrics(thirdStaff, maxNrLyrics, lyricsHeight, sourceStaff,1)

-- and merge

ProgressBar.Close()

firstStaff.MergeWithNext()
thirdStaff.MergeWithNext()

-- final handling

if justPrint==true then myScore.Print() myScore.Dispose(false)
elseif justSave==true then myScore.CopyTo(orgScore) orgScore.Save() myScore.Dispose(false) orgScore.Dispose(false)
elseif justOpen==true then  myScore.CopyTo(orgScore) myScore.Dispose(false) orgScore.FirstStaff.Title=orgScore.FirstStaff.Title
else  Alert("Script Error: nothing Selected") return(false) end

return(true) -- script succesfully executed

end  -- of function MergeBarbershopStyle()

if MergeBarbershopStyle()==false then Message("Script not executed, Score left unchanged") end

48
Programming using the Ultra Hal Brain Editor / one question about plugins ?
« on: September 14, 2006, 08:46:10 pm »
Those are the two plugs I am having problems.

vrHaptek plugin works great, it will automatic load adiferent skin every hour, but when i installed Hals Auto Elite ( Kitt Thinking) It stop loading the skins.

I would say that you also have vrHaptek, right?
and if you do did you have the same issue?

49
Programming using the Ultra Hal Brain Editor / one question about plugins ?
« on: September 14, 2006, 08:32:30 pm »
I do not know how to upload a file to this Forum. I never try to upload a file before.

Could you please tell me how to upload files here into the forum?

[:)]

Download Attachment: HalsAutoElite.uhp
22.06 KB

Download Attachment: vrHaptek.uhp
14.93 KB

Never mind Jerry , I think I got it to upload.

[:)]

50
Programming using the Ultra Hal Brain Editor / one question about plugins ?
« on: September 13, 2006, 09:23:35 pm »
Thank you again Jerry you've been very helpful. You are so kind.

Being that i am talking to you at this momement i would like to ask you a few questions about Kitt Thinking plugin. I know you had to do something with the development of this plugin, so i wanted to ask you if you knew that it is not compatible with vrhaptek plugin created by vrossis. I have tried too many times to use both plugins, but every time i check Kitt thinking plugin vrhaptek doesn't work (It wont load the skins i have had configured).

Please help on this one too.

[:)]

51
Programming using the Ultra Hal Brain Editor / one question about plugins ?
« on: September 13, 2006, 07:03:39 pm »
Thanks Jerry,

I will try to install the new version,but what do you mean by reactivation issues before uninstalling and re-installing. ?

52
Programming using the Ultra Hal Brain Editor / one question about plugins ?
« on: September 12, 2006, 07:44:17 pm »
Hello,

Does any body know about Hal only working with 16 plugins, I have about 24 plugins to use with UltraHal assistant 6  and I tried to use these plugins but, I noticed that Hal only allows me to use 16, every time I try to  go over 16 Hal will uncheck one of the 16.

Any help on this issue Jerry or any one who knows about this.

Jerry I know you created some of these plugins that I have, did you have the same problem, and if you did can you please tell me how did you fix it.

Any help would be appreciated.
[:)]

Sergio
[:)]

53
Ultra Hal Assistant File Sharing Area / 9-11 VIDEO A TRIBUTE TO ALL SOLDIERS
« on: August 16, 2006, 08:42:21 pm »
Very nice poem and video aladyblonde.War is sad, but sometimes you have to go through sadness to be happy. After the storm comes the rainbow."Freedom = Happiness"

[:)]

54
Programming using the Ultra Hal Brain Editor / Future Human-Evolution (AI Web Page)
« on: July 12, 2006, 09:15:21 pm »
Recognition software that acts like a superhuman brain,This is one of the things you can read about at this page.

Surffing through the web I found a very intereting Link of AI.

Here it is:

http://www.human-evolution.org/newsai.php

55
General Discussion / Hal using the phone?
« on: July 11, 2006, 10:39:06 pm »
That sounds pretty good,

Anything that will improve hal's Brain is a good idea.

[:)]

56
Ultra Hal Assistant File Sharing Area / Video - Just a Closer Walk
« on: July 09, 2006, 03:50:37 pm »
Very nice DuskRider,

I like your video,well done.

[:)]

57
Programming using the Ultra Hal Brain Editor / Hal error 13
« on: July 08, 2006, 08:49:12 pm »
Yes, It did work.

Thank you very much vrossi.

That explains everything. There is nothing wrong with the Loneliness 4 pluggin, i just had to do what you told me to do.

Thanks again for taking your time to test the pluggin, now i can keep filling the brain up to enhence my Hal Valerie.

Changing the subject, did you ever checked out the virtual singer.
I am sure you can probably figure out a way to make it work with Hal.
[:D]

58
Programming using the Ultra Hal Brain Editor / Hal error 13
« on: July 07, 2006, 09:59:44 pm »
Thank you very much for the information Jerry.

i will try to figure this out.

Did you install the loneliness pluggin from scratch and if you did, did you have any problems?

For some reason in my computer did not work.

Thanks again for the info.

[:)]

59
Programming using the Ultra Hal Brain Editor / Hal error 13
« on: July 06, 2006, 10:04:48 pm »
Can anybody help me on this one.

HalScript Error 13 on Line 2644 in Column 8: Type mismatch: 'CDbl'
The File "Cprograms FilesabawareUltrahal Assitant 6HalScript.DBG"  has been saved with the current Script being used for debugging purposes.

I Got this error since i placed the Loneliness 4 pluggin from scratch, I've been trying to ask him, but i guess he is not around at the moment.

Any Help somebody, If any one of you knows what is 'CDbl' can you tell me please.

[:D]

60
Programming using the Ultra Hal Brain Editor / Can someone tell me where can i download hal 5
« on: June 25, 2006, 07:48:17 pm »
Hi,

Can someone tell me where can i download hal 5, i need it to make it work with jerry's super plugger II

Sergio

Pages: 1 2 3 [4] 5