Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1627 1652 (N34W68 L=315)  1080     82        2 (1587/1628-1678/1669)  -6.7 W60-W78 N32-N35
      2  382 1549 (N47E55 L=193)  2175    279        3 ( 341/1430- 422/1659) -23.6 E86-E43 N38-N55
      3  778 1567 (N44E11 L=236)   284     52        0 ( 747/1546- 807/1586) -38.7 E13-E08 N42-N46
      4 1362 1432 (N26W29 L=277)   387    132        1 (1297/1417-1424/1444) -12.5 W24-W33 N24-N27
      5  612 1402 (N35E25 L=222)  1668    396        2 ( 427/1364- 787/1426)  -9.5 E41-E11 N30-N37
      6 1064 1406 (N29W08 L=256)   470    191        0 ( 978/1386-1158/1422) -18.4 W02-W14 N26-N30
      7 1291 1233 (N15W20 L=267)   864    250        3 (1243/1101-1319/1319)  77.0 W16-W22 N06-N19
      8 1635 1261 (N11W45 L=292)   726    204        0 (1539/1212-1711/1286) -30.3 W37-W50 N06-N13
      9  272 1196 (N24E55 L=193)   374     54        1 ( 254/1173- 294/1226) -36.9 E56-E51 N22-N25
     10  208 1047 (N15E61 L=186)  1674    334        5 ( 178/ 904- 233/1191) -83.3 E67-E58 N06-N23
     11 1909 1010 (S10W69 L=316)  1610    146        4 (1888/ 943-1935/1071) -56.3 W65-W75 S15-S06
     12  127 1002 (N12E74 L=173)  1484    100        4 (  89/ 979- 163/1034)   5.4 E89-E67 N10-N13
     13  732  813 (S03E21 L=227)   439    153        0 ( 685/ 776- 795/ 837)   0.0 E24-E16 S05-S01
     14  221  634 (S11E71 L=177)  4743    299        8 ( 155/ 539- 286/ 756) -66.8 E84-E62 S17-S03
     15 1749  719 (S25W49 L=296)   494     81        2 (1724/ 683-1774/ 756) -39.8 W46-W52 S27-S21
     16  519  682 (S09E38 L=210)   435    107        0 ( 484/ 655- 541/ 719) -45.0 E40-E35 S11-S06
     17  605  645 (S12E32 L=215)  1279    178        2 ( 545/ 582- 663/ 714)  26.6 E37-E27 S16-S08
     18  346  648 (S10E54 L=194)   400     80        1 ( 316/ 628- 380/ 670) -31.0 E56-E50 S11-S08
     19 1654  642 (S28W40 L=287)   447     95        0 (1601/ 626-1694/ 662)  -6.3 W35-W44 S29-S26
     20  706  519 (S22E29 L=219)  1147    162        1 ( 642/ 465- 751/ 574)  31.0 E35-E24 S24-S18
     21  361  473 (S23E62 L=185)  2288    214        5 ( 338/ 368- 385/ 570)  36.0 E77-E53 S31-S15
     22  822  545 (S21E20 L=227)   226     51        0 ( 799/ 525- 849/ 563)  26.6 E21-E17 S22-S20
     23 1713  472 (S44W55 L=302)   986     69        2 (1682/ 449-1740/ 506) -28.3 W49-W63 S47-S40
     24  993  165 (S57E25 L=222)   627     47        1 ( 966/ 144-1025/ 193)   6.3 E30-E21 S60-S53
  

    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