Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1035 1819 (N45E24 L=353)   667    125        3 ( 999/1782-1084/1858) -16.7 E29-E19 N42-N47
      2 1271 1701 (N42E01 L= 16)   302     49        1 (1246/1674-1293/1720) -45.0 E03-W00 N39-N43
      3 1337 1671 (N41W04 L= 21)   291     57        1 (1321/1643-1359/1695) -63.4 W02-W06 N38-N43
      4  542 1566 (N15E44 L=333)   471    163        0 ( 523/1497- 555/1617) -48.8 E47-E40 N10-N18
      5 1437 1591 (N38W14 L= 30)   392     87        0 (1397/1570-1476/1612)  18.4 W10-W16 N35-N40
      6 1131 1354 (N14E01 L= 16)   776    284        0 (1091/1252-1216/1482) -42.3 E06-W05 N08-N21
      7 1884 1125 (N22W57 L= 74)  1128    225        1 (1839/1022-1927/1198) -36.0 W51-W63 N16-N25
      8  227 1079 (S19E56 L=321)   715    150        0 ( 207/ 999- 240/1157) -68.2 E59-E53 S23-S13
      9  678 1058 (S12E21 L=356)   711    158        0 ( 605/ 975- 737/1133)  61.4 E24-E18 S18-S07
     10 1311  926 (S06W18 L= 35)   967    258        0 (1219/ 805-1410/1054)  73.6 W15-W21 S14-N03
     11  977  755 (S23W04 L= 20)   644    148        1 ( 901/ 729-1061/ 790)  18.4 E01-W08 S25-S21
     12 1543  764 (S09W38 L= 55)   256     60        1 (1502/ 735-1572/ 789)  45.0 W35-W39 S11-S07
     13 1757  658 (S08W59 L= 76)  1332    213        0 (1683/ 598-1816/ 725)  61.4 W53-W63 S13-S02
  

    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