Help?

[SMcNeill]

Can someone help me count the dots that this little program makes on the screen?

Code: (Select All)

Screen _NewImage(400, 400, 32)



Data 789CEDDD4B8E22391405D0DE0BD3DE10FBE2D34D4B8C611F3067CA1C58018CDDBA295142A8A02A89944DBA8EA5A72209FBD53DA3504418F8EBAFBFCA5F5F507FFFFD77F9E79F7FCA7FFFFD57FEFDF7DFA79539999B355FF17F7F6571B4CFCEC1C1C1C1C1C1C1C1C1C1C1C1C1C1D13E3B070707070707070707070707070747FBEC1C1C1C1C1C1C1C1C1C1C1C1C1C1C1CEDB3737070707070707070707070707070B4CFCEC1C1C1C1C1C1C1C1C1C1C1C1C1C1D13E3B070707070707C76347FEBE2D0E0E0E8E77288EF6D97FE6582C16653A9D96C96452E6F3F98FEC799DF7722C73383838383838AE8ED96CF69177B55A95ED765BF6FB7D391C0E1F95D7792FC732277339383838383846A351592E9765B7DB95F3F95C1E8D1CCB9CCCCD9AD6B939383838385EAB9C8B8656F28CC7E3723A9D1EE6BF1F999B3559FB15193838383838EA3AEE9FB57CB6723D9473DAF178FC6DC375644DD6A6C7D01C1C1C1C1C1C751D79263FA4724F2DD745AF8EAC4D8FA1393838383838EA3A7EB567F859E599FE7ABD2E97CBE56547D6A6477A0DC9C2C1C1C1C1F17D1CD917B6D96C5E365C477AA4170707070747FF8EDCFBCAF54FF6870D1DE9915EE9C9C1C1C1C1D1BF23FF668FF1D0911EB73D393838383838383838383838EE1DBD5C477170707070D4AD1E9EE37070707070D4AF5EF69171707070707CBE7AF91C0B07070707475D472F9FA3E7E0E0E0E0A8EBE8E57BBC3838383838EA3A7AF91E610E0E0E0E8EEFE9C8B9A887DF31E1689F9D8383E3CF73E47E580FBFA3C8F13EC5D13E3B07472D479EC95FB3DF3F6BB9DDF3C5C1C1C1C1C1F1C8F16CCF3007070707070707070707070707C73B1547FBEC1C1C1C1C1C1C1C1C1C1C1C1C1C1C1CEDB3737070707070707070707070707070B4CFCEC1C1C1C1C1C1C1C1C1C1C1C1C1C1D13E3B070707070707070707070707070747FBEC1C1C1C1C1C1C1C1C1C1C1C1C1C1C1CEDB3737070707070707070707070707070B4CFCEC1C1C1C1C1C1C1C1C1C1C1C1C1C1D13E3B070707070707070707070707070747FBEC1C1C1C1C1C1C1C1C1C1C1C1C1C1C1CEDB3737070707070707070707070707070B4CFCEC1D1C291BF6F8B838383E31D8AA37DF69F39168B45994EA765329994F97CFE237B5EE7BD1CCB1C0E0E0E0E0E8EAB63369B7DE45DAD5665BBDD96FD7E5F0E87C347E575DECBB1CCC95C0E0E0E0E0E8ED1685496CB65D9ED76E57C3E974723C7322773B3A6756E0E0E0E0E8ED72AE7A2A1953CE3F1B89C4EA787F9EF47E6664DD67E45060E0E0E0E8EBA8EFB672D9FAD5C0FE59C763C1E7FDB701D5993B5E931340707070707475D479EC90FA9DC53CB75D1AB236BD363680E0E0E0E0E8EBA8E5FED197E5679A6BF5EAFCBE57279D991B5E9915E43B270707070707C1F47F6856D369B970DD7911EE9C5C1C1C1C1D1BF23F7BE72FD93FD6143477AA4577A7270707070F4EFC8BFD9633C74A4C76D4F0E0E0E0E0E0E0E0E0E0E0E8E7B472FD7511C1C1C1C1C75AB87E7381C1C1C1C1CF5AB977D641C1C1C1C1C9FAF5E3EC7C2C1C1C1C151D7D1CBE7E83938383838EA3A7AF91E2F0E0E0E0E8EBA8E5EBE479883838383E37B3A722EEAE1774C38DA67E7E0E0F8F31CB91FD6C3EF2872BC4F71B4CFCEC151CB9167F2D7ECF7CF5A6EF77C7170707070703C723CDB33CCC1C1C1C1C1C1C1C1C1C1C1C1C1F14EC5D13E3B070707070707070707070707070747FBEC1C1C1C1C1C1C1C1C1C1C1C1C1C1C1CEDB3737070707070707070707070707070B4CFCEC1C1C1C1C1C1C1C1C1C1C1C1C1C1D13E3B070707070707070707070707070747FBEC1C1C1C1C1C1C1C1C1C1C1C1C1C1C1CEDB3737070707070707070707070707070B4CFCEC1C1C1C1C1C1C1C1C1C1C1C1C1C1D13E3B070707070707070707070707070747FBEC1C1C1C1C1C1C1C1C1C1C1C1C1C1C1CEDB37370B470E4EFDBE2E0E0E07887E2689FFD678EC56251A6D369994C26653E9FFFC89ED7792FC732878383838383E3EA98CD661F7957AB55D96EB765BFDF97C3E1F051799DF7722C733297838383838363341A95E5725976BB5D399FCFE5D1C8B1CCC9DCAC699D9B83838383E3B5CAB9686825CF783C2EA7D3E961FEFB91B95993B55F918183838383A3AEE3FE59CB672BD74339A71D8FC7DF365C47D6646D7A0CCDC1C1C1C1C151D79167F2432AF7D4725DF4EAC8DAF4189A8383838383A3AEE3577B869F559EE9AFD7EB72B95C5E76646D7AA4D7902C1C1C1C1C1CDFC7917D619BCDE665C375A4477A7170707070F4EFC8BDAF5CFF647FD8D0911EE9959E1C1C1C1C1CFD3BF26FF6180F1DE971DB938383838383838383838383E3DED1CB75140707070747DDEAE1390E0707070747FDEA651F1907070707C7E7AB97CFB17070707070D475F4F2397A0E0E0E0E8EBA8E5EBEC78B83838383A3AEA397EF11E6E0E0E0E0F89E8E9C8B7AF81D138EF6D9393838FE3C47EE87F5F03B8A1CEF531CEDB37370D472E499FC35FBFDB396DB3D5F1C1C1C1C1C1C8F1CCFF60C7370707070707070707070707070BC5371B4CFCEC1C1C1C1C1C1C1C1C1C1C1C1C1C1D13E3B070707070707070707070707070747FBEC1C1C1C1C1C1C1C1C1C1C1C1C1C1C1CEDB3737070707070707070707070707070B4CFCEC1C1C1C1C1C1C1C1C1C1C1C1C1C1D13E3B070707070707070707070707070747FBEC1C1C1C1C1C1C1C1C1C1C1C1C1C1C1CEDB3737070707070707070707070707070B4CFCEC1C1C1C1C1C1C1C1C1C1C1C1C1C1D13E3B070707070707070707070707070747FBEC1C1C2D1CF9FBB638383838DEA138DA67FF9963B15894E9745A26934999CFE73FB2E775DECBB1CCE1E0E0E0E0E0B83A66B3D947DED56A55B6DB6DD9EFF7E570387C545EE7BD1CCB9CCCE5E0E0E0E0E0188D4665B95C96DD6E57CEE7737934722C7332376B5AE7E6E0E0E0E078AD722E1A5AC9331E8FCBE9747A98FF7E646ED664ED5764E0E0E0E0E0A8EBB87FD6F2D9CAF550CE69C7E3F1B70DD79135599B1E43737070707070D475E499FC90CA3DB55C17BD3AB2363D86E6E0E0E0E0E0A8EBF8D59EE1679567FAEBF5BA5C2E97971D599B1EE935240B07070707C7F771645FD866B379D9701DE9915E1C1C1C1C1CFD3B72EF2BD73FD91F3674A4477AA5270707070747FF8EFC9B3DC643477ADCF6E4E0E0E0E0E0E0E0E0E0E0E0B877F4721DC5C1C1C1C151B77A788EC3C1C1C1C151BF7AD947C6C1C1C1C1F1F9EAE5732C1C1C1C1C1C751DBD7C8E9E83838383A3AEA397EFF1E2E0E0E0E0A8EBE8E57B843938383838BEA723E7A21E7EC784A37D760E0E8E3FCF91FB613DFC8E22C7FB1447FBEC1C1CB51C79267FCD7EFFACE576CF170707070707C723C7B33DC31C1C1C1C1C1C1C1C1C1C1C1C1C1CEF541CEDB3737070707070707070707070707070B4CFCEC1C1C1C1C1C1C1C1C1C1C1C1C1C1D13E3B070707070707070707070707070747FBEC1C1C1C1C1C1C1C1C1C1C1C1C1C1C1CEDB3737070707070707070707070707070B4CFCEC1C1C1C1C1C1C1C1C1C1C1C1C1C1D13E3B070707070707070707070707070747FBEC1C1C1C1C1C1C1C1C1C1C1C1C1C1C1CEDB3737070707070707070707070707070B4CFCEC1C1C1C1C1C1C1C1C1C1C1C1C1C1D13E3B07470B47FEBE2D0E0E0E8E77288EF6D97FE6582C16653A9D96C96452E6F3F98FEC799DF7722C73383838383838AE8ED96CF69177B55A95ED765BF6FB7D391C0E1F95D7792FC732277339383838383846A351592E9765B7DB95F3F95C1E8D1CCB9CCCCD9AD6B939383838385EAB9C8B8656F28CC7E3723A9D1EE6BF1F999B3559FB15193838383838EA3AEE9FB57CB6723D9473DAF178FC6DC375644DD6A6C7D01C1C1C1C1C1C751D79263FA4724F2DD745AF8EAC4D8FA1393838383838EA3A7EB567F859E599FE7ABD2E97CBE56547D6A6477A0DC9C2C1C1C1C1F17D1CD917B6D96C5E365C477AA4170707070747FF8EDCFBCAF54FF6870D1DE9915EE9C9C1C1C1C1D1BF23FF668FF1D0911EB73D393838383838383838383838EE1DBD5C477170707070D4AD1E9EE37070707070D4AF5EF69171707070707CBE7AF91C0B07070707475D472F9FA3E7E0E0E0E0A8EBE8E57BBC3838383838EA3A7AF91E610E0E0E0E8EEFE9C8B9A887DF31E1689F9D8383E3CF73E47E580FBFA3C8F13EC5D13E3B07472D479EC95FB3DF3F6BB9DDF3C5C1C1C1C1C1F1C8F16CCF3007070707070707070707070707C73B1547FBEC1C1C1C1C1C1C1C1C1C1C1C1C1C1C1CEDB3737070707070707070707070707070B4CFCEC1C1C1C1C1C1C1C1C1C1C1C1C1C1D13E3B070707070707070707070707070747FBEC1C1C1C1C1C1C1C1C1C1C1C1C1C1C1CEDB3737070707070707070707070707070B4CFCEC1C1C1C1C1C1C1C1C1C1C1C1C1C1D13E3B070707070707070707070707070747FBEC1C1C1C1C1C1C1C1C1C1C1C1C1C1C1CEDB3737070707070707070707070707070B4CFCEC1D1C291BF6F8B838383E31D8AA37DF69F39168B45994EA765329994F97CFE237B5EE7BD1CCB1C0E0E0E0E0E8EAB63369B7DE45DAD5665BBDD96FD7E5F0E87C347E575DECBB1CCC95C0E0E0E0E0E8ED1685496CB65D9ED76E57C3E974723C7322773B3A6756E0E0E0E0E8ED72AE7A2A1953CE3F1B89C4EA787F9EF47E6664DD67E45060E0E0E0E8EBA8EFB672D9FAD5C0FE59C763C1E7FDB701D5993B5E931340707070707475D479EC90FA9DC53CB75D1AB236BD363680E0E0E0E0E8EBA8E5FED197E5679A6BF5EAFCBE57279D991B5E9915E43B270707070707C1F47F6856D369B970DD7911EE9C5C1C1C1C1D1BF23F7BE72FD93FD6143477AA4577A7270707070F4EFC8BFD9633C74A4C76D4F0E0E0E0E0E0E0E0E0E0E0E8E7B472FD7511C1C1C1C1C75AB87E7381C1C1C1C1CF5AB977D641C1C1C1C1C9FAF5E3EC7C2C1C1C1C151D7D1CBE7E83938383838EA3A7AF91E2F0E0E0E0E8EBA8E5EBE479883838383E37B3A722EEAE1774C38DA67E7E0E0F8F31CB91FD6C3EF2872BC4F71B4CFCEC151CB9167F2D7ECF7CF5A6EF77C7170707070703C723CDB33CCC1C1C1C1C1C1C1C1C1C1C1C1C1F14EC5D13E3B070707070707070707070707070747FBEC1C1C1C1C1C1C1C1C1C1C1C1C1C1C1CEDB3737070707070707070707070707070B4CFCEC1C1C1C1C1C1C1C1C1C1C1C1C1C1D13E3B070707070707070707070707070747FBEC1C1C1C1C1C1C1C1C1C1C1C1C1C1C1CEDB3737070707070707070707070707070B4CFCEC1C1C1C1C1C1C1C1C1C1C1C1C1C1D13E3B070707070707070707070707070747FBEC1C1C1C1C1C1C1C1C1C1C1C1C1C1C1CEDB37370B470E4EFDBE2E0E0E07887E2689FFD678EC56251A6D369994C26653E9FFFC89ED7792FC732878383838383E3EA98CD661F7957AB55D96EB765BFDF97C3E1F051799DF7722C733297838383838363341A95E5725976BB5D399FCFE5D1C8B1CCC9DCAC699D9B83838383E3B5CAB9686825CF783C2EA7D3E961FEFB91B95993B55F918183838383A3AEE3FE59CB672BD74339A71D8FC7DF365C47D6646D7A0CCDC1C1C1C1C151D79167F2432AF7D4725DF4EAC8DAF4189A8383838383A3AEE3577B869F559EE9AFD7EB72B95C5E76646D7AA4D7902C1C1C1C1C1CDFC7917D619BCDE665C375A4477A7170707070F4EFC8BDAF5CFF647FD8D0911EE9959E1C1C1C1C1CFD3BF26FF6180F1DE971DB938383838383838383838383E3DED1CB75140707070747DDEAE1390E0707070747FDEA651F1907070707C7E7AB97CFB17070707070D475F4F2397A0E0E0E0E8EBA8E5EBEC78B83838383A3AEA397EF11E6E0E0E0E0F89E8E9C8B7AF81D138EF6D9393838FE3C47EE87F5F03B8A1CEF531CEDB37370D472E499FC35FBFDB396DB3D5F1C1C1C1C1C1C8F1CCFF60C7370707070707070707070707070BC5371B4CFCEC1C1C1C1C1C1C1C1C1C1C1C1C1C1D13E3B070707070707070707070707070747FBEC1C1C1C1C1C1C1C1C1C1C1C1C1C1C1CEDB3737070707070707070707070707070B4CFCEC1C1C1C1C1C1C1C1C1C1C1C1C1C1D13E3B070707070707070707070707070747FBEC1C1C1C1C1C1C1C1C1C1C1C1C1C1C1CEDB3737070707070707070707070707070B4CFCEC1C1C1C1C1C1C1C1C1C1C1C1C1C1D13E3B070707070707070707070707070747FBEC1C1C2D1CF9FBB638383838DEA138DA67FF9963B15894E9745A26934999CFE73FB2E775DECBB1CCE1E0E0E0E0E0B83A66B3D947DED56A55B6DB6DD9EFF7E570387C545EE7BD1CCB9CCCE5E0E0E0E0E0188D4665B95C96DD6E57CEE7737934722C7332376B5AE7E6E0E0E0E078AD722E1A5AC9331E8FCBE9747A98FF7E646ED664ED5764E0E0E0E0E0A8EBB87FD6F2D9CAF550CE69C7E3F1B70DD79135599B1E43737070707070D475E499FC90CA3DB55C17BD3AB2363D86E6E0E0E0E0E0A8EBF8D59EE1679567FAEBF5BA5C2E97971D599B1EE935240B07070707C7F771645FD866B379D9701DE9915E1C1C1C1C1CFD3B72EF2BD73FD91F3674A4477AA5270707070747FF8EFC9B3DC643477ADCF6E4E0E0E0E0E0E0E0E0E0E0E0B877F4721DC5C1C1C1C151B77A788EC3C1C1C1C151BF7AD947C6C1C1C1C1F1F9EAE5732C1C1C1C1C1C751DBD7C8E9E83838383A3AEA397EFF1E2E0E0E0E0A8EBE8E57B843938383838BEA723E7A21E7EC784A37D760E0E8E3FCF91FB613DFC8E22C7FB1447FBEC1C1CB51C79267FCD7EFFACE576CF170707070707C723C7B33DC31C1C1C1C1C1C1C1C1C1C1C1C1C1CEF541CEDB3737070707070707070707070707070B4CFCEC1C1C1C1C1C1C1C1C1C1C1C1C1C1D13E3B070707070707070707070707070747FBEC1C1C1C1C1C1C1C1C1C1C1C1C1C1C1CEDB373707070707070707CA5E37F2784A68E

Read temp1$



Dim m As _MEM, m1 As _MEM

m = _MemImage(0) 'a memblock pointing to our screen

m1 = _MemNew(Len(temp1$) / 2) 'a memblock to hold the data

HexToMem temp1$, m1 'unhex it back to a memblock

temp$ = Space$(m1.SIZE)

_MemGet m1, m1.OFFSET, temp$ 'get the unhexed data into a string to hold the unhexed, but still compressed data

_MemPut m, m.OFFSET, _Inflate$(temp$) 'put that uncompressed image onto the screen.

Sleep



Sub HexToMem (hx$, m As _MEM)

    Dim i As _Integer64

    Dim h As _Unsigned _Byte

    For i = 1 To Len(hx$) Step 2

        h = Val("&H" + Mid$(hx$, i, 2))

        _MemPut m, m.OFFSET + i \ 2, h

    Next

End Sub

[Jack]

I suspect that this is a trick question, but I count 64 white dots

[SMcNeill]

I suspect that this is a trick question, but I count 64 white dots

Aye.  It's an optical illusion.  If you're aligned properly with your screen, the dots will blink and disappear on you.  With my laptop, I don't have that issue as I'm standing over the screen looking down, and they don't really flicker or anything from that angle.  Loses all the nice effect in a case like that! 

[Kernelpanic]

Counting the dots is simple, but where is the flickering? Nothing flickers for me, only when I move my head back and forth, it looks as if the dots turn black for a fraction of a second.

Where is the Kick(great, exciting)? 

[bplus]

You are still drawing 64 white disc dots at intersections of grid. The question is how many blink Black when you move your eyes around for the illusion.

[Pete]

I suspect that this is a trick question, but I count 64 white dots

Never mind the dots. When did Jack's avatar get glasses?

Pete

[JRace]

What dots?
(cleans glasses)
Oh, sorry.  I ran out of fingers when I hit 10.  Guess I'm due for an upgrade.

[johnno56]

Dots? There are no dots. I see 64 white discs; 8 horizontal and 8 vertical pale white bands. If by dots, you are referring to pixels, I'm not going to count that many... Moo Ha Ha Ha....