Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!zaphod.mps.ohio-state.edu!van-bc!ubc-cs!uw-beaver!zephyr.ens.tek.com!tektronix!reed!glacier!busker!f20.n226.z1.FIDONET.ORG!Jeff.E.Mandel.MD.MS From: Jeff.E.Mandel.MD.MS@f20.n226.z1.FIDONET.ORG (Jeff E Mandel MD MS) Newsgroups: comp.sys.mac.programmer Subject: Re: These 'acur' (sample code ~15K) Message-ID: <656.2783DF15@busker.fidonet.org> Date: 28 Dec 90 21:33:07 GMT Sender: ufgate@busker.fidonet.org (newsout1.26) Organization: FidoNet node 1:226/20 - cmhGate UF Gateway, Columbus OH Lines: 110 Reply-To: mandel@vax.anes.tulane.edu In article n67786@lehtori.tut.fi (Nieminen Tero) writes: >I remember thet the cursor animation was somehow documented in the MPW >manual (both Pascal and C). Theese MPW languages have routines to use >these animated cursors also. I used animated "busy" cursor in one >program and if I remember correctly I used the MPW Pascal library >routines. As I remember it there's only one catch: They use global >memory so they cannot be used in DAs. > I previously posted this to Info-Mac, and it is in their archives, but as it seems to be a subject of some small interest here, I figured I'd jam the airwaves again. This is a simple (heh-heh) XCMD to display acurs. It is written in MPW C++, and source code is included, except for my parameter block class. The XCMD uses the private A5 world described in TN 256, permitting it to call the MPW library routine rotateCursor. This could easily be adapted to a DA, which is an excercise left to the reader. Not exactly Hack of the Year material, but cute none-the-less. Jeff E Mandel MD MS Asst. Professor of Anesthesiology Tulane University School of Medicine New Orleans, LA mandel@vax.anes.tulane.edu (This file must be converted with BinHex 4.0) :$R0`D@j$GA*cEh)ZFfPd!&0*9#&6593K!!!!!$C8!!!!!'YF8dP8)3!(!!!f9(* -BA8"[J!!!"B!!!)#$A0`D@j$GA*cEh)ZBh"Z,NeKBeGbDA4P!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!#Hm!!!!!!!!!!&4&@&408&-J!3#M#C(PS`Ur5`! !!Ai!!!r!!!!!TJ!!#-0F*F8l!!!!!!!!F,F!!!3)+*!!#8'$!@83A-L`S81($HE !5H0Q5"djFpl)F6%'MJ##9)TJSG)%bK33!`Ad!+!ZB-L4*8qQA0RbSFe4#5+9#rJ !@-!!IQ`+(8UdU0'M5*-L43)J3C-hEX+-H3-!aF)#1*3#-!#!!)!I630J%k$QDpL aDNBTq,8NS!%MEV%%**!!CZ"2JJ%3!Y#VF!S[A!Z%%H3!3#'!Q&))+KM3lYmrKP@ mN!!#,e3d!!(LLT`dG1L8F30#6"iG#C58-@-'4"%36F+i)91'$8BL'+F-"*'JC!) LCH#%N81Rc8)k)0j8$1+Qc"`kD'bQ#G2!C!)UGGKS,!1LLTXdGXV)QB-`$iJTBp# mHH04*XBbC0+-591cTmNB0'E!!!&8D%d33C*k,HQNc"d36q5`+D0a$JX36))3[!% M4J`CDa-%4P%$"Sd8)'VJ`*%i"i`CJB0-kGZNL"%J9TUiS$*NbZBUHCd8F9'%5*A )Nf080S+@#YR1Q8'J%)+`*Td8)i1`mAM`$"SkFd$)XDNd+4NAC0'N#6lQ$8F3EF) iGI-'TKLLGHCJ"@(QM4`3cGZiP,-eM-HX0`q+UD13!!b)16,Th&PCCZ3GK&,CJm" *&-j"lb#%`Cj8"qN4"KeT[-'3!&Am"6LJGmJjm3B)mmNKKdCd1"9'F(4-1%FG#)8 K4KTX0"9646JY0a*mCXK((`M,34F'4hGTj"je)*3S)SNQG[IGM%NY4G4%CT3a"R! `"VIKKbkjjp"q16Q)%i30U2"#!`f-`08BE06a(!p8j!'(65kJi81@@hEjj4"e,1A G%(5`8HDC@VV"TCG%mG"%'@eiPmHF@0Cjjh-L8)'%Q%TK-83Eak%K3NN[[0#'8f0 Nef%E)"`kTKa$V13HPd[QQ)BB&mVa*jD4*NFF#'AJSC!!('kB*p`El(&P8i$$8BM 'J5"3*dGdZcPeaS4F38P8%$@8N!$%86"TGiC,EY#"h"4E%X@IKX-eN!$U'3XTGH" f6cBi"(K[Y!%(L8S&Z"%)C%a)(8bl*Q8X#%1XX)+SEU`4"VGhA3ZGT3d0L3FF*@i 9CalD[X#ZN8)0jpjp10',VllFBYRUU`b*-)3))1c4%aX+RS&@$G6U83B+GVb4"KN Tl0"6bLZ2[#a#+%""ahH6)YYb!heJ#E0l'De4"V*AH-F''5K3S@J64!J"mKKVJ+$ #T&#X&%BE0XYa&a)fcQA#b&*-Y$2)ESJm44Pd%'dddPa[0"IBBV[m-`KKhq6Gd$8 8,4I5C)Y-&4R)KQh'ePdI@i2J1mp0a(*`[+'GfRXR[A666dFpG4j9AiMecB5lE6M L,MI3R"Xhj4JbZfr-6%F2-EJmHZPpSfl%&1HkdB--VLX)qqRY#N%l9ch-N!!lk6$ &hQi4'r9!3qL[0dXJ6$j@5-DbB``(lHSci#kklXjlCedB8%Y2[I8[pG"#pU'V0-F BXXl0TTYbr-i3#Q40l[3E8%Y0YG@EIiHEa`QM9dlbjk0jqHF0QqT9(GT`RHpBC59 R@1",jS#P"+5K)[3,`IidPl8@q)!V2QT$%14`"LFXF!iSU0R0%+1a0X%RIV86`9e LJ"M%$)F1EA*$k&)9YZB%D9jR!*NBC!8a0-aV9jlEci4Sp4eN8@KYkR)2#MDe+cJ %"i%)DX0b%-5qB1%Q98`j3k`miLYJNFYFFd'3!))Uf$Bb[#eR0HL"E0SiPa4Xm'S Gp%%2ha!N*S6X#%)d6`URF$1ZR#&V,13#(1!SJTdPi)lpmb#ea'LHX1%39S3m8(C NJ`*#(U4XL!5"#"6jK#8dFSF+fq-2'p5RjjK"$Z@DPaR5X"5BU%4cD&0+"@2(RbB iT``pJ'3H9DN82jCYK'G!!3`F13H)488f[I`PEK,JX95G$5CeJ-1mR(J(+0S)21E aL1VHpd)iXH%ZXk`PZaMR1%1H5&e1+9(CP',)!()6LQc)JcYA3UYe[6+@rLQ$(4+ d5DkNM(eU*&e2f+FGe+N1""#jS'cJ1%fIR)5GMm[EfP!J6-j"*`mkFjP&JiBh[4f 0SjMMApEZ3P'4qN5L+09CB+Jjd`6%6LSh39B2VJQjNlDdTZ0diC[LK)+MX-'4&Ue EKiE68k6K0'deB#P)Di"8Nr6-SKh46Ndl+JG*TS'5E$$#JFa6"!Yj*i@Ke"LYMYD VkXK)D#-Vb0T11905d@80,V0QlHC9+IKaac[5LmPC,ZN'Lbjd3d4Teqcf'P%-8R5 Q(V1S68rh9*hb9+14qkPNj8I1XdE28q2MddZUDK+PhUfT++KX9$mDdTPHe5GCVBp NZHT9X)U9$Q3eUac3ZN*4$Q'Y0h+VGQ$L4*15JDi@Y@XBm"T!qI&9U0mCB[Jm*9K VjG#`#@"SBYrJ1mCDd,&6VDK*)Q[4QcS1UMY&'fSeDe(13KF&dPf$q1a%[QL4YL5 QC5TQ6kTDUEE@SUme5@bhQP)1hUbfBlaYEQ'j@aA+JB@r$8T`Qi@fZ"SAZ6j4,R0 60B5jD#5EKfhSmGE9f)Q'YkD,Qd2M-QTFP'B1MajPVdPSki1cE33*3pM6(1D`Vj0 eXT!!S1cY++eBiEkq8)NJS!&bHpDc"Xb0T+K9@SiTKcr,FE9cELc$e`)RYJC88f' kHGUh1"3P*'EjVppTd$hhGKGZ*F5G$@++bEJ$5dbT19N208-Gl*43Hj)X$5Dlbdh U3"%b%mA-EbY@Jh!-JL#qBBJHJH0G+KFFK+$Z$QkSdEUbFkXl+iYC!6cJ',$5*X- pY%-`BYC15M6R"MNDdZ`DU`YfH6VqP!bBb,Se#Kc*C62dS#ehS+12EidB@`1k$)k Nm6@0H3C!2PU3!$rqj#'&V%K'hJ8&I80-Vaf*"$p#$3AE&LN[Fj)e%-J4fb&$M!T k$B*l'A[1,3!"qRU#,0A4cm(&*[I03-"YSe31h)H,'mq`&,[,YPMBF$2$rjU,0N2 (YCYl3c)6(ql0GGd`KdS#3H1imLSN0qK[)f1MYpF!F0$ej1+`NXe6e&Z$&'CEDZb q9kk2[@X3a$Yl0A4CNqH@hj*Z0(Crkc@@hlCY,`H`j`i(Z41rZ@G+(l&`%Qp6A"& GRjl!G19348(3!kj`IQI+he8ZZF"hVM,hT(M&2SqFP*Pf[raGlXAp'rVRZ[aP%*c GFEHDZ"1T(N83Q!b@$QIdUmec&iI9B5YPibX54hh&LQMa*XZe53!9C-#9`)4"8@) dTlp6[3dT*r&acX00q&6"Zmp"f'*AZ%L9M6CQ1a[5J`6bY"mXbQT29BDp)Y(1HJB #!JpcF'PZ3h9bFfpb,QeKDf90B@0AFQPdC3!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!"B!!!dR!!!!!!!!!!"849K869"6)!!!Sk#KiU1JSJd!!!&q!!!#M`!!!5N !!!'IQ)hSf`!!!!!!!#Gq!!!%##L3!!P"J`&PP!(K*NbEKA$#d+&64SiE%#*+c"% ")XfFMQl'[*%MTm`B1JrQ`%RMCNJG1A0'ZQJ6CNdC!35T&-&#T3Q8+5!)jYcCmfG 3S8L6+J8`#P3SF3%&2!SB`!qGMfC'JY$SSJ'*%@"""''6*Xc(&L#F[!%4KUaC%'A `H,`+)UZFVA1kpVJ5aL,,-cT!2(($*JrHZQRBP2RBPXfE1fA)J'3lCXcLMh$NT,' 6Z-bCa5$HQ-'S884A!fhHF(CcjS")1(Rq%LJCKJa"*!!50(R68#3!Nh4'jZNcC@A ,Pc(PZ"J$am9DBN%0!#!!`$D(!2d%p+N1i(Vf2Ne&0BJ+L,c3J93*"N!)J,d-!%D -1&#!LL!(!1m"q*`LKD##!Hhmm`p54kK$!R6+c+%cK8kB-@Y!%#-'iQ!G15lN0%J JTBbHKQ-H4J64)J`F1'AFN!$Kq!C%`)%&$kjTd'$2%c&UbSbK-iG)'MNbkEb4NkI 2&$KTh!aj1'HRLc&`A*4Nq$2S8$P&)5+G#'))&$CejR!83a+%5jJjDpl-ZE-R#"" 0K4)e1T9PfUG4R`K48Q3)P5NJHS#`06("ejJcaH+F@GBR8,93f5BYb6H"hjH!DGS FV*0R(bT$"XS*HZESiVepriDG60Bb&54j3-V"-UB0'Fp+@CiND"#K3SClhUk9)jH Zh5Pp*M)*QV$&(Bjbk)$!-U3*N4icEYL)`E&0e5T5TMc*$L@*%ijccP6GR4Ddiii MD93hBpk[lX5mjpDpfkHpL$e$KSZ4%fDc`$iL$#&&(@l3N8BEC5KPhalkmHII(!! Q8@!CFTKa8)+-pA9IJrfPmCm)9,ca"K[kcD&JB`RFPemDqhAiB8&NV#M'L4VLaq' $!!ia44"1&+%IMBkTH+1(%)V34"KdS!&NLMDbk##418SB8)8A,LQNNbi@D49@Frb BiANPcCB53Jd!!J)'B@0eFLjbFR0[FLjYB@YP6@&M9h*TG'8!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!R[!!!44!!!!!!!!!!!9%9B9%e38b!"!+-+AXLM#RTY!!! Continued in next message ... -- Jeff E Mandel MD MS - via FidoNet node 1:105/14 UUCP: ...!{uunet!glacier, ..reed.bitnet}!busker!226!20!Jeff.E.Mandel.MD.MS INTERNET: Jeff.E.Mandel.MD.MS@f20.n226.z1.FIDONET.ORG