[JesseParticipant]

it worked! Now to get all of the sounds and animations to work correctly.

Thanks Mark.

[JesseParticipant]

perhaps I forgot to push last time, anyway try again.

I think you did. Last update on the develop branch was 4 or 5 days ago now. If I remember correctly.

I’ll try again. Hopefully it works this time.

[JesseParticipant]

Well, I tried everything you said Mark and still keep getting the same forward reference compiler error on media.

[JesseParticipant]

You are right, its with t_default_Media. I assumed it was the same error just cause I saw a forward reference error. humm… Any idea?

[JesseParticipant]

Yes, I tried it with 1.1.04 from itch.Iio and it does the same thing.

[JesseParticipant]

> Seriously though, you can right click it and select download.

funny way of responding to two different comments.

Seriously though, that video doesn’t play on my MacBook either way.

[JesseParticipant]

That video doesn’t load on my MacBook’s Safari.

[JesseParticipant]

Works fine here on my 2013 MacBook. How are you using it?

[JesseParticipant]

isn’t it always, the ones with the most demands are the ones with the least interest in supporting.

[JesseParticipant]

It should work. it works like this:

Monkey

[crayon-5cbaa08f3c544498746794 inline="true" ] Function Main() Print ModVector(10,3) End Function ModVector:Float(value:Float, trueMod:Short) value = value Mod trueMod If value < 0 Then value = value + trueMod Endif Return value End Function

1 2 3 4 5 6 7 8 9 10 11 12 13

[crayon-5cbaa08f3c544498746794 inline="true" ] Function Main() Print ModVector(10,3) End   Function ModVector:Float(value:Float, trueMod:Short) value = value Mod trueMod If value < 0 Then value = value + trueMod     Endif Return value End Function

[/crayon]

You should report it as a bug over at GitHub.

[JesseParticipant]

Welcome aboard!

Colorado In the house.

[JesseParticipant]

@impixi you are right. hahaha! At first I didn’t know why it wasn’t working. That’s because I have always used it with objects not integers or floats so I just assumed it was doing what it was supposed to. it works fine with objects not primitives. your solution solves it. I have to keep that in mind. unlikely I will use integers or floats in a list but who knows. Thanks!

It is still faster but not as I gave it credit for.

[JesseParticipant]

here! test E is way faster.

Monkey

[crayon-5cbaa08f44432392141241 inline="true" ] Using std.. Class Collection<T> ' Option A Field Items := New List<T> ' Option B Method ToArray:T[]() Return Items.ToArray() End ' Option C Method All:List<T>.Iterator() Return New List<T>.Iterator(Items, Items.FirstNode()) End ' Option D Operator To<C>:List<C>() Return Items End 'Option E Method ToNode:List<T>.Node() Return Items.FirstNode() End Method End Global Collection_:Collection<Int> Function GenerateCollection(quantity:Int) Collection_ = New Collection<Int> For Local i := 1 To quantity Collection_.Items.Add(Cast<Int>(Rnd(0, 100))) Next Print("Created: " + Collection_.Items.Count() + " items.") End Function TestA() ' A ' print the items based on list iteration For Local i := Eachin Collection_.Items 'Print("A: " + i) Next End Function TestB() ' B ' print the items based on the array overload method For Local i := Eachin Collection_.ToArray() 'Print("B: " + i) Next End Function TestC() ' C ' print the items based on iterator For Local i := Eachin Collection_ 'Print("C: " + i) Next End Function TestD() ' D ' print the items based on cast For Local i := Eachin Cast<List<Int>>(Collection_) 'Print("D: " + i) Next End Function TestE() 'E 'Print the Items based on Node Local node := Collection_.ToNode() While node.Value 'Print("E: " + i.Value) node = node.Succ Wend End Function Class Benchmark Abstract Private Global TimeStart:Int Global TimeEnd:Int Global TimeResult:Int Public Function Start() TimeStart = Millisecs() TimeEnd = 0 End Function Stop() TimeEnd = Millisecs() TimeResult = TimeEnd - TimeStart End Function PrintResult() Print("Time Elapsed: " + TimeResult) End End Function Main() Print "Processing ....." GenerateCollection(10000000) Print("Starting Test A") Benchmark.Start() TestA() Benchmark.Stop() Benchmark.PrintResult() Print("Starting Test B") Benchmark.Start() TestB() Benchmark.Stop() Benchmark.PrintResult() Print("Starting Test C") Benchmark.Start() TestC() Benchmark.Stop() Benchmark.PrintResult() Print("Starting Test D") Benchmark.Start() TestD() Benchmark.Stop() Benchmark.PrintResult() Print("Start Test E") Benchmark.Start() TestE() Benchmark.Stop() Benchmark.PrintResult() End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154

[crayon-5cbaa08f44432392141241 inline="true" ] Using std.. Class Collection<T> ' Option A Field Items := New List<T> ' Option B Method ToArray:T[]() Return Items.ToArray() End ' Option C Method All:List<T>.Iterator() Return New List<T>.Iterator(Items, Items.FirstNode()) End ' Option D Operator To<C>:List<C>() Return Items End 'Option E Method ToNode:List<T>.Node() Return Items.FirstNode() End Method End Global Collection_:Collection<Int> Function GenerateCollection(quantity:Int) Collection_ = New Collection<Int> For Local i := 1 To quantity Collection_.Items.Add(Cast<Int>(Rnd(0, 100))) Next Print("Created: " + Collection_.Items.Count() + " items.") End Function TestA() ' A ' print the items based on list iteration For Local i := Eachin Collection_.Items 'Print("A: " + i) Next End Function TestB() ' B ' print the items based on the array overload method For Local i := Eachin Collection_.ToArray() 'Print("B: " + i) Next End Function TestC() ' C ' print the items based on iterator For Local i := Eachin Collection_ 'Print("C: " + i) Next End Function TestD() ' D ' print the items based on cast For Local i := Eachin Cast<List<Int>>(Collection_) 'Print("D: " + i) Next End Function TestE() 'E 'Print the Items based on Node Local node := Collection_.ToNode() While node.Value 'Print("E: " + i.Value) node = node.Succ Wend End Function Class Benchmark Abstract Private Global TimeStart:Int Global TimeEnd:Int Global TimeResult:Int Public Function Start() TimeStart = Millisecs() TimeEnd = 0 End Function Stop() TimeEnd = Millisecs() TimeResult = TimeEnd - TimeStart End Function PrintResult() Print("Time Elapsed: " + TimeResult) End End Function Main() Print "Processing ....." GenerateCollection(10000000)    Print("Starting Test A") Benchmark.Start() TestA() Benchmark.Stop() Benchmark.PrintResult() Print("Starting Test B") Benchmark.Start() TestB() Benchmark.Stop() Benchmark.PrintResult() Print("Starting Test C") Benchmark.Start() TestC() Benchmark.Stop() Benchmark.PrintResult() Print("Starting Test D") Benchmark.Start() TestD() Benchmark.Stop() Benchmark.PrintResult() Print("Start Test E") Benchmark.Start() TestE() Benchmark.Stop() Benchmark.PrintResult() End

[/crayon]

[JesseParticipant]

Yea, that was it.

[JesseParticipant]

Thanks for testing it. Do you have the latest from Github either the Development or the Master version?

I think it has to do with the printing of the mouse events to the console. I will remove the print from the Touch input files to see if it solves it.

I will report back.

[Author]

Posts