Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  757 1376 (N34E06 L= 96)   293     52        1 ( 731/1348- 788/1394)   0.0 E08-E03 N31-N34
      2 1837 1170 (S10W58 L=160)  1402    338        7 (1781/1108-1889/1231)  13.0 W50-W65 S13-S08
      3  845 1135 (N17E07 L= 95)   533    182        2 ( 819/1051- 884/1223)  48.4 E10-E02 N12-N21
      4 1507 1091 (S04W29 L=131)   976    228        0 (1473/ 985-1554/1215)  71.6 W27-W33 S10-N03
      5 1842 1029 (S18W54 L=156)   682    125        1 (1810/ 991-1870/1080)  23.2 W50-W58 S19-S16
      6  714 1000 (N13E18 L= 84)   271    146        1 ( 645/ 983- 786/1015) -18.4 E22-E13 N11-N14
      7 1733  837 (S26W40 L=142)   606    126        0 (1702/ 781-1771/ 908)  40.6 W36-W44 S28-S22
      8 1724  702 (S34W38 L=140)   569     94        1 (1693/ 671-1745/ 738) -78.7 W34-W39 S36-S31
      9 1189  573 (S24E03 L= 99)   785    225        1 (1152/ 481-1217/ 690)  54.0 E08-W01 S29-S17
     10  320  615 (S00E59 L= 43)   577    104        1 ( 305/ 577- 340/ 662)  38.7 E62-E55 S02-N02
     11  760  497 (S17E31 L= 71)   265     97        1 ( 731/ 467- 806/ 520)   9.5 E33-E27 S18-S15
     12  461  486 (S11E53 L= 49)   328    130        0 ( 420/ 465- 497/ 516)   6.3 E57-E48 S11-S09
     13  948  392 (S29E24 L= 78)  1162    308        0 ( 851/ 341-1021/ 501)  26.6 E29-E15 S32-S23
  

    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