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
 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Google Earth 7.3.0.3830 - View and contr...
Google Earth gives you a wealth of imagery and geographic information. Explore destinations like Maui and Paris, or browse content from Wikipedia, National Geographic, and more. Google Earth combines... Read more
Transmit 5.0 - Excellent FTP/SFTP client...
Transmit is an excellent FTP (file transfer protocol), SFTP, S3 (Amazon.com file hosting) and iDisk/WebDAV client that allows you to upload, download, and delete files over the internet. With the... Read more
iMazing 2.3.2 - Complete iOS device mana...
iMazing (was DiskAid) is the ultimate iOS device manager with capabilities far beyond what iTunes offers. With iMazing and your iOS device (iPhone, iPad, or iPod), you can: Copy music to and from... Read more
Cocktail 10.4.1 - General maintenance an...
Cocktail is a general purpose utility for macOS that lets you clean, repair and optimize your Mac. It is a powerful digital toolset that helps hundreds of thousands of Mac users around the world get... Read more
Backup and Sync 3.35.5978.2967 - File ba...
Backup and Sync (was Google Drive) is a place where you can create, share, collaborate, and keep all of your stuff. Whether you're working with a friend on a joint research project, planning a... Read more
Adobe Lightroom 6.12 - Import, develop,...
Adobe Lightroom is available as part of Adobe Creative Cloud for as little as $9.99/month bundled with Photoshop CC as part of the photography package. Lightroom 6 is also available for purchase as a... Read more
Apple iTunes 12.6.2 - Play Apple Music a...
Apple iTunes lets you organize and stream Apple Music, download and watch video and listen to Podcasts. It can automatically download new music, app, and book purchases across all your devices and... Read more
Apple macOS Sierra 10.12.6 - The latest...
With Apple macOS Sierra, Siri makes its debut on Mac, with new features designed just for the desktop. Your Mac works with iCloud and your Apple devices in smart new ways, and intelligent... Read more
VMware Fusion 8.5.8 - Run Windows apps a...
VMware Fusion 8 and Fusion 8 Pro--the latest versions of its virtualization software for running Windows on a Mac without rebooting--include full support for Windows 10, OS X El Capitan, and the... Read more
Apple Safari 10.1.2 - Apple's Web b...
Note: The direct download link is currently unavailable. It is available in the OS X 10.12.6 release, as well as in the Apple Security Updates. Apple Safari is Apple's web browser that comes with OS... Read more

Latest Forum Discussions

See All

The best deals on the App Store this wee...
There are quite a few truly superb games on sale on the App Store this week. If you haven't played some of these, many of which are true classics, now's the time to jump on the bandwagon. Here are the deals you need to know about. [Read more] | Read more »
Realpolitiks Mobile (Games)
Realpolitiks Mobile 1.0 Device: iOS Universal Category: Games Price: $5.99, Version: 1.0 (iTunes) Description: PLEASE NOTE: The game might not work properly on discontinued 1GB of RAM devices (iPhone 5s, iPhone 6, iPhone 6 Plus, iPad... | Read more »
Layton’s Mystery Journey (Games)
Layton’s Mystery Journey 1.0.0 Device: iOS Universal Category: Games Price: $15.99, Version: 1.0.0 (iTunes) Description: THE MUCH-LOVED LAYTON SERIES IS BACK WITH A 10TH ANNIVERSARY INSTALLMENT! Developed by LEVEL-5, LAYTON’S... | Read more »
Full Throttle Remastered (Games)
Full Throttle Remastered 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: Originally released by LucasArts in 1995, Full Throttle is a classic graphic adventure game from industry legend Tim... | Read more »
Stunning shooter Morphite gets a new tra...
Morphite is officially landing on iOS in September. The game looks like the space shooter we've been needing on mobile, and we're going to see if it fits the bill quite shortly. The game's a collaborative effort between Blowfish Studios, We're Five... | Read more »
Layton's Mystery Journey arrives to...
As you might recall, Layton's Mystery Journey is headed to iOS and Android -- tomorrow! To celebrate the impending launch, Level-5's released a new trailer, complete with an adorable hamster. [Read more] | Read more »
Sidewords (Games)
Sidewords 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: Grab a cup of coffee and relax with Sidewords. Sidewords is part logic puzzle, part word game, all original. No timers. No... | Read more »
Noodlecake Games' 'Leap On!...
Noodlecake Games is always good for some light-hearted arcade fun, and its latest project, Leap On! could carry on that tradition. It's a bit like high stakes tetherball in a way. Your job is to guide a cute little blob around a series of floating... | Read more »
RuneScape goes mobile later this year
Yes, RuneScape still exists. In fact, it's coming to iOS and Android in just a few short months. Jagex, creators of the hit fantasy MMORPG of yesteryear, is releasing RuneScape Mobile and Old School RuneScape for mobile devices, complete with... | Read more »
Crash of Cars wants you to capture the c...
Crash of Cars is going full on medieval in its latest update, introducing castles and all manner of new cars and skins fresh from the Dark Ages. The update introduces a new castle-themed map (complete with catapults) and a gladiator-style battle... | Read more »

Price Scanner via MacPrices.net

DEVONthink To Go 2.1.7 For iOS Brings Usabili...
DEVONtechnologies has updated DEVONthink To Go, the iOS companion to DEVONthink for Mac, with enhancements and bug fixes. Version 2.1.7 adds an option to clear the Global Inbox and makes the grid... Read more
15-inch 2.2GHz Retina MacBook Pro, Apple refu...
Apple has Certified Refurbished 2015 15″ 2.2GHz Retina MacBook Pros available for $1699. That’s $300 off MSRP, and it’s the lowest price available for a 15″ MacBook Pro. An Apple one-year warranty is... Read more
13-inch 2.3GHz Silver MacBook Pro on sale for...
B&H Photo has the new 2017 13″ 2.3GHz/256GB Silver MacBook Pro (MPXU2LL/A) on sale for $1399 including free shipping plus NY & NJ sales tax only. Their price is $100 off MSRP. Read more
Apple Tackles Distracted Driving With iOS 11...
One of the most important new features coming in iOS 11 is Do Not Disturb while driving, intended to help drivers stay more focused on the road. With Do Not Disturb while driving, your iPhone can... Read more
iMazing Mini for Mac: Free Automatic and Priv...
Geneva, Switzerland-based indie developer DigiDNA has released iMazing Mini, their free macOS utility designed to automatically back up iOS devices over any local Wi-Fi network. The app offers users... Read more
Clearance 2016 13-inch MacBook Airs, Apple re...
Apple dropped prices recently on Certified Refurbished 2016 13″ MacBook Airs, with models now available starting at $809. An Apple one-year warranty is included with each MacBook, and shipping is... Read more
9.7-inch 2017 iPads available for $299, save...
B&H Photo has 2017 9.7″ 32GB WiFi iPads on sale for $30 off MSRP for a limited time. Shipping is free, and pay sales tax in NY & NJ only: – 32GB iPad WiFi: $299, $30 off Read more
Welcome to the new MacPrices.net!
Welcome to the newly redesigned MacPrices.net! MacPrices has been comprehensively redesigned from the ground up over the past couple of weeks. The new design is cleaner, with less clutter, minimal... Read more
Clearance iMacs available for up to $370 off...
B&H Photo has clearance 21″ and 27″ Apple iMacs available for up to $370 off original MSRP, each including free shipping plus NY & NJ sales tax only: – 27″ 3.3GHz iMac 5K: $1929 $370 off... Read more
Sale! 15-inch 2.8GHz MacBook Pros for $100 of...
B&H Photo has the new 2017 15″ 2.8GHz Touch Bar MacBook Pros on sale for $100 off MSRP. Shipping is free, and B&H charges sales tax in NY & NJ only: – 15″ 2.8GHz MacBook Pro Space Gray: $... Read more

Jobs Board

Search, Recommendation & Personalization...
Job Summary Apple is seeking a product manager for Search, Recommendation and Personalization for our media products. This includes Apple Music, Podcasts, iBooks Read more
Frameworks Engineering Manager, *Apple* Wat...
Frameworks Engineering Manager, Apple Watch Job Number: 41632321 Santa Clara Valley, California, United States Posted: Jun. 15, 2017 Weekly Hours: 40.00 Job Summary Read more
*Apple* Customer Experience (ACE) Leader - A...
…management to deliver on business objectivesTraining partner store staff on Apple products, services, and merchandising guidelinesCoaching partner store staff on Read more
Frameworks Engineering Manager, *Apple* Wat...
Frameworks Engineering Manager, Apple Watch Job Number: 41632321 Santa Clara Valley, California, United States Posted: Jun. 15, 2017 Weekly Hours: 40.00 Job Summary Read more
*Apple* Solutions Consultant - Apple Inc. (U...
…about helping others on a team while also delighting customers? As an Apple Solutions Consultant (ASC), you will discover customers needs and help connect them Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.