Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1377 1723 (N41W50 L=259)   398     48        0 (1358/1698-1404/1742)   8.1 W46-W53 N39-N42
      2 1274 1712 (N43W41 L=250)   404     74        0 (1233/1685-1308/1736)   5.7 W35-W45 N42-N44
      3  989 1666 (N48W15 L=224)   339     89        0 ( 968/1632-1024/1694)  26.6 W11-W19 N45-N49
      4  682 1550 (N47E15 L=194)  1527    334        4 ( 564/1489- 828/1611)  -4.6 E26-E01 N43-N48
      5 1549 1349 (N14W41 L=250)   593    196        1 (1473/1275-1599/1408) -70.0 W37-W42 N08-N19
      6  476 1342 (N36E33 L=176)   348     83        0 ( 438/1310- 509/1362) -38.7 E37-E30 N33-N37
      7  853 1127 (N16E08 L=201)   871    351        2 ( 772/ 986- 930/1260) -77.5 E11-E05 N06-N25
      8  561 1222 (N27E27 L=182)   241     77        1 ( 524/1210- 612/1238) -15.9 E29-E22 N25-N27
      9  169  966 (N16E66 L=143)  1676    130        7 ( 130/ 928- 225/1016) -12.1 E73-E58 N13-N18
     10 1471  973 (S05W26 L=235)   229     54        0 (1447/ 947-1496/1004) -76.0 W24-W27 S06-S02
     11 1540  859 (S13W28 L=237)   248     63        1 (1514/ 832-1561/ 890)  45.0 W26-W30 S14-S11
     12 1802  849 (S21W51 L=260)   340     59        0 (1789/ 814-1817/ 885) -68.2 W49-W52 S23-S18
     13  277  763 (N03E57 L=152)   599     85        1 ( 249/ 730- 309/ 807) -51.3 E58-E54 N00-N05
     14  684  742 (S04E26 L=183)   332    151        0 ( 669/ 676- 707/ 801)  74.1 E27-E23 S07-N00
     15 1599  714 (S24W31 L=240)   691    169        0 (1553/ 675-1659/ 769) -36.9 W28-W36 S27-S19
     16  952  752 (S08E09 L=200)   198     61        0 ( 910/ 736- 979/ 766) -14.0 E11-E07 S08-S06
     17 1659  475 (S44W40 L=249)  2521    303        3 (1522/ 407-1785/ 543)   0.0 W25-W58 S47-S40
     18  353  437 (S19E67 L=142)  3751    250       13 ( 278/ 367- 430/ 510) -55.0 E77-E57 S24-S13
     19  580  405 (S24E45 L=164)  1136    220        2 ( 550/ 310- 606/ 497)  54.5 E51-E39 S31-S17
     20 1181  437 (S33E02 L=207)   239     84        0 (1152/ 406-1212/ 472)  45.0 E04-W00 S34-S30
     21 1441  350 (S48W17 L=226)   441     57        1 (1404/ 337-1478/ 366) -26.6 W13-W21 S50-S45
  

    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