Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1711 1608 (N16W71 L=307)   722     75        2 (1664/1592-1750/1624) -14.0 W64-W76 N14-N17
      2 1546 1602 (N21W54 L=290)   452     85        1 (1496/1589-1589/1623) -23.2 W49-W56 N19-N22
      3  439 1388 (N41E32 L=204)   392     95        1 ( 399/1353- 486/1413) -32.0 E35-E27 N37-N43
      4  973 1269 (N20W04 L=240)   221    116        0 ( 919/1253-1033/1285) -33.7 W00-W06 N17-N21
      5 1349 1177 (N05W22 L=258)  1365    426        3 (1191/1056-1519/1265)   2.4 W10-W34 N01-N07
      6  990 1163 (N13W02 L=238)   205     73        0 ( 968/1130-1020/1185)  33.7 W00-W03 N11-N14
      7 1911  987 (S23W63 L=299)  1410    121        2 (1874/ 939-1947/1042) -48.8 W57-W70 S26-S18
      8  719  971 (N09E18 L=218)   706    139        2 ( 663/ 918- 767/1034)  14.0 E22-E14 N06-N12
      9 1401  928 (S10W18 L=254)   336    120        0 (1366/ 884-1444/ 982) -74.1 W17-W20 S13-S06
     10 1809  833 (S29W49 L=285)   902    119        2 (1770/ 788-1851/ 879)  18.4 W44-W53 S30-S26
     11  692  798 (N01E24 L=212)   205     58        0 ( 659/ 787- 733/ 809) -11.3 E26-E21 N00-N01
     12  939  753 (S08E12 L=224)   244    133        1 ( 881/ 712- 986/ 775) -38.7 E14-E09 S10-S05
     13  435  651 (S02E46 L=190)   837    250        3 ( 389/ 537- 484/ 750)  85.6 E47-E45 S09-N04
     14  811  640 (S11E22 L=214)   249     57        1 ( 794/ 605- 824/ 672)  76.0 E23-E20 S13-S09
     15 1070  556 (S23E10 L=226)   809    229        0 (1036/ 450-1097/ 655)  47.7 E15-E05 S28-S17
     16 1599  594 (S37W26 L=262)  1405    189        2 (1514/ 545-1665/ 654)   0.0 W18-W32 S39-S33
     17  592  474 (S16E43 L=193)  1787    338        3 ( 543/ 333- 676/ 592)  72.5 E47-E36 S26-S07
     18  747  509 (S17E31 L=205)   268     62        0 ( 731/ 476- 762/ 543)  45.0 E33-E29 S19-S15
     19  649  455 (S18E40 L=196)   449     83        1 ( 608/ 437- 694/ 476) -31.0 E42-E37 S20-S16
     20  359  396 (S16E71 L=165)  2514    169        4 ( 303/ 327- 420/ 461)  37.6 E80-E61 S21-S11
     21  527  338 (S23E57 L=179)  3125    192        7 ( 446/ 263- 588/ 406) -36.9 E65-E48 S28-S18
  

    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