Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  813 1816 (N38E47 L=155)  1070    181        4 ( 733/1780- 898/1843)   3.4 E56-E38 N35-N39
      2  655 1728 (N27E50 L=151)   651     49        1 ( 626/1700- 691/1753)   0.0 E54-E46 N24-N28
      3  926 1729 (N35E31 L=170)   322     64        1 ( 896/1702- 951/1749)  -9.5 E33-E27 N33-N35
      4  497 1670 (N19E59 L=142)   682    108        0 ( 451/1634- 537/1713)  63.4 E61-E57 N16-N22
      5  648 1538 (N14E38 L=163)   566     88        1 ( 621/1489- 682/1584) -63.4 E40-E36 N11-N17
      6 1613 1373 (N33W28 L=230)   746    185        0 (1562/1297-1640/1463) -52.1 W22-W31 N28-N37
      7 1105 1430 (N20E07 L=194)   204     74        0 (1071/1404-1139/1449) -11.3 E09-E04 N19-N20
      8  526 1297 (S03E37 L=164)  1351    264        2 ( 453/1202- 582/1418)  85.9 E39-E34 S09-N05
      9 1464 1316 (N24W18 L=219)   763    185        4 (1415/1228-1491/1390) -45.0 W13-W21 N19-N28
     10  367 1307 (S06E50 L=151)  1017    145        2 ( 346/1224- 394/1377) -52.1 E54-E46 S10-S01
     11 1793 1332 (N38W48 L=250)   518     65        0 (1780/1300-1813/1363)  45.0 W46-W52 N35-N40
     12  228 1297 (S09E64 L=137)   686    101        0 ( 201/1251- 265/1345)  56.3 E67-E61 S11-S05
     13 1191 1233 (N11W04 L=205)   384     81        2 (1156/1197-1231/1271) -18.4 W00-W06 N09-N12
     14 1428 1184 (N15W19 L=220)   255     74        0 (1394/1159-1462/1207) -11.3 W16-W21 N14-N16
     15 1067 1070 (S01W01 L=202)   191     49        0 (1040/1053-1090/1085)   0.0 W00-W02 S02-N00
     16  590  990 (S18E25 L=176)   838    256        0 ( 504/ 908- 672/1084)  61.9 E29-E21 S25-S10
     17 1193  799 (S13W16 L=217)   884    271        3 (1099/ 756-1289/ 841)  48.0 W11-W20 S17-S07
     18 1314  762 (S11W24 L=225)   220     48        1 (1291/ 746-1343/ 784)   0.0 W22-W26 S12-S10
     19  909  659 (S29W04 L=205)  1188    364        2 ( 773/ 619-1080/ 728)  14.0 E06-W14 S31-S23
     20  741  388 (S53W03 L=204)   645    141        1 ( 673/ 360- 805/ 426)   4.4 E04-W09 S54-S50
  

    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