Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1307 1592 (N39W28 L=301)   897    161        4 (1230/1542-1385/1634)  10.6 W20-W36 N36-N41
      2  887 1568 (N41E06 L=267)   326     80        1 ( 848/1549- 929/1581)  -8.1 E09-E02 N39-N42
      3 1772 1481 (N25W69 L=342)   553     74        1 (1732/1463-1809/1498) -14.0 W63-W75 N23-N26
      4 1041 1268 (N20W03 L=276)   305     77        2 (1008/1243-1082/1293) -21.8 W00-W05 N18-N21
      5 1523 1230 (N13W34 L=308)   384    129        1 (1475/1203-1578/1250) -14.0 W30-W38 N11-N14
      6 1606 1149 (N08W39 L=313)   426    105        0 (1574/1096-1628/1185) -78.7 W37-W40 N04-N09
      7  277 1065 (N11E53 L=220)   823    216        3 ( 242/ 992- 315/1160) -84.3 E56-E49 N06-N16
      8  461 1075 (N11E37 L=237)   665    208        1 ( 387/1005- 528/1144) -36.9 E43-E31 N06-N15
      9  923 1090 (N10E06 L=268)   388    151        1 ( 891/1041- 989/1120)  18.4 E07-E01 N06-N11
     10 1898 1024 (S04W68 L=341)   685     92        1 (1858/ 995-1927/1059)   5.2 W61-W73 S05-S01
     11  287  733 (S10E56 L=218)  3068    448        4 ( 188/ 597- 342/ 874)  64.8 E65-E49 S19-S01
     12 1262  806 (S10W13 L=287)   384    184        0 (1227/ 742-1331/ 850)  45.0 W10-W17 S13-S07
     13  869  669 (S16E12 L=261)   365    184        0 ( 821/ 625- 913/ 706) -45.0 E15-E09 S18-S13
     14 1731  633 (S27W52 L=325)   757    124        0 (1684/ 594-1778/ 669)  24.0 W47-W56 S28-S24
     15 1407  648 (S22W23 L=296)   235     96        0 (1365/ 628-1451/ 664) -23.2 W19-W26 S23-S20
     16 1090  578 (S23W01 L=274)   596    212        0 (1011/ 522-1171/ 649)  35.0 E04-W06 S26-S19
     17  694  609 (S19E25 L=249)   249     62        0 ( 671/ 585- 725/ 639) -53.1 E26-E22 S20-S16
     18  230  610 (S18E70 L=204)   917     69        1 ( 209/ 572- 246/ 637)  32.0 E74-E65 S21-S16
     19 1585  492 (S35W40 L=314)   754     98        4 (1562/ 445-1619/ 534) -58.0 W37-W43 S39-S31
     20 1541  373 (S45W41 L=315)  2949    246        6 (1447/ 306-1625/ 437)  25.0 W31-W52 S49-S39
     21 1178  317 (S45W06 L=280)   321     50        1 (1153/ 299-1205/ 344) -53.1 W04-W08 S46-S42
     22  989  278 (S47E11 L=263)  1364    206        4 ( 897/ 239-1086/ 317)   0.0 E19-E01 S50-S43
     23  854  250 (S48E24 L=249)   437     61        1 ( 832/ 226- 883/ 279) -90.0 E26-E21 S50-S45
     24  743  218 (S51E39 L=235)  1517    166        3 ( 660/ 193- 810/ 249)   0.0 E50-E29 S54-S47
  

    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