Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  733 1841 (N36E51 L=168)   630    194        0 ( 714/1808- 753/1883) -31.0 E57-E47 N33-N39
      2  629 1281 (S02E30 L=190)   232     84        0 ( 595/1264- 667/1311)   0.0 E32-E27 S03-S01
      3  374 1139 (S16E44 L=176)   609    156        0 ( 323/1074- 432/1183)  45.0 E46-E39 S20-S12
      4 1859 1148 (N27W53 L=273)   440     66        1 (1837/1126-1879/1176) -45.0 W50-W55 N25-N29
      5 1712 1085 (N18W40 L=260)   344     74        0 (1686/1044-1730/1119) -36.9 W37-W42 N15-N19
      6 1592  981 (N08W34 L=254)   926    171        1 (1539/ 904-1655/1061) -28.6 W28-W40 N05-N11
      7  503  989 (S22E31 L=189)   322    111        0 ( 472/ 957- 547/1041) -26.6 E33-E27 S22-S19
      8 1903  895 (N15W65 L=285)  3303    351        3 (1869/ 773-1929/1021) -42.9 W57-W74 N08-N21
      9 1080  954 (S08W05 L=225)   213     73        0 (1070/ 915-1090/ 997) -53.1 W03-W06 S10-S06
     10  718  909 (S21E14 L=205)   250     86        1 ( 671/ 892- 761/ 927)   9.5 E17-E11 S21-S19
     11  363  737 (S41E38 L=181)  1125    332        3 ( 260/ 711- 484/ 759)  12.8 E49-E27 S44-S36
     12 1053  601 (S29W15 L=235)   356    132        0 ( 981/ 589-1117/ 620)  35.5 W10-W18 S30-S25
     13 1374  576 (S20W35 L=255)   280    121        0 (1319/ 562-1427/ 604)  14.0 W30-W38 S20-S18
     14 1542  547 (S16W47 L=267)   299     91        1 (1506/ 530-1575/ 566)  18.4 W44-W50 S17-S15
  

    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