Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1051 1582 (N35W19 L=134)   239     36        0 (1025/1568-1081/1598) -14.0 W16-W20 N34-N36
      2  901 1546 (N38W07 L=123)   217     56        0 ( 873/1519- 923/1570)  21.8 W04-W09 N36-N38
      3 1454 1271 (N07W31 L=147)   279     65        0 (1434/1237-1483/1298)  26.6 W29-W33 N05-N07
      4 1634 1157 (S04W40 L=156)  1149    293        2 (1536/1071-1744/1267) -54.5 W35-W46 S11-N04
      5  701 1199 (N22E15 L=101)   306     82        0 ( 670/1160- 740/1239)  26.6 E17-E11 N20-N23
      6  180  960 (N19E60 L= 56)  1597    471        4 (  87/ 881- 291/1026) -31.0 E70-E50 N12-N24
      7 1397  921 (S11W19 L=134)   532    131        2 (1373/ 852-1416/ 995)  63.4 W16-W20 S14-S06
      8 1598  809 (S23W30 L=145)   315     57        0 (1579/ 774-1617/ 848)  45.0 W27-W31 S24-S20
      9 1754  731 (S33W42 L=158)   864    268        0 (1657/ 670-1846/ 821)   6.3 W32-W51 S35-S29
     10 1031  721 (S13E07 L=109)   225     70        0 ( 990/ 699-1073/ 739) -11.3 E09-E04 S13-S12
     11 1508  637 (S31W20 L=136)   519     85        1 (1466/ 609-1551/ 670)   7.1 W16-W24 S32-S29
     12 1224  513 (S31E02 L=114)   342     64        0 (1207/ 479-1243/ 547)  78.7 E03-W00 S33-S28
     13  787  432 (S24E31 L= 84)   366    122        0 ( 770/ 383- 803/ 482)  45.0 E34-E28 S27-S21
     14  962  395 (S31E22 L= 94)   273     54        0 ( 942/ 369- 978/ 425)  31.0 E24-E19 S32-S29
  

    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