Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  600 1679 (N42E33 L= 78)   477     83        0 ( 583/1633- 618/1720) -60.3 E34-E30 N38-N45
      2 1647 1633 (N35W55 L=166)  1095     90        1 (1595/1601-1689/1664) -20.6 W50-W60 N32-N37
      3 1221 1538 (N28W15 L=126)   956    298        4 (1088/1483-1342/1596) -26.6 W06-W22 N24-N32
      4  303 1517 (N32E57 L= 54)   465     54        1 ( 269/1494- 335/1539) -10.3 E63-E52 N30-N33
      5  763 1472 (N26E16 L= 95)   234     61        0 ( 750/1440- 776/1508)  90.0 E16-E14 N23-N28
      6 1430 1487 (N25W29 L=140)   221     39        1 (1407/1473-1456/1500) -33.7 W27-W30 N23-N25
      7  306 1357 (N21E50 L= 61)   446     73        0 ( 288/1322- 325/1397) -68.2 E52-E47 N18-N23
      8 1487 1355 (N16W31 L=142)   356     98        1 (1445/1320-1531/1387)  23.2 W27-W34 N13-N18
      9 1907  963 (S08W66 L=177)  1428    197        8 (1865/ 903-1944/1042) -60.9 W60-W72 S11-S02
     10  504  954 (S05E33 L= 78)   471    147        0 ( 449/ 908- 541/ 990) -45.0 E36-E30 S07-S02
     11 1781  929 (S10W52 L=163)  1069    196        3 (1701/ 876-1871/ 989)  18.4 W44-W61 S12-S06
     12  595  909 (S08E27 L= 84)   338     82        1 ( 578/ 865- 621/ 948) -90.0 E28-E25 S10-S05
     13  199  817 (S11E61 L= 50)  2669    317        9 ( 142/ 702- 277/ 913)  53.1 E69-E51 S18-S05
     14 1796  829 (S16W54 L=165)  4100    388        9 (1664/ 736-1901/ 910)  14.6 W42-W67 S21-S10
     15  707  859 (S11E20 L= 91)   665    199        4 ( 615/ 832- 812/ 880)   0.0 E26-E13 S12-S10
     16  386  718 (S18E45 L= 66)  1922    447        0 ( 291/ 611- 456/ 867)  86.4 E58-E38 S24-S08
     17 1225  669 (S25W12 L=123)   492    175        0 (1176/ 601-1275/ 747)  60.9 W08-W15 S28-S19
     18 1809  644 (S27W62 L=173)   474     79        0 (1775/ 615-1838/ 676)  33.7 W58-W64 S28-S24
     19  730  398 (S41E27 L= 84)  1905    401        2 ( 572/ 281- 869/ 526)  21.5 E50-E12 S49-S32
     20 1118  210 (S60W06 L=117)   934     96        2 (1076/ 174-1172/ 237)  15.3 W01-W12 S64-S57
  

    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