Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1154 1663 (N45W24 L=235)   834    147        2 (1098/1618-1223/1695) -36.9 W19-W28 N40-N47
      2  628 1582 (N48E24 L=186)  1733    403        2 ( 472/1492- 774/1640) -20.0 E44-E10 N39-N53
      3 1596 1528 (N26W53 L=264)   736     96        1 (1542/1498-1627/1558)   0.0 W48-W58 N24-N27
      4 1096 1499 (N34W13 L=224)  1445    342        3 ( 943/1473-1261/1520) -15.3 W02-W24 N30-N36
      5 1751 1421 (N16W63 L=273)  1498    153        1 (1689/1360-1796/1459) -45.0 W57-W67 N12-N19
      6 1474 1415 (N22W37 L=248)   248     47        0 (1438/1400-1499/1427) -26.6 W34-W39 N20-N23
      7 1768 1259 (N07W57 L=267)   367     42        0 (1741/1240-1790/1279) -21.8 W53-W58 N05-N08
      8  695 1244 (N24E18 L=192)   202     50        1 ( 671/1223- 720/1266) -45.0 E19-E16 N22-N25
      9  500 1019 (N12E34 L=177)   346    112        1 ( 446/ 999- 555/1033)   6.3 E38-E29 N11-N12
     10  196  918 (N08E64 L=147)   460     57        2 ( 177/ 888- 218/ 947) -45.0 E66-E60 N06-N09
     11  148  849 (N04E73 L=138)  1438    161        2 ( 114/ 774- 172/ 900) -45.0 E79-E68 S01-N06
     12  774  862 (S00E17 L=193)   289     55        1 ( 747/ 843- 808/ 885) -14.0 E19-E15 S01-N01
     13 1253  803 (S10W11 L=221)   737    202        3 (1195/ 724-1290/ 875)  71.6 W06-W13 S15-S06
     14 1118  812 (S08W03 L=213)   453    101        2 (1089/ 777-1143/ 855)  53.1 W00-W04 S09-S05
     15  402  792 (S01E45 L=166)   632    166        0 ( 326/ 759- 468/ 829) -20.0 E50-E39 S03-N02
     16 1145  753 (S12W03 L=214)   213     51        2 (1126/ 722-1164/ 782)  71.6 W02-W04 S13-S10
     17 1074  734 (S12E01 L=210)   216     68        1 (1043/ 715-1113/ 749)   0.0 E02-W01 S13-S10
     18 1140  694 (S16W02 L=213)   461    159        0 (1072/ 675-1204/ 738)  14.0 E02-W06 S16-S13
     19 1543  713 (S21W30 L=240)   451    101        1 (1496/ 689-1585/ 737)   9.5 W26-W33 S22-S20
     20 1278  620 (S23W10 L=221)  1787    299        6 (1185/ 566-1405/ 715)   3.6 W03-W19 S26-S15
     21  513  608 (S13E41 L=170)   753    248        1 ( 405/ 554- 597/ 656) -24.8 E48-E34 S17-S09
     22  461  527 (S18E48 L=163)  1146    210        5 ( 388/ 467- 512/ 578) -53.1 E53-E43 S22-S14
     23  739  458 (S26E29 L=182)  1072    303        3 ( 653/ 344- 817/ 569)  33.0 E40-E20 S33-S18
  

    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