Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  832 1854 (N41E50 L=  8)  2027    185        4 ( 761/1803- 908/1924)  -9.2 E78-E39 N36-N46
      2  515 1654 (N18E55 L=  2)  1603    268        2 ( 445/1542- 594/1748) -76.0 E60-E52 N09-N25
      3  811 1675 (N27E35 L= 23)   531    115        2 ( 768/1638- 866/1708) -11.3 E39-E29 N25-N28
      4 1575 1652 (N54W22 L= 80)   490     63        1 (1543/1626-1598/1678) -15.9 W18-W25 N51-N56
      5 1403 1536 (N36W08 L= 66)   422    120        0 (1362/1483-1444/1584) -20.6 W04-W12 N33-N38
      6  323 1515 (N05E65 L=353)   796    104        0 ( 288/1489- 377/1550)  -7.6 E72-E57 N04-N07
      7  626 1500 (N11E38 L= 20)   251     68        0 ( 597/1469- 652/1523)  76.0 E38-E36 N08-N12
      8 1016 1474 (N20E14 L= 44)   320     87        0 ( 971/1455-1061/1493)   9.5 E16-E10 N18-N20
      9  586 1282 (S03E33 L= 25)   459    142        1 ( 518/1229- 634/1325)  60.3 E35-E29 S07-N00
     10 1569 1197 (N20W27 L= 85)   248     49        0 (1553/1168-1583/1223) -45.0 W26-W29 N18-N22
     11  165 1032 (S26E66 L=351)   858    122        2 ( 120/ 990- 208/1077)  21.0 E75-E59 S29-S22
     12  288 1035 (S24E50 L=  7)   367     29        0 ( 264/1014- 311/1056)   0.0 E52-E47 S24-S22
     13 1815 1015 (N18W53 L=110)   364     92        0 (1786/ 977-1846/1051)  50.2 W50-W55 N15-N21
     14  441 1002 (S22E36 L= 22)   300     71        1 ( 419/ 962- 460/1030) -36.9 E38-E33 S23-S20
     15 1182  965 (S04W10 L= 68)   292    101        2 (1158/ 910-1207/1011) -71.6 W09-W11 S07-S01
     16 1911  926 (N17W69 L=126)   998     71        1 (1880/ 902-1948/ 950)  23.2 W63-W78 N14-N20
     17  648  889 (S23E19 L= 39)   233     51        0 ( 629/ 865- 665/ 916) -71.6 E19-E17 S24-S21
     18 1712  655 (S04W56 L=114)   650    103        1 (1672/ 618-1751/ 679)  45.0 W53-W59 S07-S02
     19  895  582 (S34W06 L= 64)   925    193        2 ( 842/ 524- 971/ 629)   5.7 W01-W11 S38-S30
     20 1393  390 (S29W48 L=106)   335     95        1 (1338/ 377-1433/ 413)  38.7 W45-W51 S31-S26
  

    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