Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1381 1754 (N56W30 L= 17)   411     78        0 (1339/1739-1415/1772)  17.1 W23-W36 N54-N58
      2  556 1659 (N38E48 L=299)  3078    300        5 ( 450/1562- 658/1762) -14.9 E80-E34 N31-N44
      3  822 1582 (N35E21 L=326)  1543    296        2 ( 697/1540- 965/1608)   5.4 E30-E09 N31-N37
      4 1051 1461 (N29E02 L=345)   406    127        0 (1028/1398-1079/1510) -60.3 E04-W00 N25-N32
      5  857 1428 (N25E15 L=332)   297    141        1 ( 840/1357- 870/1490) -83.7 E16-E13 N20-N29
      6  749 1395 (N22E22 L=325)   398    150        0 ( 728/1327- 785/1462) -53.1 E24-E18 N18-N26
      7 1658 1174 (N15W42 L= 29)   481    129        0 (1601/1155-1722/1201)   0.0 W37-W47 N14-N16
      8 1379  996 (N03W22 L=  9)   208     70        0 (1347/ 973-1416/1011)  14.0 W20-W24 N01-N03
      9 1646  964 (N03W42 L= 28)   452    135        0 (1603/ 915-1701/ 993)  23.2 W38-W46 N00-N04
     10  394  823 (S16E41 L=306)   326     78        1 ( 374/ 797- 421/ 861) -76.0 E43-E39 S17-S13
     11  867  702 (S20E07 L=340)   510    217        2 ( 781/ 667- 977/ 732)  26.6 E12-W00 S22-S16
     12  638  572 (S30E23 L=323)   669    165        1 ( 573/ 537- 722/ 600)  24.8 E29-E16 S33-S27
     13  523  494 (S37E35 L=312)   313     79        1 ( 509/ 462- 544/ 537)  71.6 E37-E33 S40-S34
     14  440  419 (S45E49 L=298)   457     61        2 ( 414/ 393- 468/ 443) -21.8 E52-E45 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