Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1445 1673 (N29W51 L=313)   459     47        0 (1418/1648-1480/1690)  -8.1 W47-W55 N27-N30
      2  282 1183 (N31E49 L=213)   682    123        1 ( 224/1142- 330/1220)   9.5 E55-E43 N29-N32
      3  680 1114 (N18E18 L=244)   725    224        1 ( 595/1078- 774/1160) -38.7 E22-E11 N14-N22
      4  411 1082 (N22E38 L=224)   373     98        1 ( 372/1064- 461/1105) -29.7 E40-E33 N20-N24
      5  312  949 (N17E48 L=213)   283     66        0 ( 291/ 923- 337/ 975) -63.4 E50-E46 N14-N18
      6 1356  735 (S20W12 L=273)   210     99        0 (1335/ 686-1380/ 771)  38.7 W09-W14 S22-S18
      7 1668  694 (S33W34 L=296)   282     48        0 (1643/ 677-1692/ 712)  14.0 W32-W36 S33-S31
      8 1386  637 (S27W12 L=273)   236     64        1 (1359/ 610-1408/ 664)  26.6 W09-W13 S28-S25
      9 1206  494 (S31E04 L=258)   303     85        1 (1180/ 460-1238/ 533) -71.6 E04-E02 S34-S28
     10 1577  341 (S59W27 L=289)   627     95        1 (1531/ 318-1624/ 364) -14.9 W20-W35 S61-S56
     11 1437  280 (S58W08 L=270)   401     50        0 (1412/ 264-1463/ 299)  -9.5 W05-W11 S60-S56
     12 1261  189 (S60E15 L=246)   628     68        1 (1236/ 172-1301/ 214) -63.4 E19-E11 S63-S56
     13 1174  161 (S59E26 L=235)   941     72        1 (1137/ 136-1215/ 188) -66.8 E32-E21 S62-S55
     14 1075  143 (S57E37 L=224)   488     32        0 (1055/ 126-1097/ 164)  59.0 E40-E33 S58-S53
  

    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