Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  778 1738 (N58W10 L=344)  3058    508        5 ( 607/1592- 975/1874)   8.4 E12-W43 N52-N61
      2 1578 1652 (N23W62 L= 36)  3276    433        7 (1453/1565-1713/1760) -80.5 W48-W77 N15-N33
      3 1593 1703 (N25W70 L= 44)   774     49        2 (1575/1677-1617/1727)   5.7 W65-W75 N23-N26
      4 1350 1522 (N24W36 L= 10)   263     88        1 (1313/1501-1390/1550)  -9.5 W33-W39 N23-N25
      5  754 1326 (N30E08 L=326)   359    117        0 ( 702/1298- 796/1365)  14.0 E12-E04 N29-N31
      6 1431  761 (S20W17 L=351)   433    116        0 (1413/ 705-1447/ 818)  63.4 W14-W18 S23-S16
      7 1258  640 (S22W03 L=337)   223    126        0 (1225/ 593-1281/ 699)  45.0 W00-W05 S24-S19
      8 1778  622 (S43W47 L= 21)   448     32        0 (1754/ 601-1796/ 646)  90.0 W43-W49 S44-S40
      9 1368  541 (S32W07 L=341)   378     73        0 (1346/ 509-1395/ 574)  36.9 W05-W09 S33-S30
     10 1347  409 (S41W02 L=336)   726    127        0 (1324/ 367-1389/ 475) -84.3 W00-W04 S45-S35
     11  935  396 (S28E25 L=309)   570    127        1 ( 888/ 360-1002/ 433) -63.4 E26-E22 S32-S24
     12  548  320 (S24E58 L=276)   847    106        3 ( 493/ 285- 586/ 357) -59.0 E61-E54 S27-S21
     13  697  290 (S29E48 L=286)   477     82        1 ( 673/ 255- 715/ 327)  35.5 E51-E44 S32-S26
     14  698  229 (S34E55 L=280)   504     85        2 ( 650/ 214- 741/ 239) -23.2 E58-E49 S35-S32
  

    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