TweetFollow Us on Twitter

Cursor Editing
Volume Number:1
Issue Number:9
Column Tag:Basic School

"A Fat Bits Approach to Cursor Editing"

By Dave Kelly, Hybrids Engineer, MacTutor Editorial Board

Let's take a look at one of the Macintosh ROM routines which can be called from MSBASIC (version 2.0). By using the method described here, you can customize your own cursors for use within your programs.

Pages 298 and 299 of the MS BASIC manual explain the Mouse Cursor Handling Routines. The program 'Cursor Editor' in this article demonstrates how to build your own cursor using the CALL SETCURSOR (VARPTR( cursor %(0))) function. It would be helpful to enter the program and run it as you read the explanation here.

Fig. 1 Cursor Edit Program Menu

When you run the program, the main BASIC menus are replaced by a new File and Cursor menu. The Cursor menu allows you to edit the current custom cursor. The Arrow is the default cursor and cannot be edited unless you duplicate it as a custom cursor of your own. Choosing 'Hand' sets the cursor to a hand. An examination of the 'Hand' routine at the end of the program may help you to understand how the cursor%(0) array is setup.

By selecting 'Arrow' in the cursor menu you may clear the cursor to be edited to a blank. The editor is set to a blank (i. e. no cursor) when the program starts. Select 'Edit Cursor' from the menu. The bit parameters for the screen grid are set up and a blank grid is printed on the screen.

Fig. 2

Now just point and click the mouse to select what the cursor will look like. The program will appear to run a bit slow here while the correct bit is being selected. This takes longer in Basic than in most other languages, so be patient. When the cursor is finished click the OK button.

Now a new grid comes up to create a mask for our new cursor. The cursor mask selects which bits behind the cursor will be allowed to be seen through the cursor (the entire 16X16 grid). The program allows you to exper-iment with different masks until you get it just right. To test it out you can move the cursor over a black area of the screen and then over a white area and see what part of the background is allowed to be seen through the cursor. It is purely subjective so you can keep on trying till you are happy with it. For our example, I have filled in the inside of the cursor to make the mask. Any pixels of the screen which are behind the mask will not be allowed to be displayed. Click the OK button to continue.

Fig. 3 Creating the Mask

Next we set the hot spot of the cursor. The hot spot is the active area of the cursor that determines where it is pointing to. It is the intersection of the corners of the pixels. For our example, we want the hot spot to be at the tip of the pencil so we click there. A small square appears to mark the spot. You may want to try other locations for the hot spot if you don't quite understand the significance of the hot spot. Click OK to continue.

Fig. 4 Setting the Hot Spot

Now the new cursor will appear. WARNING: If the cursor which was defined had no pixels selected (i. e. a blank cursor), then it will be very difficult to select anything from this point on because you will not be able to see the cursor. If this happens you may have to abort (use command-period to halt a basic program). Basic will reinitialize the arrow cursor when you exit the program.

Your new cursor can now be stored in a file on the disk by using the file menu and loaded at a later time. The load routine may be copied for use in your own program to read in a custom cursor for your own programs. After the cursor data is stored to disk, the program will change the file type to "CURS" to enable the load routine to recognize only those files which contain cursor data. Any filename type may be changed so that the routine which reads the data may only select files of the same type.

Hopefully this program provides an easy way to customize your own cursors. A good way to create a library of cursors is to do a screen dump to disk of the MacPaint screen. Then load the dumped sceen and look at the cursors used by MacPaint using Fat Bits and dump each of them to the printer from the Fat Bit screen. Then the cursor can be copied bit by bit into the cursor editor program and saved. The program is available on disk if you don't want to have to type. Have fun!!!

' Cursor Editor
' By Dave Kelly
' ©MACTUTOR 1985

DEFINT i,j,k
DIM Cursor%(34), Bstatus%(512),    Bound0%(256), Bound1%(256), 
 Bound2%(256), Bound3%(256)
editor%=0:NewYork=2:Bold=1
Plain=0:Geneva=3
WINDOW 1,"Cursor Editor", (2,40)-(510,340),1
' Erase BASIC menus
FOR i=3 TO 5:MENU i,0,0,"":NEXT
MENU 1,0,1,"File"
MENU 1,1,1,"Load Cursor"
MENU 1,2,1,"Save Cursor"
MENU 1,3,1,"Quit"
MENU 2,0,1,"Cursor"
MENU 2,1,1,"Edit Cursor"
MENU 2,2,1,"Arrow (Clear Cursor)"
MENU 2,3,1,"Hand"

ON MENU GOSUB Checkmenu: MENU ON
IF editor%=0 THEN MENU STOP:GOSUB  InitEditor:MENU ON
loop:GOTO loop

Checkmenu:
    menunumber=MENU(0)
    menuitem=MENU(1):MENU
    IF menunumber=1 THEN filemenu
    ON menuitem GOSUB     Editor,Arrow,Hand
    RETURN

filemenu:
    ON menuitem GOSUB load.cursor, save.cursor,quit
    RETURN
    

InitEditor:
x=20:y=20:offsetx=0:offsety=0:editor%=1
TEXTFONT(NewYork)
TEXTSIZE(14):TEXTFACE(Bold)
LOCATE 5,1
PRINT"Please wait.... Initializing Editor."
MENU 1,0,0:MENU 2,0,0
FOR i=0 TO 33: cursor%(i)=0:NEXT i
PICTURE ON
FOR j= 0 TO 15
    FOR k=15 TO 0 STEP -1
        rectangle%(0)=y+offsety
        bound0%((j*16)+k)=rectangle%(0)
        rectangle%(1)=x+offsetx
        bound1%((j*16)+k)=rectangle%(1)
        rectangle%(2)=y+offsety+12
        bound2%((j*16)+k)=rectangle%(2)
        rectangle%(3)=x+offsetx+12
        bound3%((j*16)+k)=rectangle%(3)
        bstatus%((j*16)+k)=0
        offsetx=11+offsetx
FRAMERECT(VARPTR(rectangle%(0)))
    NEXT k
    offsety=11+offsety:offsetx=0
NEXT j
PICTURE OFF
grid$=PICTURE$
MENU 1,0,1:MENU 2,0,1:CLS
RETURN

Editor:
    MENU 1,0,0:MENU 2,0,0
   TEXTFONT(NewYork)
   TEXTSIZE(14):TEXTFACE(Bold)
    LOCATE 5,1:PRINT"Please wait for Setup of Editor."
    GOSUB Bitstatus
    
' set up new cursor
    GOSUB print.pic
    LOCATE 2,26:PRINT"Define New   Cursor"
    GOSUB Print.message
    GOSUB Draw.Datapixels
    GOSUB Define
    
' set up new mask
    GOSUB print.pic
    LOCATE 2,26:PRINT"Define New Mask"
    GOSUB Print.message
    GOSUB Draw.Maskpixels
    GOSUB Define
   
 ' set hot spot
    GOSUB print.pic
    LOCATE 2,26:PRINT"Set Hot Spot"
    GOSUB Print.message
    GOSUB define.hotspot
    CLS:BUTTON CLOSE 1
   TEXTFONT(NewYork):TEXTSIZE(14)
    TEXTFACE(Bold)
    LOCATE 5,1:PRINT"Please wait."
    GOSUB Cursor.done
    SETCURSOR (VARPTR(cursor%(0)))
    CLS:MENU 1,0,1:MENU 2,0,1
    RETURN

Print.pic:
    CLS:PICTURE,grid$
    TEXTFONT(NewYork)
    TEXTSIZE(14)
    TEXTFACE(Bold)
    RETURN
    
Print.message:
    TEXTFACE(Plain)
    TEXTSIZE(12)
    LOCATE 4,35:PRINT"Click              to continue"  'Note: Space must 
be ^^^^^ here
    BUTTON 1,1,"OK", (310,40)-(350,80),1
    RETURN

define.hotspot:
    GOSUB Draw.Datapixels
    CALL PENSIZE(4,4):CALL PENMODE(10)
    CALL MOVETO((cursor%(33)*11)+x,  (cursor%(32)*11)+y)
    CALL LINE(0,0)
    WHILE DIALOG(0)<>1
    IF MOUSE(0)>0 THEN GOSUB hotspot
    WEND
    CALL PENNORMAL
    BEEP
    RETURN

hotspot:
    xpos=MOUSE(1):ypos=MOUSE(2)
    IF xpos<x THEN xpos=x
    IF ypos<y THEN ypos=y
    IF xpos>x+16*11 THEN xpos=x+16*11
    IF ypos>y+16*11 THEN ypos=y+16*11

    CALL LINE(0,0)
    cursor%(33)=INT((xpos-x)/11)
    cursor%(32)=INT((ypos-y)/11)
    CALL MOVETO((cursor%(33)*11)+x,  (cursor%(32)*11)+y)
    CALL LINE(0,0)
    RETURN

Draw.Maskpixels:
    maskpixel=1
    FOR i= 256 TO 511
        IF bstatus%(i)=1 THEN rectangle%(0)=bound0%(i-256):    
 rectangle%(1)=bound1%(i-256):     rectangle%(2)=bound2%(i-256): 
 rectangle%(3)=bound3%(i-256):     PAINTRECT(VARPTR            
 (rectangle%(0))): FRAMERECT(VARPTR  (rectangle%(0)))
    NEXT i
    RETURN

Draw.Datapixels:
    maskpixel=0
    FOR i= 0 TO 255
        IF bstatus%(i)=1 THEN rectangle%(0)=bound0%(i):        rectangle%(1)=bound1%(i): 
 rectangle%(2)=bound2%(i):  rectangle%(3)=bound3%(i):          PAINTRECT(VARPTR 
 (rectangle%(0))): FRAMERECT(VARPTR  (rectangle%(0)))
    NEXT i
    RETURN
    
mousepress:
    GOSUB getpixel   'see which pixel is selected
    IF pixel%=256 THEN  RETURN
    IF Bstatus%(Pixel%+maskpixel*256)=0            THEN Bstatus%(Pixel%+ 
 maskpixel*256)=1 ELSE    Bstatus%(Pixel%+         maskpixel*256)=0
    rectangle%(0)=bound0%(Pixel%)
    rectangle%(1)=bound1%(Pixel%)
    rectangle%(2)=bound2%(Pixel%)
    rectangle%(3)=bound3%(Pixel%)
    INVERTRECT(VARPTR(rectangle%(0)))
    FRAMERECT(VARPTR(rectangle%(0)))
    RETURN
    


getpixel:
    Pixel%=256
    FOR i = 0 TO 255
        IF bound0%(i)<MOUSE(2) AND bound2%(i)>MOUSE(2) AND     
 bound1%(i)<MOUSE(1) AND  bound3%(i)>MOUSE(1) THEN             Pixel%=i:i=256
    NEXT i
    RETURN
    
Cursor.done:
    FOR j=0 TO 31
        cursor%(j)=0
        FOR k=14 TO 0 STEP -1
 cursor%(j)=(Bstatus%((j*16)+k)*(2^k))+cursor%(j)
        NEXT k
        IF Bstatus%((j*16)+15)=1 THEN  cursor%(j)=cursor%(j)+&H8000
    NEXT j
    RETURN
    
Define:
    WHILE DIALOG(0)<>1
    IF MOUSE(0)>0 THEN GOSUB  mousepress
    WEND
    BEEP
    RETURN
Bitstatus:
    FOR j=0 TO 31
        t%=cursor%(j)
        FOR k=15  TO 0 STEP -1
            IF t%<0 THEN  Bstatus%((j*16)+k)=1:t%=             t%-&H8000:GOTO 
endloop
            IF t%<2^k THEN  Bstatus%((j*16)+k)=0
            IF t%>=2^k THEN Bstatus%((j*16)+k)=1:t%=           t%-2^k
        endloop:NEXT k
    NEXT j
RETURN
load.cursor:
    filename$=FILES$(1,"CURS")
    IF filename$="" THEN exitload
    OPEN filename$ FOR INPUT AS #1
    FOR i= 0 TO 33
        INPUT #1,cursor%(i)
    NEXT i
    CLOSE #1
exitload:CALL SETCURSOR(VARPTR(cursor%(0)))
    RETURN
save.cursor:
    filename$=FILES$(0)
    IF filename$="" THEN exitsave
    OPEN filename$ FOR OUTPUT AS #1
    FOR i=0 TO 33
        PRINT #1,cursor%(i)
    NEXT i
    CLOSE #1
    NAME filename$ AS filename$,"CURS"
    exitsave:CALL SETCURSOR (VARPTR  (cursor%(0)))
    RETURN
quit:
    BUTTON CLOSE 1:MENU RESET
TEXTFONT(Geneva):TEXTFACE(Plain)
TEXTSIZE(12)
END
Arrow:
    INITCURSOR
    FOR i=0 TO 33: cursor%(i)=0:NEXT i
    RETURN
Hand:
'   Cursor Data
    Cursor%(0)=&H0:Cursor%(1)=&H0
    Cursor%(2)=&H700:Cursor%(3)=&H1900
    Cursor%(4)=&H2200:Cursor%(5)=&H4700
    Cursor%(6)=&HC7FE:Cursor%(7)=&H8C01
    Cursor%(8)=&H97FE:Cursor%(9)=&HE410
Cursor%(10)=&H87E0:Cursor%(11)=&H8420
Cursor%(12)=&HC7C0:Cursor%(13)=&H7F80
    Cursor%(14)=&H0:Cursor%(15)=&H0
'   Cursor Mask
    Cursor%(16)=&H0:Cursor%(17)=&H0
  Cursor%(18)=&H700:Cursor%(19)=&H1F00
Cursor%(20)=&H3E00:Cursor%(21)=&H7F00
Cursor%(22)=&HFFFE:Cursor%(23)=&HFFFF
Cursor%(24)=&HFFFE:Cursor%(25)=&HFFF0
Cursor%(26)=&HFFE0:Cursor%(27)=&HFFE0
Cursor%(28)=&HFFC0:Cursor%(29)=&H7F80
    Cursor%(30)=&H0: Cursor%(31)=&H0
    Cursor%(32)=7      'Vertical hot spot
    Cursor%(33)=16    'Horizontal hot spot
    SETCURSOR(VARPTR(cursor%(0)))
    RETURN
 
AAPL
$96.32
Apple Inc.
-1.83
MSFT
$43.17
Microsoft Corpora
-0.41
GOOG
$578.29
Google Inc.
-9.13

MacTech Search:
Community Search:

Software Updates via MacUpdate

OmniPlan 2.3.6 - Robust project manageme...
With OmniPlan, you can create logical, manageable project plans with Gantt charts, schedules, summaries, milestones, and critical paths. Break down the tasks needed to make your project a success,... Read more
Command-C 1.1.1 - Clipboard sharing tool...
Command-C is a revolutionary app which makes easy to share your clipboard between iOS and OS X using your local WiFi network, even if the app is not currently opened. Copy anything (text, pictures,... Read more
Knock 1.1.7 - Unlock your Mac by knockin...
Knock is a faster, safer way to sign in. You keep your iPhone with you all the time. Now you can use it as a password. You never have to open the app -- just knock on your phone twice, even when it's... Read more
Mellel 3.3.6 - Powerful word processor w...
Mellel is the leading word processor for OS X and has been widely considered the industry standard since its inception. Mellel focuses on writers and scholars for technical writing and multilingual... Read more
LibreOffice 4.3.0.4 - Free Open Source o...
LibreOffice is an office suite (word processor, spreadsheet, presentations, drawing tool) compatible with other major office suites. The Document Foundation is coordinating development and... Read more
Freeway Pro 7.0 - Drag-and-drop Web desi...
Freeway Pro lets you build websites with speed and precision... without writing a line of code! With it's user-oriented drag-and-drop interface, Freeway Pro helps you piece together the website of... Read more
Drive Genius 3.2.4 - Powerful system uti...
Drive Genius is an OS X utility designed to provide unsurpassed storage management. Featuring an easy-to-use interface, Drive Genius is packed with powerful tools such as a drive optimizer, a... Read more
Vitamin-R 2.15 - Personal productivity t...
Vitamin-R creates the optimal conditions for your brain to work at its best by structuring your work into short bursts of distraction-free, highly focused activity alternating with opportunities for... Read more
Toast Titanium 12.0 - The ultimate media...
Toast Titanium goes way beyond the very basic burning in the Mac OS and iLife software, and sets the standard for burning CDs, DVDs, and now Blu-ray discs on the Mac. Create superior sounding audio... Read more
OS X Yosemite Wallpaper 1.0 - Desktop im...
OS X Yosemite Wallpaper is the gorgeous new background image for Apple's upcoming OS X 10.10 Yosemite. This wallpaper is available for all screen resolutions with a source file that measures 5,418... Read more

Latest Forum Discussions

See All

Despicable Me: Minion Rush is One Year O...
Despicable Me: Minion Rush is One Year Old, Gets its Biggest Update Yet Posted by Jennifer Allen on July 31st, 2014 [ permalink ] Universal App - Designed for iPhone and iPad | Read more »
Plants vs. Zombies 2 Enters the Second H...
Plants vs. Zombies 2 Enters the Second Half of the Dark Ages Posted by Ellis Spice on July 31st, 2014 [ permalink ] Universal App - Designed for iPhone and iPad | Read more »
Why Does It Spin? (Games)
Why Does It Spin? 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: THERE'S ONLY ONE RULE: DON'T TOUCH THE WALLS! Do you think you're able to follow this simple rule even if you would have to... | Read more »
Ice Wings Plus (Games)
Ice Wings Plus 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: THE GREAT ENDLESS RUNNER OF COMBAT JETS IS BACK !! With more than 680.000 downloads in the App Store, Ice Wings: Skies of Steel... | Read more »
Murl the Squirrel (Games)
Murl the Squirrel 1.0 Device: iOS Universal Category: Games Price: $.99, Version: 1.0 (iTunes) Description: Meet Murl. He is teased by a group of flying squirrels because he can't fly. Determined to show them he's can fly, he meets... | Read more »
Celleste (Games)
Celleste 0.1 Device: iOS Universal Category: Games Price: $2.99, Version: 0.1 (iTunes) Description: Lots of cute action with amazing 3D graphics and a new type of gameplay! Take control over the forces of the universe to help a group... | Read more »
Super Heavy Sword (Games)
Super Heavy Sword 0.0.1 Device: iOS Universal Category: Games Price: $.99, Version: 0.0.1 (iTunes) Description: Get Ready to Get HEAVY! Monster Robot Studios presents SUPER Heavy Sword! The sequel to the smash hit HEAVY sword which... | Read more »
Angels In The Sky (Games)
Angels In The Sky 1.00 Device: iOS Universal Category: Games Price: $6.99, Version: 1.00 (iTunes) Description: - A.I.S will only run smoothly on iPhone 5s. It's NOT compatible with iPad, iPhone 5 or earlier devices.- In order to... | Read more »
80 Days (Games)
80 Days 1.0.2 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.2 (iTunes) Description: 1872, with a steampunk twist. Phileas Fogg has wagered he can circumnavigate the world in just eighty days. Choose your own route... | Read more »
Micromon (Games)
Micromon 1.0 Device: iOS Universal Category: Games Price: $.99, Version: 1.0 (iTunes) Description: 130+ Animated Monsters to Catch & Battle! No waiting, play at your own pace! Embark on an epic monster capture RPG like none... | Read more »

Price Scanner via MacPrices.net

iPad Cannibalization Threat “Overblown”
Seeking Alpha’s Kevin Greenhalgh observes that while many commentators think Apple’s forthcoming 5.5-inch panel iPhone 6 will cannibalize iPad sales, in his estimation, these concerns are being... Read more
Primate Labs Releases July 2014 MacBook Pro P...
Primate Labs’ John Poole has posted Geekbench 3 results for most of the new MacBook Pro models that Apple released on Tuesday. Poole observes that overall performance improvements for the new MacBook... Read more
Apple Re-Releases Bugfixed MacBook Air EFI Fi...
Apple has posted a bugfixed version EFI Firmware Update 2.9 a for MacBook Air (Mid 2011) models. The update addresses an issue where systems may take longer to wake from sleep than expected, and... Read more
Save $50 on the 2.5GHz Mac mini, plus free sh...
B&H Photo has the 2.5GHz Mac mini on sale for $549.99 including free shipping. That’s $50 off MSRP, and B&H will also include a free copy of Parallels Desktop software. NY sales tax only. Read more
Save up to $140 on an iPad Air with Apple ref...
Apple is offering Certified Refurbished iPad Airs for up to $140 off MSRP. Apple’s one-year warranty is included with each model, and shipping is free. Stock tends to come and go with some of these... Read more
$250 price drop on leftover 15-inch Retina Ma...
B&H Photo has dropped prices on 2013 15″ Retina MacBook Pros by $250 off original MSRP. Shipping is free, and B&H charges NY sales tax only: - 15″ 2.3GHz Retina MacBook Pro: $2249, $250 off... Read more
More iPad Upgrade Musings – The ‘Book Mystiqu...
Much discussed recently, what with Apple reporting iPad sales shrinkage over two consecutive quarters, is that it had apparently been widely assumed that tablet users would follow a two-year hardware... Read more
13-inch 2.5GHz MacBook Pro on sale for $999,...
Best Buy has the 13″ 2.5GHz MacBook Pro available for $999.99 on their online store. Choose free shipping or free instant local store pickup (if available). Their price is $100 off MSRP. Price is... Read more
Save up to $300 on an iMac with Apple refurbi...
The Apple Store has Apple Certified Refurbished iMacs available for up to $300 off the cost of new models. Apple’s one-year warranty is standard, and shipping is free. These are the best prices on... Read more
WaterField Unveils 15″ Outback Solo & 13″...
Hard on the heels of Apple’s refreshed MacBook Pro Retina laptops announcement, WaterField Designs has unveiled a 15-inch version of the waxed-canvas and leather Outback Solo and a 13-inch version of... Read more

Jobs Board

Sr. Product Leader, *Apple* Store Apps - Ap...
**Job Summary** Imagine what you could do here. At Apple , great ideas have a way of becoming great products, services, and customer experiences very quickly. Bring Read more
Sr Software Lead Engineer, *Apple* Online S...
Sr Software Lead Engineer, Apple Online Store Publishing Systems Keywords: Company: Apple Job Code: E3PCAK8MgYYkw Location (City or ZIP): Santa Clara Status: Full Read more
Sr Software Lead Engineer, *Apple* Online S...
Sr Software Lead Engineer, Apple Online Store Publishing Systems Keywords: Company: Apple Job Code: E3PCAK8MgYYkw Location (City or ZIP): Santa Clara Status: Full Read more
*Apple* Solutions Consultant (ASC) - Apple (...
**Job Summary** The ASC is an Apple employee who serves as an Apple brand ambassador and influencer in a Reseller's store. The ASC's role is to grow Apple Read more
Sr. Product Leader, *Apple* Store Apps - Ap...
**Job Summary** Imagine what you could do here. At Apple , great ideas have a way of becoming great products, services, and customer experiences very quickly. Bring Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.