Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1417 1648 (N32W49 L=347)   673    133        0 (1361/1610-1469/1687) -69.4 W47-W51 N28-N36
      2 1604 1601 (N24W61 L=359)   498     47        1 (1580/1572-1629/1623)  45.0 W58-W64 N22-N25
      3  708 1592 (N51E08 L=290)   269     73        0 ( 692/1557- 728/1620)  45.0 E09-E05 N48-N52
      4 1677 1594 (N20W69 L=  7)   732     86        1 (1637/1578-1724/1607) -29.1 W63-W74 N17-N22
      5 1037 1522 (N36W15 L=313)   548    108        2 ( 984/1491-1097/1539) -14.0 W11-W19 N34-N37
      6 1485 1442 (N19W41 L=339)   870    136        4 (1421/1401-1539/1475) -45.0 W36-W46 N15-N21
      7 1205 1348 (N21W19 L=317)   264     98        1 (1191/1298-1217/1388)  68.2 W17-W21 N18-N23
      8 1296 1180 (N09W20 L=318)   241    130        1 (1253/1128-1335/1229) -76.0 W18-W21 N05-N13
      9  540 1115 (N23E29 L=269)   906    340        2 ( 394/1082- 693/1146) -20.0 E40-E18 N18-N26
     10 1729 1084 (S08W47 L=345)   582    121        0 (1705/1032-1756/1140)  45.0 W44-W50 S10-S05
     11  361 1021 (N20E44 L=254)   936    183        2 ( 308/ 971- 403/1088)  81.9 E49-E40 N17-N24
     12  988 1064 (N10E01 L=297)   199     69        0 ( 955/1050-1029/1077) -14.0 E03-W01 N09-N11
     13 1345 1040 (N00W19 L=317)   223     66        1 (1328/1006-1371/1061)  18.4 W17-W20 S01-N01
     14  162 1003 (N22E68 L=230)   965    113        1 ( 128/ 953- 197/1049) -33.7 E74-E63 N18-N24
     15 1834  941 (S20W55 L=353)   970    181        0 (1766/ 906-1881/ 984) -12.1 W47-W61 S22-S16
     16 1279  921 (S05W12 L=310)   293     73        1 (1246/ 896-1310/ 946) -53.1 W10-W13 S06-S02
     17  416  889 (N12E42 L=256)   326    119        0 ( 357/ 867- 472/ 903) -18.4 E46-E37 N09-N13
     18 1339  636 (S23W10 L=308)  1249    369        2 (1246/ 512-1447/ 779)  33.7 W01-W19 S29-S17
     19 1548  530 (S38W24 L=322)   368     60        0 (1536/ 491-1560/ 566) -80.5 W22-W25 S40-S34
     20  748  477 (S19E31 L=267)   354     89        0 ( 721/ 439- 768/ 526)  81.9 E32-E30 S22-S15
     21  729  405 (S24E36 L=262)   291     82        0 ( 682/ 386- 769/ 423)   7.1 E40-E32 S24-S23
     22 1157  308 (S43E12 L=286)  2710    293        6 (1042/ 228-1231/ 423)  31.0 E23-E03 S48-S34
     23 1012  196 (S49E31 L=267)   502     54        1 ( 988/ 166-1030/ 225)  63.4 E34-E27 S52-S45
     24  949  160 (S50E41 L=257)   606     70        0 ( 917/ 144- 984/ 178) -31.0 E44-E36 S52-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