Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1464 1700 (N34W48 L=182)   349     80        0 (1446/1672-1477/1725)  38.7 W45-W50 N31-N35
      2 1074 1434 (N24W11 L=145)  1423    279        3 ( 966/1364-1190/1511) -49.8 W05-W16 N18-N31
      3  559 1489 (N38E24 L=110)   364     57        1 ( 524/1467- 590/1508) -18.4 E27-E21 N36-N39
      4 1710 1437 (N13W55 L=189)   882    120        1 (1667/1393-1757/1480) -45.0 W51-W58 N09-N15
      5  886 1256 (N17E04 L=130)   187     43        1 ( 865/1227- 912/1282)  45.0 E05-E02 N15-N18
      6 1023 1222 (N13W03 L=138)   568    168        0 ( 943/1178-1115/1269) -48.8 W00-W08 N08-N16
      7 1565 1031 (S08W33 L=167)   326    151        1 (1496/ 992-1612/1050) -35.5 W28-W36 S10-S05
      8 1229  938 (S07W10 L=144)   551    192        0 (1183/ 852-1270/1040)  59.0 W06-W13 S11-S01
      9 1510  785 (S21W26 L=160)  1669    541        1 (1269/ 673-1632/ 984)  22.5 W08-W37 S25-S11
     10  200  935 (N10E59 L= 75)  1217    339        3 ( 116/ 876- 284/ 971) -21.3 E69-E51 N05-N13
     11  387  891 (N04E43 L= 92)   285     67        2 ( 358/ 865- 414/ 906) -45.0 E44-E40 N02-N05
     12  318  839 (N02E50 L= 85)   462     83        1 ( 289/ 802- 347/ 875) -63.4 E51-E47 N00-N04
     13 1526  627 (S32W26 L=161)  1695    264        2 (1401/ 531-1641/ 721)  20.2 W16-W35 S36-S27
     14 1824  673 (S36W54 L=188)   520    128        1 (1798/ 656-1859/ 698)  -8.1 W51-W58 S37-S33
     15  528  503 (S21E43 L= 91)   409    130        1 ( 509/ 455- 554/ 554)  45.0 E46-E40 S23-S17
  

    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