Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1051 1336 (N22W10 L=109)   331    164        0 (1030/1271-1083/1415)  71.6 W09-W13 N17-N26
      2  730 1206 (N24E12 L= 86)  1702    487        6 ( 522/1088- 907/1324) -47.7 E24-E04 N13-N36
      3 1929 1190 (S13W72 L=171)  3122    173        6 (1888/1100-1961/1263) -90.0 W66-W81 S19-S09
      4 1751 1050 (S14W45 L=144)  1420    367        2 (1658/ 921-1780/1215)  47.1 W35-W52 S19-S05
      5 1866  960 (S23W56 L=154)  1082    192        1 (1803/ 878-1920/1021)  13.2 W47-W64 S25-S21
      6 1180  922 (S03W06 L=104)   192     45        1 (1162/ 893-1199/ 944)  71.6 W04-W06 S05-S02
      7 1332  741 (S18W10 L=108)   997    319        0 (1277/ 602-1387/ 874)  42.9 W02-W16 S24-S11
      8 1520  787 (S21W22 L=121)   277    110        0 (1495/ 735-1534/ 836)  45.0 W19-W24 S23-S18
      9 1048  716 (S11E07 L= 92)   281    113        1 (1030/ 655-1068/ 755)  51.3 E09-E05 S14-S09
     10  590  532 (S10E40 L= 58)   849    228        3 ( 560/ 424- 615/ 635)  50.2 E46-E36 S16-S04
     11  288  540 (S04E66 L= 32)  1047     73        3 ( 252/ 517- 328/ 572) -12.5 E72-E61 S06-S02
     12 1348  542 (S31W05 L=104)   314    101        0 (1295/ 527-1397/ 558) -33.7 W02-W08 S33-S28
     13  456  389 (S17E59 L= 39)  1330    164        1 ( 424/ 318- 507/ 463)  65.6 E62-E55 S22-S11
  

    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