Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  774 1623 (N31E32 L=199)  1107    280        1 ( 692/1521- 849/1673) -25.0 E37-E22 N25-N34
      2 1115 1515 (N31E05 L=226)  1284    293        3 (1031/1398-1221/1599) -32.0 E12-W04 N24-N35
      3  986 1266 (N12E07 L=223)   673    251        0 ( 884/1228-1103/1304)   4.4 E13-W00 N11-N13
      4 1645 1109 (N16W39 L=269)   622     78        1 (1622/1070-1669/1149)  68.2 W37-W40 N13-N18
      5  211 1058 (S14E60 L=170)   984    124        1 ( 179/1010- 252/1099)  40.6 E64-E55 S17-S11
      6 1671 1033 (N12W42 L=273)   278     54        0 (1648/1016-1697/1061) -26.6 W40-W44 N10-N13
      7 1677  940 (N06W44 L=275)   275     49        1 (1651/ 919-1703/ 960)  26.6 W41-W46 N05-N08
      8  144  929 (S23E71 L=160)   931     77        0 ( 106/ 906- 181/ 948)   8.5 E83-E63 S25-S21
      9  937  774 (S18E00 L=230)   315     63        0 ( 908/ 752- 971/ 799)  18.4 E02-W01 S19-S16
     10 1060  746 (S17W08 L=238)   225     24        1 (1034/ 727-1082/ 762)   0.0 W05-W09 S18-S15
     11 1472  707 (S11W35 L=265)   776    150        1 (1394/ 673-1528/ 750)  32.0 W30-W38 S14-S08
     12 1514  590 (S17W42 L=273)   506    168        1 (1433/ 557-1561/ 633)  40.6 W37-W45 S20-S14
     13  756  324 (S55E04 L=226)   431     90        0 ( 716/ 310- 806/ 346)   6.3 E08-W01 S56-S52
  

    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