Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1342 1629 (N35W39 L=169)   590    149        1 (1272/1613-1409/1642) -16.7 W34-W44 N32-N37
      2  734 1440 (N38E10 L=119)   738    179        2 ( 676/1365- 787/1478) -52.1 E14-E07 N32-N41
      3  476 1236 (N30E33 L= 97)  1174    261        1 ( 403/1151- 545/1336) -54.5 E38-E27 N23-N37
      4 1026 1237 (N19W05 L=134)   753    231        3 ( 924/1196-1151/1289) -42.3 W00-W11 N14-N24
      5 1295 1038 (N02W16 L=146)  1287    256        1 (1201/ 914-1358/1151) -78.7 W12-W19 S05-N10
      6  498 1025 (N17E33 L= 97)   328    106        1 ( 472/ 990- 535/1075) -63.4 E34-E30 N14-N20
      7 1836 1009 (S14W55 L=185)  1151    182        1 (1807/ 905-1859/1073)  63.4 W52-W59 S20-S10
      8  260  977 (N17E54 L= 76)   344     57        1 ( 243/ 946- 279/1010) -63.4 E55-E52 N15-N19
      9 1266  877 (S07W11 L=141)   195     45        0 (1245/ 853-1291/ 896)  18.4 W09-W12 S07-S05
     10 1292  712 (S17W09 L=139)   857    182        1 (1215/ 634-1327/ 766) -63.4 W04-W11 S22-S14
     11  296  516 (S12E67 L= 62)  1342    241        1 ( 274/ 467- 332/ 574)  32.5 E73-E61 S15-S08
     12 1035  363 (S35E16 L=114)   816    119        3 ( 998/ 315-1060/ 424)  53.1 E19-E12 S38-S30
     13  597  330 (S29E48 L= 81)  1211    180        2 ( 535/ 286- 635/ 370) -56.3 E53-E43 S32-S25
  

    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