Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1573 1622 (N41W35 L=237)   330     67        1 (1558/1592-1591/1643)  68.2 W34-W37 N38-N43
      2  294 1546 (N21E62 L=140)   685    210        1 ( 280/1493- 313/1600) -45.0 E66-E58 N17-N25
      3  203 1335 (N07E65 L=137)   753    170        3 ( 160/1315- 243/1363)   5.2 E71-E59 N05-N08
      4  736 1271 (N06E20 L=182)   198     70        1 ( 713/1247- 756/1313)  76.0 E21-E18 N04-N08
      5  227 1143 (S05E57 L=145)   414     62        0 ( 204/1114- 247/1170)  36.9 E59-E55 S06-S03
      6 1174 1056 (S02W08 L=210)   326    113        0 (1110/1022-1232/1078) -14.0 W04-W12 S03-S01
      7 1295  953 (S07W17 L=219)   260     63        1 (1271/ 923-1327/ 990) -76.0 W15-W18 S08-S04
      8  859  861 (S17E08 L=194)   306    116        1 ( 829/ 799- 890/ 914)  69.4 E09-E06 S21-S13
      9 1424  861 (S10W26 L=228)   404     80        1 (1385/ 817-1461/ 910)  80.5 W24-W28 S12-S06
     10 1266  844 (S13W17 L=219)   383    156        1 (1174/ 829-1333/ 867)   5.7 W11-W21 S14-S11
     11  250  719 (S30E55 L=147)  2060    412        1 ( 197/ 603- 309/ 859)  48.8 E62-E47 S37-S21
     12 1337  793 (S15W22 L=224)   196     34        1 (1315/ 776-1361/ 810)  45.0 W20-W23 S16-S14
     13 1712  707 (S15W51 L=253)  2037    312        2 (1579/ 618-1830/ 799)  39.5 W42-W61 S21-S07
     14 1001  700 (S25W02 L=204)   584    188        0 ( 922/ 635-1095/ 736)  38.7 E02-W08 S30-S22
     15 1442  671 (S21W32 L=234)   486    164        1 (1368/ 623-1499/ 702) -18.4 W26-W35 S23-S19
     16 1191  636 (S27W16 L=218)   424    111        1 (1133/ 606-1251/ 666)  35.5 W12-W19 S29-S24
     17 1360  564 (S29W29 L=231)   794    200        0 (1285/ 525-1446/ 631)  -4.4 W22-W35 S31-S25
     18 1727  462 (S28W63 L=265)  1234    119        1 (1692/ 423-1766/ 505)  56.3 W60-W66 S31-S25
     19 1368  314 (S46W42 L=244)   535    112        1 (1310/ 297-1422/ 343)  35.5 W37-W44 S47-S42
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y