Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1414 1574 (N24W41 L=213)  4577    838        7 (1112/1518-1723/1610) -24.4 W22-W66 N13-N33
      2  935 1403 (N28W05 L=176)   421     93        2 ( 900/1359- 967/1453) -11.1 W03-W06 N25-N31
      3  201 1310 (N41E55 L=116)   448     81        1 ( 178/1281- 222/1331) -45.0 E58-E52 N39-N43
      4 1912 1166 (S13W67 L=238)  6242    512        9 (1861/1054-1957/1283)  86.2 W61-W77 S20-S05
      5 1102 1139 (N09W07 L=178)   191     76       -1 (1077/1121-1127/1158)   0.0 W05-W08 N08-N10
      6 1715  778 (S29W38 L=209)  2653    483        4 (1569/ 597-1776/1003)  42.3 W24-W46 S37-S16
      7 1352  989 (S06W17 L=189)   188     35        0 (1320/ 975-1380/1001) -26.6 W15-W19 S06-S04
      8  657  905 (N07E24 L=147)   238     66        0 ( 630/ 880- 691/ 925)  11.3 E26-E21 N05-N08
      9 1571  763 (S25W27 L=198)   669    199        0 (1506/ 664-1631/ 862)  36.9 W20-W32 S29-S20
     10  881  715 (S09E16 L=155)   252     88        0 ( 840/ 700- 935/ 728) -18.4 E18-E12 S09-S07
     11 1270  589 (S27W03 L=174)   278    136        0 (1224/ 524-1294/ 649)  45.0 E01-W05 S29-S23
     12  923  529 (S21E20 L=152)   652    273        0 ( 833/ 443-1021/ 635)  22.4 E27-E10 S24-S16
     13  373  417 (S15E65 L=106)  1289    310        5 ( 344/ 357- 395/ 480)  33.7 E71-E58 S19-S11
     14  828  352 (S30E33 L=138)   373     90        1 ( 791/ 324- 869/ 377)   0.0 E36-E29 S31-S28
  

    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