Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  926 1842 (N42E41 L=135)  1093    156        2 ( 855/1800- 995/1884)  -6.0 E51-E32 N39-N43
      2  435 1656 (N16E63 L=112)  1686    247        2 ( 336/1612- 513/1699)   5.0 E76-E52 N11-N19
      3  482 1418 (N02E45 L=131)   316     76        0 ( 453/1393- 518/1437)  45.0 E46-E42 N00-N03
      4  800 1263 (N01E19 L=156)   663    193        1 ( 750/1174- 862/1343) -28.6 E24-E13 S02-N04
      5  209 1144 (S19E61 L=114)   707     92        2 ( 189/1102- 233/1204) -71.6 E63-E57 S21-S15
      6 1707 1112 (N20W40 L=215)  1129    149        5 (1646/1065-1758/1163)  -4.8 W33-W45 N16-N21
      7  301 1121 (S19E50 L=125)   373     72        0 ( 281/1082- 323/1151)  68.2 E51-E48 S21-S16
      8  149 1061 (S25E69 L=106)  2696    208        2 ( 117/ 978- 187/1146)  54.0 E75-E62 S30-S19
      9  873 1091 (S07E10 L=165)   296     78        0 ( 845/1053- 907/1120)  68.2 E11-E08 S09-S04
     10 1070  703 (S22W12 L=188)   821    214        1 ( 980/ 642-1160/ 745)  61.4 W08-W16 S28-S17
     11 1340  648 (S17W30 L=205)  1214    285        0 (1203/ 617-1483/ 673)  34.5 W22-W38 S22-S11
     12  799  488 (S44W04 L=179)   588    152        0 ( 773/ 424- 847/ 550) -41.2 W00-W09 S47-S39
     13  968  163 (S62W49 L=225)   521     61        1 ( 942/ 139- 995/ 194)  -7.1 W41-W57 S62-S59
  

    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