Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  808 1634 (N30E31 L= 99)   465     77        2 ( 771/1601- 838/1659)   9.5 E34-E28 N27-N31
      2  532 1523 (N17E45 L= 85)   742    166        2 ( 464/1494- 583/1554)  18.4 E50-E40 N13-N18
      3  758 1441 (N16E26 L=104)   289     97        2 ( 722/1415- 811/1457)   9.5 E28-E22 N14-N17
      4 1395 1381 (N27W15 L=145)   471     88        2 (1367/1333-1413/1420) -68.2 W13-W16 N24-N30
      5  903 1385 (N16E16 L=114)   230     53        1 ( 873/1365- 930/1411)  14.0 E17-E13 N14-N17
      6  737 1342 (N10E24 L=105)   269     98        0 ( 687/1330- 781/1360)  21.8 E27-E22 N08-N11
      7  566 1148 (S05E30 L= 99)   329    100        1 ( 540/1106- 603/1183)  68.2 E31-E28 S07-S02
      8  545  861 (S22E27 L=103)  1098    355        3 ( 435/ 764- 652/1000)  58.6 E34-E20 S30-S12
      9  867  854 (S16E06 L=124)   200    113        1 ( 842/ 821- 914/ 887)  59.0 E06-E03 S17-S12
     10  273  759 (S35E53 L= 77)   358     53        1 ( 259/ 730- 291/ 787) -90.0 E54-E50 S36-S32
     11  991  608 (S28W08 L=138)   270    120        0 ( 941/ 569-1038/ 634)  -7.1 W04-W12 S29-S26
     12 1376  524 (S23W36 L=166)   589    121        3 (1338/ 490-1419/ 583)  90.0 W33-W39 S25-S19
     13  715  443 (S47E07 L=122)  1285    242        3 ( 601/ 422- 834/ 469)  19.3 E18-W02 S50-S41
     14 1095  178 (S57W46 L=176)   970     96        1 (1062/ 140-1120/ 228) -35.5 W38-W53 S61-S51
  

    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