Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1664 1537 (N34W54 L= 87)   838    103        1 (1626/1496-1695/1570) -63.4 W50-W56 N30-N36
      2  815 1542 (N38E15 L= 18)   231     71        0 ( 781/1517- 852/1561)  31.0 E17-E12 N36-N39
      3  509 1480 (N34E39 L=354)   928    226        1 ( 441/1434- 593/1525) -19.7 E45-E31 N30-N36
      4  348 1284 (N20E49 L=344)  2960    653        5 ( 218/1092- 440/1439) -37.9 E66-E38 N08-N29
      5  902 1386 (N27E08 L= 25)   336     79        0 ( 856/1373- 947/1402)   9.5 E10-E04 N26-N28
      6 1760 1241 (N14W54 L= 87)   753    152        4 (1705/1174-1792/1313) -56.3 W50-W57 N09-N19
      7 1104 1192 (N14W05 L= 38)   284    114        0 (1052/1152-1152/1243) -45.0 W02-W08 N11-N17
      8 1500  979 (S00W31 L= 63)   257     85        2 (1471/ 949-1543/ 999)  11.3 W28-W33 S02-N01
      9  459  915 (S02E38 L=355)   328     70        1 ( 429/ 897- 494/ 931) -11.3 E39-E34 S03-S01
     10  731  835 (S07E19 L= 14)   418     98        1 ( 676/ 810- 787/ 863) -23.2 E22-E15 S08-S05
     11  350  688 (S17E50 L=343)  1063    259        4 ( 315/ 605- 395/ 788)  53.1 E54-E44 S22-S10
     12 1641  669 (S21W43 L= 76)   290     61        0 (1611/ 655-1671/ 679)   0.0 W40-W45 S21-S19
     13 1396  578 (S26W25 L= 58)   592    123        0 (1342/ 558-1452/ 597)   7.1 W21-W29 S27-S24
     14  549  527 (S28E36 L=357)   833    175        1 ( 501/ 493- 609/ 557)  26.6 E40-E30 S30-S25
  

    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