Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1536 1745 (N32W64 L=295)   607     46        0 (1509/1721-1563/1765)   0.0 W58-W68 N30-N33
      2 1311 1687 (N35W40 L=271)   555    136        0 (1273/1632-1348/1737)  76.0 W37-W41 N30-N38
      3  663 1612 (N48E11 L=220)   341     38        1 ( 642/1585- 691/1633)  14.0 E13-E08 N45-N49
      4 1486 1570 (N23W45 L=276)   767    152        2 (1445/1516-1527/1626)  74.1 W42-W47 N19-N26
      5 1582 1555 (N20W51 L=283)   922    278        4 (1522/1477-1640/1625) -90.0 W43-W55 N15-N24
      6  512 1573 (N49E26 L=205)   535    110        1 ( 486/1533- 544/1614) -81.9 E29-E22 N45-N52
      7 1071 1547 (N32W16 L=248)  1419    368        3 ( 891/1520-1228/1576) -16.9 W04-W27 N28-N36
      8 1537 1280 (N06W36 L=268)   859    202        4 (1441/1247-1615/1320) -18.4 W30-W42 N03-N08
      9 1267 1264 (N11W19 L=250)   208     81        1 (1244/1232-1297/1295)  36.9 W17-W21 N09-N12
     10  458 1103 (N19E33 L=198)  1250    401        1 ( 297/1020- 598/1190) -34.3 E46-E24 N11-N27
     11  206  910 (N13E59 L=172)   749    163        2 ( 173/ 834- 228/ 994) -90.0 E61-E56 N08-N18
     12  849  954 (N03E11 L=220)   243     78        1 ( 817/ 918- 886/ 987)   0.0 E13-E08 N00-N04
     13  769  898 (N01E17 L=214)   222     77        0 ( 743/ 868- 784/ 936)  56.3 E19-E15 N00-N03
     14 1262  864 (S11W10 L=241)   639    185        4 (1166/ 829-1334/ 900) -24.0 W04-W14 S13-S08
     15 1254  766 (S16W08 L=239)   200     69        2 (1218/ 751-1282/ 782)   0.0 W05-W09 S17-S15
     16 1787  707 (S34W48 L=280)   841    127        0 (1726/ 674-1831/ 752)   9.5 W41-W54 S35-S32
     17  836  682 (S12E18 L=213)   263    101        0 ( 789/ 664- 878/ 713)   0.0 E21-E15 S12-S11
     18  702  658 (S11E27 L=204)   207     85        0 ( 688/ 620- 729/ 690)  53.1 E28-E24 S13-S09
     19  870  446 (S27E24 L=207)   378    113        0 ( 823/ 406- 901/ 491)  26.6 E28-E20 S29-S24
     20  352  399 (S20E70 L=162)   803     66        3 ( 331/ 364- 382/ 424)  39.8 E76-E65 S22-S17
     21  650  371 (S27E43 L=188)  1374    185        2 ( 568/ 318- 744/ 406)   3.2 E52-E34 S29-S24
     22 1106  291 (S45E16 L=215)  1806    359        1 ( 942/ 239-1244/ 383)   2.0 E30-E01 S47-S40
  

    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