Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  563 1587 (N47E34 L=281)   483     87        0 ( 521/1570- 613/1608)  -5.7 E38-E28 N46-N49
      2 1709 1513 (N25W64 L= 19)  1003    191        0 (1631/1459-1785/1552) -34.7 W57-W70 N20-N29
      3 1028 1451 (N32W06 L=321)   975    261        3 ( 911/1400-1141/1493) -29.7 E02-W12 N27-N36
      4 1778  912 (S12W52 L=  7)  2225    430        8 (1652/ 807-1885/1017)  17.7 W40-W65 S16-S07
      5 1333  958 (S02W18 L=333)   292    150        1 (1269/ 926-1389/1005) -29.7 W14-W21 S04-N01
      6 1860  910 (S13W62 L= 17)   442     56        1 (1847/ 881-1873/ 945) -76.0 W60-W63 S15-S11
      7 1378  870 (S08W20 L=335)   239     38        1 (1353/ 845-1401/ 887) -33.7 W18-W21 S09-S06
      8  743  816 (S04E20 L=295)   339     66        1 ( 717/ 787- 780/ 839) -33.7 E21-E17 S06-S02
      9 1206  793 (S10W09 L=324)   542    137        3 (1172/ 741-1270/ 835)  26.6 W06-W12 S13-S07
     10 1149  793 (S10W05 L=320)   200     44        0 (1138/ 764-1160/ 823)  76.0 W04-W05 S11-S07
     11 1719  750 (S21W47 L=  1)   407    111        0 (1690/ 731-1765/ 775)   0.0 W43-W51 S22-S18
     12 1531  736 (S19W30 L=345)   281     74        1 (1503/ 710-1562/ 768)  26.6 W28-W32 S20-S16
     13 1579  642 (S26W35 L=349)  1246    181        2 (1534/ 553-1630/ 721)  63.4 W31-W38 S31-S20
     14  663  675 (S12E27 L=288)   254     56        1 ( 631/ 657- 696/ 691) -26.6 E29-E24 S13-S11
     15  605  560 (S19E34 L=281)  1270    257        3 ( 578/ 441- 651/ 676)  76.8 E36-E30 S28-S11
     16  799  593 (S19E20 L=295)   360     77        0 ( 761/ 571- 823/ 621)  21.8 E22-E17 S20-S17
     17  319  528 (S20E63 L=252)   955    130        3 ( 273/ 508- 370/ 548)  -4.1 E71-E57 S21-S18
     18  738  475 (S27E27 L=288)   330     69        0 ( 716/ 442- 765/ 508)  45.0 E29-E23 S28-S24
     19 1471  355 (S47W30 L=345)  1293    126        1 (1422/ 314-1527/ 394)  11.3 W24-W35 S51-S44
     20  927  313 (S41E18 L=296)   683     99        0 ( 884/ 278- 980/ 360)  26.6 E22-E12 S44-S37
  

    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