Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  727 1796 (N32E49 L=265)   904    139        1 ( 683/1735- 768/1847) -65.6 E52-E45 N26-N37
      2 1039 1669 (N32E19 L=294)  1411    428        3 ( 860/1610-1200/1733)  49.9 E27-E11 N22-N41
      3 1314 1291 (N16W09 L=323)   456    170        1 (1292/1212-1341/1371) -71.6 W07-W12 N11-N20
      4 1437 1348 (N23W15 L=329)   214     42        0 (1410/1327-1465/1365)   0.0 W13-W17 N21-N23
      5 1864  981 (N16W58 L= 12)  2005    316        4 (1793/ 821-1901/1100) -42.9 W48-W69 N09-N22
      6 1771  998 (N13W48 L=  1)   798     92        2 (1749/ 944-1794/1054) -71.6 W46-W49 N10-N16
      7  860 1015 (S12E09 L=304)   292    116        0 ( 806/ 985- 913/1036)   8.1 E12-E05 S12-S10
      8 1020  786 (S20W06 L=320)   302    107        2 ( 963/ 769-1072/ 803)  15.9 W02-W09 S21-S18
      9  779  771 (S28E08 L=306)   224     88        1 ( 733/ 752- 824/ 795)  38.7 E10-E05 S29-S25
     10 1097  620 (S27W16 L=330)  2445    785        5 ( 812/ 541-1494/ 745)  38.9 W00-W36 S39-S09
     11  711  401 (S54E02 L=312)   458     85        2 ( 668/ 375- 758/ 423)  49.4 E05-W02 S57-S50
     12 1550  314 (S29W70 L= 23)  3103    204        9 (1455/ 267-1636/ 375)  45.0 W61-W78 S34-S23
     13 1307  196 (S45W65 L= 18)   861     62        2 (1286/ 167-1334/ 229)  -8.7 W58-W71 S46-S42
  

    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