Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  385 1589 (N11E63 L=189)  3366    260        7 ( 301/1512- 440/1677) -76.0 147-E53 N08-S-2
      2  751 1583 (N19E34 L=218)   247    101        0 ( 734/1535- 763/1621) -63.4 E38-E31 N17-N21
      3 1064 1604 (N29E16 L=236)   261     55        1 (1037/1583-1084/1621) -14.0 E19-E14 N29-N30
      4  625 1514 (N12E39 L=213)   375     72        1 ( 590/1488- 647/1545)  68.2 E43-E36 N11-N13
      5  828 1462 (N14E24 L=228)   445    124        0 ( 773/1418- 886/1524)  76.0 E30-E19 N13-N16
      6 1169 1437 (N22E04 L=249)   721    124        1 (1143/1372-1202/1501) -49.4 E07-W00 N19-N25
      7  199 1228 (S13E65 L=188)  7822    995       15 ( 125/1094- 268/1419) -68.2 147-E53 S20-S-2
      8  722 1307 (N02E25 L=228)   465    121        0 ( 693/1247- 742/1362) -45.0 E28-E22 S01-N05
      9  626 1291 (S01E30 L=222)   486    117        3 ( 571/1259- 665/1315)   9.5 E34-E27 S02-S01
     10 1397 1298 (N20W14 L=267)   244     71        0 (1366/1271-1435/1313)  53.1 W12-W18 N20-N20
     11 1063 1238 (N07E04 L=249)   567    169        2 ( 986/1191-1127/1279)  -7.1 E09-W01 N06-N07
     12  267 1221 (S13E56 L=196)   392     95        0 ( 251/1198- 290/1253) -76.0 E59-E53 S13-S11
     13  359 1137 (S16E45 L=207)  2725    825        5 ( 186/1002- 539/1251)  26.1 E67-E29 S19-S12
     14  953 1135 (S01E07 L=246)   643    200        0 ( 892/1102-1050/1205)   0.0 E12-E01 S01-N01
     15 1390 1130 (N10W18 L=270)   205     49        1 (1369/1109-1410/1161) -56.3 W16-W20 N10-N11
     16 1839 1102 (N24W56 L=308)   415     39        0 (1824/1070-1857/1126)  90.0 W54-W59 N23-N25
     17  531  930 (S24E28 L=224)   930    236        3 ( 483/ 869- 578/ 990)  90.0 E33-E23 S26-S21
     18  855  947 (S14E07 L=245)   329    110        2 ( 822/ 910- 883/ 985) -45.0 E10-E05 S16-S13
     19  769  801 (S25E09 L=243)   688    210        1 ( 638/ 744- 860/ 880)  -3.2 E19-E02 S26-S24
     20 1269  789 (S12W20 L=273)   265     61        0 (1241/ 765-1306/ 810)  63.4 W18-W23 S12-S11
     21  230  754 (S42E60 L=192)   568    103        1 ( 209/ 719- 258/ 781)  35.5 E62-E57 S44-S40
     22 1601  552 (S14W52 L=305)   626    122        0 (1569/ 505-1619/ 613) -56.3 W46-W57 S16-S12
     23  603  565 (S45E16 L=236)   333     96        0 ( 582/ 521- 627/ 609) -50.2 E19-E13 S47-S42
     24  728  439 (S50E01 L=251)   326     80        0 ( 711/ 401- 754/ 472) -33.7 E04-W03 S51-S48
     25 1525  419 (S23W56 L=308)   772    206        2 (1460/ 381-1576/ 461)   0.0 W48-W64 S23-S23
     26 1151  431 (S35W30 L=282)   417     35        1 (1126/ 409-1180/ 457)  76.0 W27-W34 S36-S35
     27  985  355 (S46W25 L=277)  1931    248        2 ( 848/ 318-1087/ 402)  20.2 W11-W35 S45-S48
  

    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