I have to rotate a bitmap (300x300 pixel) 90. This is not very difficult.
The following code works very well but very slowly:
-----------
For x = 0 To 299
For y = 0 To 299
w& = c.Point(x, y)
b.PSet (299 - y, x), w&
Next y
Next x
-----------
Does somebody know an API call (16 bit!!!) or a faster method.
--
Lochmatter Thomas
RottuSoft - Lernprogramme fr die Schule und zu Hause
Ch. des Collines 18
CH-1950 Sion