Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1607 1590 (N23W54 L=255)  1652    284        2 (1503/1549-1711/1650) -32.7 W48-W64 N18-N28
      2 1697 1437 (N12W54 L=255)   685    100        1 (1630/1380-1738/1474) -53.1 W49-W57 N07-N15
      3 1150 1416 (N22W16 L=216)  2342    447        7 ( 924/1382-1445/1442) -16.9 W01-W34 N16-N27
      4 1565 1316 (N08W39 L=240)   260     51        0 (1535/1293-1592/1335) -45.0 W37-W41 N05-N09
      5 1563 1252 (N04W37 L=238)   314     44        1 (1544/1227-1586/1279) -90.0 W35-W39 N02-N05
      6 1255 1256 (N11W18 L=219)   299    141        0 (1184/1215-1291/1278) -33.7 W13-W19 N07-N12
      7  140 1206 (N29E62 L=138)   642    216        0 ( 110/1187- 178/1239) -26.6 E66-E58 N27-N31
      8  700 1156 (N16E17 L=184)   627    156        2 ( 628/1089- 757/1202) -53.1 E20-E13 N10-N19
      9 1832 1100 (S10W56 L=257)   880    204        2 (1780/1064-1885/1131)  -9.5 W51-W63 S11-S08
     10  206 1075 (N20E56 L=145)   497     84        1 ( 181/1039- 229/1107) -51.3 E58-E53 N17-N22
     11 1795 1017 (S14W51 L=251)  1282    275        6 (1734/ 963-1851/1074)  24.4 W45-W57 S17-S11
     12 1872 1011 (S16W59 L=260)   440    109        0 (1851/ 957-1890/1046) -80.5 W57-W60 S19-S13
     13 1817  919 (S20W52 L=252)  1016    226        3 (1767/ 833-1851/ 979)  71.6 W47-W55 S25-S16
     14 1527  939 (S13W29 L=229)   432    157        0 (1476/ 881-1553/ 976) -56.3 W25-W30 S16-S10
     15  297  601 (S09E60 L=140)   737    217        2 ( 280/ 539- 314/ 672)  45.0 E65-E56 S12-S05
     16  248  615 (S08E65 L=135)   564    107        1 ( 234/ 572- 264/ 667)  63.4 E68-E63 S10-S04
     17  629  501 (S21E37 L=164)   617    190        4 ( 577/ 448- 662/ 581)  37.9 E42-E32 S24-S16
     18 1196  499 (S33E00 L=200)   895    200        1 (1093/ 441-1262/ 576)  21.0 E08-W05 S35-S29
     19  744  402 (S30E33 L=167)  1131    256        1 ( 689/ 326- 806/ 497)  32.0 E41-E25 S34-S24
     20  530  434 (S24E47 L=153)   315    116        0 ( 479/ 425- 576/ 443) -15.9 E50-E43 S24-S22
  

    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