Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1055 1751 (N38E23 L=278)   311     53        1 (1028/1734-1082/1772)   0.0 E25-E20 N36-N39
      2 1172 1691 (N38E13 L=289)   272     30        0 (1146/1679-1198/1707)  26.6 E14-E10 N36-N39
      3 1299 1632 (N38E02 L=299)   375     97        0 (1257/1607-1345/1651)   0.0 E04-W02 N35-N39
      4  530 1607 (N14E49 L=252)   331     66        1 ( 513/1575- 553/1642) -45.0 E51-E46 N12-N16
      5  571 1510 (N09E41 L=260)   460     78        0 ( 542/1477- 604/1545) -15.9 E44-E37 N07-N11
      6  270 1474 (N01E67 L=235)   628     88        0 ( 238/1455- 306/1492)  14.0 E71-E62 N00-N03
      7 1431 1343 (N23W15 L=316)   223     73        0 (1396/1314-1459/1370) -11.3 W11-W16 N21-N23
      8 1711 1212 (N25W38 L=339)   429    145        0 (1658/1161-1736/1248) -15.9 W32-W40 N21-N26
      9 1872 1095 (N24W57 L=358)   678    120        0 (1840/1049-1906/1147) -18.4 W51-W62 N22-N26
     10  646 1070 (S14E23 L=278)   333     97        2 ( 621/1032- 666/1123)  90.0 E23-E21 S16-S10
     11 1731  944 (N10W45 L=346)   425    116        2 (1710/ 891-1750/1002) -74.1 W43-W46 N06-N13
     12 1006  923 (S12W02 L=303)   455    177        0 ( 948/ 858-1056/ 993) -24.0 E03-W06 S14-S09
     13 1812  898 (N11W54 L=355)  1676    221        5 (1761/ 826-1875/ 983)  70.0 W50-W61 N05-N16
     14  926  835 (S19E00 L=301)   338    105        1 ( 879/ 810- 980/ 859)   9.5 E03-W03 S20-S18
     15 1755  797 (N03W52 L=353)   363     46        1 (1728/ 779-1780/ 819)  26.6 W50-W54 N02-N04
     16  769  735 (S29E07 L=294)   309    139        0 ( 731/ 686- 827/ 762)  60.3 E08-E03 S33-S26
     17  209  699 (S46E63 L=238)   756     66        2 ( 170/ 675- 241/ 726)  12.5 E74-E56 S48-S44
     18 1398  629 (S17W34 L=335)   317     93        0 (1352/ 609-1437/ 649)  38.7 W31-W36 S19-S15
     19  518  557 (S48E23 L=278)   737    175        2 ( 440/ 518- 591/ 596)   0.0 E31-E15 S50-S45
     20  834  474 (S44W06 L=307)   345    104        0 ( 793/ 444- 882/ 501)   0.0 W02-W10 S44-S41
     21 1424  361 (S30W52 L=353)   425     77        1 (1388/ 334-1455/ 394)  -5.7 W46-W56 S31-S28
     22 1571  333 (S26W68 L=  9)   768     71        0 (1545/ 302-1595/ 359)   0.0 W62-W73 S27-S24
     23 1010  200 (S56W42 L=343)   410     52        0 ( 992/ 171-1023/ 231) -26.6 W37-W47 S58-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