Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1291 1425 (N20W28 L= 98)   352    121        2 (1262/1374-1323/1488)  45.0 W24-W31 N17-N23
      2 1859 1265 (S06W65 L=136)  4405    380        6 (1802/1144-1928/1348) -71.6 W59-W77 S15-N00
      3 1116 1215 (N14W10 L= 81)   369    141        0 (1045/1196-1183/1246) -20.6 W06-W14 N12-N16
      4  655 1089 (N19E20 L= 51)   913    315        1 ( 527/1051- 812/1142) -32.9 E27-E10 N13-N24
      5 1636 1051 (S10W37 L=108)   490    149        0 (1617/ 980-1656/1130)  49.4 W34-W40 S13-S06
      6 1176 1036 (N03W09 L= 79)   181     28        1 (1161/1010-1192/1057) -90.0 W07-W09 N01-N04
      7  197  892 (N18E61 L= 10)   799    123        2 ( 176/ 844- 212/ 959)  66.8 E64-E58 N14-N21
      8 1617  783 (S25W30 L=100)   895    179        2 (1581/ 703-1646/ 885)  59.0 W25-W32 S28-S18
      9 1371  589 (S29W08 L= 79)  1177    282        1 (1260/ 522-1438/ 710)  31.6 W00-W15 S32-S22
     10 1185  680 (S17E00 L= 70)   241     73        0 (1152/ 644-1220/ 707)  21.8 E03-W02 S18-S16
     11  843  636 (S11E21 L= 50)   370    133        0 ( 774/ 603- 908/ 673)   0.0 E25-E16 S11-S09
     12  915  519 (S20E21 L= 50)   547    191        0 ( 893/ 444- 942/ 615)  45.0 E24-E15 S24-S14
     13  613  355 (S23E48 L= 23)   334     72        1 ( 590/ 337- 636/ 382) -90.0 E50-E46 S23-S20
     14  545  334 (S22E55 L= 16)   674    156        5 ( 502/ 292- 589/ 368) -68.2 E57-E51 S25-S19
  

    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