Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  562 1719 (N26E56 L=222)  2057    243        6 ( 478/1636- 668/1781)  81.3 E60-E50 N19-N32
      2  454 1620 (N17E57 L=220)   523     61        2 ( 432/1600- 487/1651)   9.5 E60-E53 N15-N19
      3 1130 1493 (N26E06 L=271)  1960    459        4 (1014/1289-1182/1649) -45.0 E18-W00 N13-N34
      4  697 1455 (N12E31 L=246)   323     73        0 ( 673/1415- 725/1488)  90.0 E31-E29 N09-N14
      5 1869 1138 (N26W58 L=336)  3080    388        4 (1792/1016-1944/1296) -37.4 W48-W73 N19-N34
      6  340 1147 (S13E47 L=230)   357    107        0 ( 324/1095- 359/1202) -50.2 E49-E44 S15-S09
      7 1461 1126 (N13W23 L=300)   281     92        0 (1448/1082-1474/1176) -68.2 W21-W23 N10-N15
      8  163 1026 (S23E65 L=212)  2325    312        2 ( 116/ 945- 235/1123)  42.5 E73-E55 S27-S16
      9  635 1034 (S13E23 L=254)   385    199        0 ( 599/ 954- 670/1113)  90.0 E23-E21 S17-S07
     10  474  993 (S19E33 L=244)   520    184        0 ( 449/ 936- 520/1059) -66.8 E34-E28 S21-S14
     11 1647  887 (N05W41 L=318)   955    216        2 (1583/ 816-1692/ 989)  70.0 W37-W43 N00-N11
     12  784  914 (S16E11 L=266)   240     92        0 ( 742/ 895- 823/ 942)  45.0 E13-E09 S17-S13
     13  498  509 (S50E26 L=251)  1667    259        2 ( 402/ 437- 607/ 597) -12.8 E36-E14 S53-S45
     14 1666  464 (S17W64 L=341)  1726    317        2 (1540/ 392-1779/ 522)  39.5 W56-W75 S24-S10
  

    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