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

Duplicate Annihilator 5.7.5 - Find and d...
Duplicate Annihilator takes on the time-consuming task of comparing the images in your iPhoto library using effective algorithms to make sure that no duplicate escapes. Duplicate Annihilator... Read more
BusyContacts 1.0.2 - Fast, efficient con...
BusyContacts is a contact manager for OS X that makes creating, finding, and managing contacts faster and more efficient. It brings to contact management the same power, flexibility, and sharing... Read more
Capture One Pro 8.2.0.82 - RAW workflow...
Capture One Pro 8 is a professional RAW converter offering you ultimate image quality with accurate colors and incredible detail from more than 300 high-end cameras -- straight out of the box. It... Read more
Backblaze 4.0.0.872 - Online backup serv...
Backblaze is an online backup service designed from the ground-up for the Mac.With unlimited storage available for $5 per month, as well as a free 15-day trial, peace of mind is within reach with... Read more
Little Snitch 3.5.2 - Alerts you about o...
Little Snitch gives you control over your private outgoing data. Track background activity As soon as your computer connects to the Internet, applications often have permission to send any... Read more
Monolingual 1.6.4 - Remove unwanted OS X...
Monolingual is a program for removing unnecesary language resources from OS X, in order to reclaim several hundred megabytes of disk space. If you use your computer in only one (human) language, you... Read more
CleanApp 5.0 - Application deinstaller a...
CleanApp is an application deinstaller and archiver.... Your hard drive gets fuller day by day, but do you know why? CleanApp 5 provides you with insights how to reclaim disk space. There are... Read more
Fantastical 2.0 - Create calendar events...
Fantastical is the Mac calendar you'll actually enjoy using. Creating an event with Fantastical is quick, easy, and fun: Open Fantastical with a single click or keystroke Type in your event details... Read more
Cocktail 8.2 - General maintenance and o...
Cocktail is a general purpose utility for OS X 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
Direct Mail 4.0.4 - Create and send grea...
Direct Mail is an easy-to-use, fully-featured email marketing app purpose-built for OS X. It lets you create and send great looking email campaigns. Start your newsletter by selecting from a gallery... Read more

Fast & Furious: Legacy's Creati...
| Read more »
N-Fusion and 505's Ember is Totally...
| Read more »
These are All the Apple Watch Apps and G...
The Apple Watch is less than a month from hitting store shelves, and once you get your hands on it you're probably going to want some apps and games to install. Fear not! We've compiled a list of all the Apple Watch apps and games we've been able to... | Read more »
Appy to Have Known You - Lee Hamlet Look...
Being at 148Apps these past 2 years has been an awesome experience that has taught me a great deal, and working with such a great team has been a privilege. Thank you to Rob Rich, and to both Rob LeFebvre and Jeff Scott before him, for helping me... | Read more »
Hands-On With Allstar Heroes - A Promisi...
Let’s get this out of the way quickly. Allstar Heroes looks a lot like a certain other recent action RPG release, but it turns out that while it’s not yet available here, Allstar Heroes has been around for much longer than that other title. Now that... | Read more »
Macho Man and Steve Austin Join the Rank...
WWE Immortals, by Warner Bros. Interactive Entertainment and WWE, has gotten a superstar update. You'll now have access to Macho Man Randy Savage and Steve Austin. Both characters have two different versions: Macho Man Randy Savage Renegade or Macho... | Read more »
Fearless Fantasy is Fantastic for the iF...
I actually had my first look at Fearless Fantasy last year at E3, but it was on a PC so there wasn't much for me to talk about. But now that I've been able to play with a pre-release version of the iOS build, there's quite a bit for me to talk... | Read more »
MLB Manager 2015 (Games)
MLB Manager 2015 5.0.14 Device: iOS Universal Category: Games Price: $4.99, Version: 5.0.14 (iTunes) Description: Guide your favorite MLB franchise to glory! MLB Manager 2015, officially licensed by MLB.com and based on the award-... | Read more »
Breath of Light (Games)
Breath of Light 1.0.1421 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0.1421 (iTunes) Description: Hold a quiet moment. Breath of Light is a meditative and beautiful puzzle game with a hypnotic soundtrack by... | Read more »
WWE WrestleMania Tags into the App Store
Are You ready to rumble? The official WWE WrestleMania app, by World Wrestling Entertainment, is now available. Now you can get all your WrestleMania info in one place before anyone else. The app offers details on superstar signings, interactive... | Read more »

Price Scanner via MacPrices.net

13-inch 2.5GHz MacBook Pro (refurbished) avai...
The Apple Store has Apple Certified Refurbished 13″ 2.5GHz MacBook Pros available for $829, or $270 off the cost of new models. Apple’s one-year warranty is standard, and shipping is free: - 13″ 2.... Read more
Save up to $80 on iPad Air 2s, NY tax only, f...
 B&H Photo has iPad Air 2s on sale for $80 off MSRP including free shipping plus NY sales tax only: - 16GB iPad Air 2 WiFi: $469.99 $30 off - 64GB iPad Air 2 WiFi: $549.99 $50 off - 128GB iPad... Read more
iMacs on sale for up to $205 off MSRP
B&H Photo has 21″ and 27″ iMacs on sale for up to $205 off MSRP including free shipping plus NY sales tax only: - 21″ 1.4GHz iMac: $1019 $80 off - 21″ 2.7GHz iMac: $1189 $110 off - 21″ 2.9GHz... Read more
Färbe Technik Offers iPhone Battery Charge LI...
Färbe Technik, which manufactures and markets of mobile accessories for Apple, Blackberry and Samsung mobile devices, is offering tips on how to keep your iPhone charged while in the field: •... Read more
Electronic Recyclers International CEO Urges...
Citing a recent story on CNBC about concerns some security professionals have about the forthcoming Apple Watch, John Shegerian, Chairman and CEO of Electronic Recyclers International (ERI), the... Read more
Save up to $380 with Apple refurbished iMacs
The Apple Store has Apple Certified Refurbished iMacs available for up to $380 off the cost of new models. Apple’s one-year warranty is standard, and shipping is free: - 27″ 3.5GHz 5K iMac – $2119 $... Read more
Mac minis on sale for up to $75 off, starting...
MacMall has Mac minis on sale for up to $75 off MSRP including free shipping. Their prices are the lowest available for these models from any reseller: - 1.4GHz Mac mini: $459.99 $40 off - 2.6GHz Mac... Read more
College Student Deals: Additional $50 off Mac...
Take an additional $50 off all MacBooks and iMacs at Best Buy Online with their College Students Deals Savings, valid through April 11, 2015. Anyone with a valid .EDU email address can take advantage... Read more
Mac Pros on sale for up to $260 off MSRP
B&H Photo has Mac Pros on sale for up to $260 off MSRP. Shipping is free, and B&H charges sales tax in NY only: - 3.7GHz 4-core Mac Pro: $2799, $200 off MSRP - 3.5GHz 6-core Mac Pro: $3719.99... Read more
13-inch 2.5GHz MacBook Pro on sale for $100 o...
B&H Photo has the 13″ 2.5GHz MacBook Pro on sale for $999 including free shipping plus NY sales tax only. Their price is $100 off MSRP. Read more

Jobs Board

DevOps Software Engineer - *Apple* Pay, iOS...
**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
*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
Sr. Technical Services Consultant, *Apple*...
**Job Summary** Apple Professional Services (APS) has an opening for a senior technical position that contributes to Apple 's efforts for strategic and transactional Read more
Lead *Apple* Solutions Consultant - Retail...
**Job Summary** Job Summary The Lead ASC is an Apple employee who serves as the Apple business manager and influencer in a hyper-business critical Reseller's store Read more
*Apple* Pay - Site Reliability Engineer - 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.