Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1078 1614 (N43W12 L=131)   267     34        1 (1053/1599-1106/1631)   0.0 W10-W14 N42-N44
      2 1508 1589 (N35W48 L=166)   780    107        2 (1480/1540-1546/1624)  20.0 W42-W53 N32-N37
      3 1648 1309 (N15W47 L=166)  1403    269        3 (1590/1216-1702/1407) -85.2 W43-W52 N09-N21
      4  232 1279 (N26E63 L= 55)  1171    195        3 ( 172/1253- 314/1312)  -5.0 E75-E52 N24-N28
      5 1368 1238 (N15W24 L=143)   268     87        0 (1340/1203-1396/1278) -68.2 W23-W25 N12-N17
      6  159 1204 (N21E73 L= 46)  1318    113        2 ( 134/1152- 184/1258)  80.5 E77-E68 N18-N24
      7  346 1190 (N21E48 L= 71)   412     85        2 ( 325/1157- 372/1230)  90.0 E49-E45 N18-N23
      8  851 1105 (N12E10 L=108)   337     83        1 ( 809/1088- 897/1122) -21.8 E12-E07 N10-N13
      9 1751  860 (S14W50 L=168)   534     65        0 (1728/ 833-1775/ 883) -45.0 W47-W52 S15-S12
     10  331  593 (S17E58 L= 61)   516     57        1 ( 311/ 563- 359/ 624)  45.0 E60-E54 S19-S14
     11  778  384 (S35E27 L= 92)  1011    208        0 ( 726/ 315- 838/ 482) -86.2 E28-E23 S41-S26
     12 1201  454 (S34W06 L=125)   399    101        1 (1145/ 441-1253/ 469) -14.0 W02-W10 S35-S32
     13 1148  209 (S57E00 L=118)   666    102        0 (1103/ 194-1207/ 222)   0.0 E05-W06 S58-S54
  

    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