Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1392 1711 (N48W42 L=185)   676     95        1 (1351/1684-1435/1734)  -5.2 W36-W47 N45-N50
      2  689 1425 (N31E22 L=121)   644    156        0 ( 645/1352- 720/1488) -60.9 E26-E19 N26-N35
      3  240 1342 (N26E64 L= 79)  1831    227        5 ( 187/1242- 279/1430)  85.2 E68-E59 N19-N31
      4 1054 1312 (N22W03 L=147)  1008    282        3 ( 964/1237-1128/1357)  11.3 E02-W08 N17-N25
      5 1720 1318 (N18W53 L=197)   387     75        1 (1689/1292-1749/1339)  15.9 W49-W56 N16-N18
      6  263 1264 (N21E58 L= 85)   432    107        1 ( 231/1226- 302/1307)  39.8 E61-E54 N18-N23
      7  375 1213 (N18E45 L= 98)   285     57        0 ( 358/1182- 395/1240)  76.0 E46-E43 N15-N19
      8 1919  957 (S07W73 L=217)  2138    157        6 (1888/ 902-1948/1028)  82.9 W67-W82 S10-S02
      9 1847  864 (S11W62 L=205)  1417    196        5 (1810/ 770-1887/ 955)  70.0 W58-W67 S17-S06
     10 1788  894 (S09W54 L=198)   834    143        1 (1748/ 838-1817/ 949)  40.6 W50-W57 S12-S05
     11 1691  885 (S08W45 L=188)   355     48        0 (1673/ 853-1707/ 917) -63.4 W43-W46 S10-S06
     12 1278  852 (S07W15 L=158)   218     96        1 (1266/ 808-1289/ 902) -80.5 W14-W15 S10-S04
     13 1351  817 (S10W20 L=163)   273     75        1 (1321/ 799-1382/ 842) -26.6 W17-W21 S11-S08
     14 1146  803 (S10W07 L=150)   272     97        0 (1115/ 767-1194/ 832)  31.0 W04-W09 S11-S08
     15 1463  799 (S12W27 L=171)   320     47        2 (1445/ 767-1484/ 829)  71.6 W26-W28 S13-S09
     16  701  688 (S15E23 L=121)   814    282        0 ( 657/ 569- 762/ 794)  56.3 E27-E17 S23-S08
     17  324  755 (S11E51 L= 92)   470     73        3 ( 297/ 726- 357/ 780)   9.5 E53-E47 S12-S09
     18 1270  730 (S15W14 L=158)   406    180        1 (1190/ 704-1345/ 751) -16.7 W09-W19 S17-S13
     19 1648  647 (S24W44 L=187)  1645    274        4 (1546/ 542-1726/ 725)  39.8 W36-W50 S30-S18
     20 1258  681 (S18W14 L=157)   254    107        0 (1219/ 647-1298/ 708)  33.7 W10-W16 S20-S16
     21 1304  645 (S21W17 L=160)   291     95        0 (1265/ 624-1347/ 675)  21.8 W14-W19 S22-S19
     22 1378  615 (S23W22 L=166)   406    105        0 (1354/ 560-1400/ 650)  80.5 W20-W23 S27-S20
     23  432  557 (S24E47 L= 97)   993    117        1 ( 406/ 505- 468/ 608)  37.9 E51-E41 S27-S20
     24  624  527 (S26E31 L=112)   290    100        1 ( 602/ 475- 645/ 571) -90.0 E31-E29 S29-S22
     25  579  502 (S28E36 L=108)   290    103        0 ( 555/ 455- 596/ 550)  81.9 E36-E34 S31-S24
     26 1556  455 (S37W41 L=184)   379     77        1 (1517/ 439-1591/ 476)  18.4 W37-W43 S38-S35
     27  378  446 (S32E60 L= 83)  1434    164        4 ( 306/ 427- 458/ 468)   4.4 E75-E49 S33-S30
     28  649  307 (S44E39 L=104)   401     47        1 ( 624/ 290- 670/ 334)  33.7 E42-E36 S45-S41
     29  718  286 (S46E34 L=110)   479     62        1 ( 682/ 269- 746/ 305)  -9.5 E37-E30 S47-S44
     30 1378  245 (S55W34 L=177)   696     90        0 (1349/ 217-1419/ 278) -25.2 W28-W45 S60-S51
     31 1435  233 (S58W45 L=189)   593     49        0 (1412/ 209-1457/ 264) -22.2 W37-W59 S62-S53
  

    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