Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  478 1608 (N52E44 L=180)   763     91        2 ( 432/1583- 526/1630)   4.8 E50-E38 N50-N53
      2  551 1544 (N46E32 L=192)   584    135        4 ( 510/1506- 603/1592) -30.3 E38-E26 N42-N50
      3 1493 1479 (N26W41 L=266)   396     67        1 (1469/1454-1525/1504)   0.0 W38-W44 N24-N27
      4  900 1459 (N35E02 L=223)  1422    444        3 ( 693/1420-1084/1482) -10.5 E17-W10 N30-N37
      5 1607 1349 (N16W45 L=270)  1054    205        3 (1547/1250-1652/1406) -78.7 W41-W48 N09-N19
      6 1057 1341 (N25W07 L=231)   393    192        0 ( 999/1274-1115/1373)  26.6 W02-W10 N21-N26
      7 1829 1351 (N11W69 L=293)   951    105        2 (1774/1318-1869/1370) -22.6 W61-W74 N08-N13
      8  199 1072 (N17E62 L=162)   964    126        3 ( 167/1016- 229/1122) -49.4 E67-E58 N13-N20
      9  466 1079 (N16E36 L=188)   229    112        0 ( 439/1029- 486/1122) -56.3 E38-E34 N12-N18
     10  272 1055 (N16E54 L=171)   353     61        0 ( 251/1030- 288/1089)  45.0 E55-E51 N14-N17
     11  261  987 (N12E55 L=170)  1386    282        2 ( 177/ 944- 377/1025)   2.6 E65-E43 N09-N14
     12 1047  801 (S08E02 L=223)   238     78        1 (1026/ 766-1066/ 840)  53.1 E03-W00 S09-S05
     13  262  776 (S01E58 L=166)   621    134        0 ( 205/ 733- 311/ 811) -21.8 E64-E54 S04-N01
     14  895  741 (S09E12 L=213)   864    198        4 ( 827/ 673- 951/ 811) -77.5 E16-E08 S13-S04
     15  265  723 (S05E60 L=165)   447     69        1 ( 241/ 683- 278/ 752)  68.2 E62-E57 S07-S02
     16  505  709 (S07E38 L=186)   243     65        0 ( 488/ 679- 525/ 733)  45.0 E39-E36 S08-S05
     17  932  648 (S16E11 L=214)   325    151        1 ( 876/ 627- 980/ 691)   8.1 E14-E07 S17-S13
     18 1169  658 (S18W04 L=228)   241    129        0 (1113/ 639-1226/ 683)   8.1 W00-W07 S18-S17
     19 1090  561 (S24E03 L=222)   902    294        5 ( 966/ 521-1205/ 599)   3.6 E11-W05 S25-S21
     20  460  573 (S15E46 L=179)   326     82        1 ( 429/ 551- 493/ 596)   0.0 E48-E42 S16-S13
     21  403  564 (S16E52 L=173)   347     57        2 ( 382/ 533- 423/ 587) -90.0 E53-E49 S17-S13
     22  608  528 (S20E36 L=189)   378     90        1 ( 583/ 492- 628/ 575)  45.0 E38-E33 S22-S16
     23  321  537 (S17E62 L=162)   695     94        1 ( 281/ 505- 361/ 561) -23.2 E66-E58 S19-S15
     24  539  384 (S30E49 L=176)   361     35        1 ( 527/ 354- 550/ 412)  53.1 E51-E46 S31-S27
  

    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