Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1035 1603 (N40W20 L=331)   560    149        0 ( 985/1566-1101/1636) -40.6 W17-W24 N35-N43
      2 1446 1621 (N27W48 L=359)   457     88        0 (1400/1605-1498/1635) -18.4 W44-W53 N25-N28
      3 1499 1508 (N19W45 L=356)   316     66        0 (1462/1487-1527/1524) -36.9 W42-W46 N17-N21
      4 1007 1372 (N27W09 L=320)  1491    226        5 ( 898/1306-1089/1427)  -8.1 W01-W15 N21-N29
      5  700 1312 (N32E12 L=299)   375    129        0 ( 639/1294- 760/1330) -20.6 E16-E08 N29-N32
      6  341 1298 (N40E43 L=268)   379     70        2 ( 299/1282- 380/1312) -16.7 E48-E38 N37-N41
      7 1734 1083 (S10W45 L=356)  1742    351        1 (1689/ 958-1763/1248)  40.9 W38-W53 S15-S02
      8 1889 1121 (S14W63 L= 14)   498     82        1 (1874/1078-1907/1160)  45.0 W61-W66 S16-S12
      9  635 1087 (N20E21 L=290)  1446    338        2 ( 476/1054- 793/1117) -15.9 E32-E11 N15-N22
     10 1865 1057 (S16W58 L=  9)  1240    143        5 (1816/ 998-1923/1100) -48.4 W52-W67 S21-S12
     11  415  891 (N14E41 L=270)  2202    353        5 ( 371/ 743- 487/1038)  76.8 E44-E36 N04-N21
     12  901  986 (N08E08 L=303)   291    101        0 ( 869/ 942- 935/1026) -71.6 E08-E06 N04-N10
     13 1339  843 (S11W13 L=324)   568    166        0 (1276/ 792-1399/ 890)  12.5 W08-W17 S12-S09
     14 1472  698 (S24W18 L=329)  1251    446        1 (1386/ 487-1535/ 864)  48.0 W07-W25 S35-S15
     15  270  734 (N07E59 L=252)   776     98        2 ( 236/ 696- 310/ 775) -39.8 E61-E55 N04-N09
     16  210  698 (N06E68 L=243)   912    100        1 ( 195/ 642- 229/ 753)  36.9 E72-E63 N02-N08
     17  928  492 (S21E21 L=290)   590     92        2 ( 899/ 449- 962/ 529)  31.0 E23-E17 S23-S18
     18  615  444 (S17E43 L=268)   464     99        0 ( 596/ 393- 639/ 486)  56.3 E46-E40 S19-S13
     19  500  444 (S14E51 L=260)  1204    204        2 ( 443/ 388- 585/ 477)   0.0 E57-E43 S18-S11
     20  885  410 (S25E27 L=284)   304     58        1 ( 867/ 376- 900/ 438)  76.0 E28-E24 S27-S23
     21 1596  357 (S57W27 L=338)   722     86        2 (1562/ 335-1629/ 380) -30.3 W21-W33 S60-S52
     22  541  338 (S22E56 L=255)  1741    201        4 ( 475/ 284- 608/ 379)   3.6 E63-E47 S26-S18
     23  831  182 (S41E48 L=263)  1555    162        2 ( 791/ 120- 871/ 260)  23.2 E64-E36 S47-S35
  

    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