Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  804 1760 (N33E40 L= 21)  2503    594        3 ( 763/1597- 844/1916) -42.7 E55-E29 N22-N46
      2 1509 1562 (N42W16 L= 78)   301     39        0 (1494/1534-1525/1587) -78.7 W15-W17 N39-N44
      3 1746 1384 (N39W40 L=102)  2892    413        7 (1637/1251-1810/1477) -22.4 W29-W47 N31-N43
      4  362 1262 (S08E48 L= 13)   366     50        1 ( 338/1233- 390/1285)  76.0 E50-E46 S10-S06
      5  895 1234 (N03E13 L= 49)   237     96        0 ( 838/1221- 944/1249)  31.0 E15-E10 N01-N04
      6  462 1203 (S09E39 L= 23)   307     85        0 ( 419/1166- 491/1246)  63.4 E40-E37 S12-S06
      7 1543 1104 (N14W28 L= 89)   693    206        0 (1506/1036-1603/1153)  76.0 W25-W32 N09-N17
      8 1446 1104 (N11W22 L= 83)   351     94        1 (1422/1059-1466/1151) -59.0 W19-W23 N07-N13
      9  305 1069 (S21E48 L= 13)   369     59        0 ( 291/1037- 319/1107) -53.1 E49-E46 S22-S18
     10  248  909 (S31E51 L= 11)   413     98        0 ( 218/ 880- 278/ 942)  51.3 E53-E48 S33-S28
     11  489  901 (S26E30 L= 31)   529    142        1 ( 428/ 884- 554/ 918)  18.4 E34-E25 S27-S23
     12  728  781 (S27E11 L= 50)   272     40        1 ( 703/ 762- 756/ 803)  45.0 E12-E09 S28-S25
     13  490  676 (S40E26 L= 35)   752    196        1 ( 415/ 647- 567/ 711)  24.8 E33-E19 S44-S37
     14 1352  278 (S37W52 L=113)   551     91        0 (1299/ 259-1396/ 293)  51.3 W49-W54 S40-S34
  

    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