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

Macs Fan Control 1.4.4.0 - Monitor and c...
Macs Fan Control allows you to monitor and control almost any aspect of your computer's fans, with support for controlling fan speed, temperature sensors pane, menu-bar icon, and autostart with... Read more
calibre 2.69.0 - Complete e-book library...
Calibre is a complete e-book library manager. Organize your collection, convert your books to multiple formats, and sync with all of your devices. Let Calibre be your multi-tasking digital librarian... Read more
Evernote 6.9.1 - Create searchable notes...
Evernote allows you to easily capture information in any environment using whatever device or platform you find most convenient, and makes this information accessible and searchable at anytime, from... Read more
jAlbum Pro 13.5 - Organize your digital...
jAlbum Pro has all the features you love in jAlbum, but comes with a commercial license. You can create gorgeous custom photo galleries for the Web without writing a line of code! Beginner-friendly... Read more
jAlbum 13.5 - Create custom photo galler...
With jAlbum, you can create gorgeous custom photo galleries for the Web without writing a line of code! Beginner-friendly, with pro results - Simply drag and drop photos into groups, choose a design... Read more
Google Chrome 53.0.2785.143 - Modern and...
Google Chrome is a Web browser by Google, created to be a modern platform for Web pages and applications. It utilizes very fast loading of Web pages and has a V8 engine, which is a custom built... Read more
Chromium 53.0.2785.143 - Fast and stable...
Chromium is an open-source browser project that aims to build a safer, faster, and more stable way for all Internet users to experience the web. Version 53.0.2785.143: [Security Fix] High CVE-2016-... Read more
QuickBooks 2015 16.1.7.1524 R8 - Financi...
Save 20% on QuickBooks Pro for Mac today through this special discount link QuickBooks 2015 helps you manage your business easily and efficiently. Organize your finances all in one place, track... Read more
Sierra Cache Cleaner 11.0.1 - Clear cach...
Sierra Cache Cleaner is an award-winning general purpose tool for macOS X. SCC makes system maintenance simple with an easy point-and-click interface to many macOS X functions. Novice and expert... Read more
Default Folder X 5.0.7 - Enhances Open a...
Default Folder X attaches a toolbar to the right side of the Open and Save dialogs in any OS X-native application. The toolbar gives you fast access to various folders and commands. You just click on... Read more

3 tips to aid your journey in Banner Sag...
Stoic Games brings us another viking epic in the guise of Banner Saga 2 this week. It’s a sweeping tale, richly animated and draped in melancholy and moments of beauty. The game’s been received as a much improved follow up to the first entry in the... | Read more »
Pumped BMX 3: Beginner tips and tricks
There’s a whole lot more to Pumped BMX 3 than meets the eye. Your goal is to perform a wide array of sweet flips and tricks, but that’s easier said than done. It takes well practiced timing and coordination, and the game doesn’t really explain that... | Read more »
Cybird’s latest release - BFB Champions...
Launched in the UK in early September, BFB Champions’ newest update is loaded with great new features, and looks set to outshine the original version by taking it out of soft launch and giving it a new lease of life. | Read more »
3 apps to boost your focus
As someone who works from home, my workspace is a minefield of distraction. Cats, tasty snacks, the wind blowing past my window, that cleaning that I suddenly can’t put off any longer. If I let distraction takes its course, I find that soon half... | Read more »
Pumped BMX 3 (Games)
Pumped BMX 3 1.0 Device: iOS Universal Category: Games Price: $3.99, Version: 1.0 (iTunes) Description: The final instalment of the smash hit #1 rated BMX game is here! Following on from the insane success of Pumped BMX 2, Pumped 3... | Read more »
4 games like Burly Men at Sea to inspire...
Burly Men at Sea is out today and it looks a treat. It tells the tale of three Scandinavian fishermen who leave the humdrum of their daily lives to go exploring. It’s a beautiful folksy story that unfurls as you interact with the environment... | Read more »
3 reasons you need to play Kingdom: New...
Developed by a tag team of indie developers - Thomas "Noio" van den Berg and Marco "Licorice" Bancale - Kingdom is a vibrant medieval fantasy adventure that casts players as a king or queen who must expand their empire by exploring the vasts lands... | Read more »
JoyCity have launched a brand new King o...
Great news for all of you Game of Dice fans out there - JoyCity have just released a brand new limited edition pack with a really cool twist. The premise of Game of Dice is fairly straightforward, asking you to roll dice to navigate your way around... | Read more »
Burly Men at Sea (Games)
Burly Men at Sea 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: Burly Men at Sea is a folktale about a trio of large, bearded fishermen who step away from the ordinary to seek adventure. | Read more »
3 tips for catching the gnarliest waves...
Like a wave breaking on the shore, Tidal Rider swept its way onto the App Store charts this week settling firmly in the top 10. It’s a one-touch high score-chaser in which you pull surfing stunts while dodging seagulls and collecting coins. The... | Read more »

Price Scanner via MacPrices.net

CAZE Annouces New Zero 5 Case for Jet Black i...
Hong Kong basd CAZE has announced Zero 5 case for iPhone 7/ 7 Plus, one of the world’s thinnest clear hard cases, measuring just 0.5 millimeters. CAZE has been producing and improving the Zero 5... Read more
Nest Egg Inventory App for iOS Offers Conven...
Campbell, California based Winprogger LLC has announced the release and immediate availability of Nest Egg – Inventory 4.1.22, an important update to their easy-to-use, yet comprehensive inventory... Read more
Factor4, LLC Launches Apple iOS and Android G...
Factor4, LLC, which offers gift and loyalty services to the SMB marketplace, has released free mobile applications that enable merchants to process via all Apple and Android devices. The Apple and... Read more
15-inch Retina MacBook Pros on sale for $200...
B&H Photo has 15″ Retina Apple MacBook Pros on sale for $200 off MSRP. Shipping is free, and B&H charges NY tax only: - 15″ 2.2GHz Retina MacBook Pro: $1799 $200 off MSRP - 15″ 2.5GHz Retina... Read more
Apple refurbished iMacs available for up to $...
Apple has Certified Refurbished 2015 21″ & 27″ iMacs available for up to $350 off MSRP. Apple’s one-year warranty is standard, and shipping is free. The following models are available: - 21″ 3.... Read more
Check Apple prices on any device with the iTr...
MacPrices is proud to offer readers a free iOS app (iPhones, iPads, & iPod touch) and Android app (Google Play and Amazon App Store) called iTracx, which allows you to glance at today’s lowest... Read more
Apple price trackers, updated continuously
Scan our Apple Price Trackers for the latest information on sales, bundles, and availability on systems from Apple’s authorized internet/catalog resellers. We update the trackers continuously: - 15″... Read more
Apple refurbished 2016 13-inch MacBook Airs a...
Apple has Certified Refurbished 2016 13″ MacBook Airs available starting at $849. An Apple one-year warranty is included with each MacBook, and shipping is free: - 2016 13″ 1.6GHz/8GB/128GB MacBook... Read more
1.4GHz Mac mini on sale for $449, save $50
Adorama has the 1.4GHz Mac mini on sale for $50 off MSRP including free shipping plus NY & NJ sales tax only: - 1.4GHz Mac mini (Apple sku# MGEM2LL/A): $449 $50 off MSRP To purchase a mini at... Read more
Apple refurbished 2015 13-inch MacBook Airs a...
Apple has Certified Refurbished 2015 13″ MacBook Airs available starting at $759. An Apple one-year warranty is included with each MacBook, and shipping is free: - 2015 13″ 1.6GHz/4GB/128GB MacBook... Read more

Jobs Board

Systems Architecture Prototyping - *Apple*...
Changing the world is all in a day's work at Apple . If you love innovation, here's your chance to make a career of it. You'll work hard. But the job comes with more Read more
*Apple* Retail - Multiple Positions- Akron,...
Job Description:SalesSpecialist - Retail Customer Service and SalesTransform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
Hardware Design Validation Engineer - *Apple...
Changing the world is all in a day's work at Apple . If you love innovation, here's your chance to make a career of it. You'll work hard. But the job comes with more Read more
Systems Architecture Prototyping - *Apple*...
Changing the world is all in a day's work at Apple . If you love innovation, here's your chance to make a career of it. You'll work hard. But the job comes with more Read more
*Apple* Retail - Multiple Positions- South B...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.