Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  768 1845 (N37E51 L=129)   471     61        1 ( 748/1814- 788/1878) -26.6 E57-E47 N34-N39
      2  845 1817 (N37E43 L=138)   593     54        0 ( 813/1795- 875/1841)  -7.1 E46-E38 N35-N38
      3  799 1747 (N31E40 L=141)   535     42        1 ( 773/1717- 823/1772)  71.6 E42-E36 N28-N32
      4  964 1575 (N24E20 L=160)   479    163        0 ( 932/1499-1005/1644) -35.0 E24-E14 N20-N27
      5  562 1535 (N11E43 L=137)   393     63        0 ( 528/1506- 590/1557)   9.5 E46-E40 N09-N12
      6 1296 1467 (N27W03 L=183)   699    159        1 (1272/1392-1348/1514) -83.7 W01-W05 N22-N31
      7  493 1397 (N02E42 L=138)   971    234        2 ( 459/1303- 520/1492) -48.4 E47-E38 S03-N06
      8  228 1408 (S03E68 L=112)   625     70        1 ( 199/1391- 264/1429)  -4.8 E74-E62 S03-S01
      9  264 1278 (S10E58 L=122)   517     87        1 ( 249/1235- 281/1328) -51.3 E59-E54 S12-S06
     10 1387 1192 (N13W16 L=196)   477    130        0 (1358/1125-1403/1251) -60.3 W12-W17 N09-N16
     11  275 1070 (S21E51 L=129)   501    107        2 ( 248/1018- 308/1119) -29.7 E54-E47 S23-S18
     12  595 1005 (S18E24 L=156)  1233    298        1 ( 473/ 916- 694/1098)  53.7 E31-E20 S25-S10
     13 1841  943 (N15W56 L=236)   524     73        0 (1826/ 901-1860/ 985) -68.2 W54-W58 N12-N17
     14 1771  863 (N08W52 L=232)   355     48        0 (1757/ 830-1783/ 895) -45.0 W49-W53 N06-N09
     15  859  796 (S23E03 L=177)  1564    370        2 ( 686/ 755-1032/ 843)  35.8 E13-W06 S29-S16
     16  417  702 (S41E34 L=147)  1189    174        1 ( 341/ 659- 497/ 746)  26.6 E42-E26 S45-S36
     17 1538  641 (S11W42 L=222)   556    158        0 (1490/ 580-1577/ 709) -83.7 W41-W43 S15-S06
     18 1311  533 (S24W33 L=213)   432     89        0 (1263/ 513-1359/ 556)  38.7 W30-W35 S26-S22
     19 1718  475 (S13W69 L=249)  1755    142        5 (1679/ 432-1761/ 521) -71.6 W63-W76 S16-S10
     20 1253  431 (S32W35 L=215)   315     72        0 (1220/ 415-1292/ 458)   0.0 W31-W38 S32-S30
     21 1110  239 (S49W43 L=223)  2017    300        3 ( 971/ 174-1219/ 322)   1.6 W24-W59 S50-S45
  

    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