Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1578 1705 (N27W64 L=139)   630     73        1 (1553/1677-1606/1728)   5.7 W60-W70 N25-N27
      2 1408 1612 (N27W43 L=117)   658    128        0 (1353/1570-1465/1643) -60.3 W39-W44 N22-N29
      3 1741 1544 (N13W67 L=141)  1839    229       10 (1695/1490-1825/1617) -51.3 W61-W76 N08-N18
      4 1676 1516 (N14W58 L=132)   569     78        1 (1649/1477-1703/1554)  78.7 W55-W59 N11-N16
      5 1369 1416 (N17W31 L=105)  1319    447        1 (1202/1357-1545/1515) -45.0 W23-W41 N09-N26
      6  984 1394 (N25W07 L= 82)  2118    615        3 ( 734/1281-1236/1453) -33.2 E08-W19 N12-N32
      7  874 1249 (N20E03 L= 71)   380    182        0 ( 782/1235- 959/1267) -33.7 E08-W01 N16-N22
      8 1604 1133 (S05W37 L=111)   467    121        0 (1591/1055-1623/1185)  60.3 W34-W39 S08-S01
      9 1885 1014 (S19W60 L=134)  1531    145        1 (1822/ 967-1949/1050)  -2.9 W51-W71 S20-S17
     10  805  937 (N04E14 L= 60)   207     75        1 ( 788/ 900- 832/ 966)  33.7 E15-E12 N02-N05
     11 1204  853 (S10W06 L= 81)   334     93        0 (1164/ 831-1241/ 894)  21.8 W03-W08 S11-S08
     12 1867  822 (S30W57 L=131)   408     58        0 (1837/ 806-1893/ 846)   7.1 W52-W60 S31-S29
     13  755  714 (S07E23 L= 52)  1067    234        4 ( 687/ 641- 833/ 792)  26.6 E28-E16 S10-S04
     14  292  723 (N03E55 L= 19)  1320    150        2 ( 227/ 675- 361/ 766) -18.4 E62-E50 S01-N04
     15  631  688 (S06E31 L= 44)   538    122        2 ( 590/ 634- 672/ 736)  80.5 E33-E27 S09-S03
     16 1042  636 (S19E09 L= 66)   421    143        0 ( 973/ 611-1105/ 671)  -7.1 E12-E04 S19-S17
     17  310  520 (S10E64 L= 11)  4413    332       10 ( 242/ 408- 407/ 654) -90.0 E77-E57 S17-N00
     18  886  472 (S25E23 L= 52)  1830    438        4 ( 759/ 419-1067/ 595) -40.9 E28-E10 S28-S14
     19  467  517 (S13E49 L= 25)  1241    231        3 ( 396/ 470- 572/ 588) -38.7 E53-E41 S16-S07
     20  715  299 (S32E44 L= 31)  3684    339        6 ( 654/ 130- 781/ 444)  34.4 E73-E36 S45-S21
  

    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