Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  936 1632 (N29E24 L= 30)  1087    229        3 ( 898/1554- 988/1717) -48.0 E29-E18 N24-N34
      2  994 1474 (N21E14 L= 40)   363     76        1 ( 948/1448-1033/1498)   0.0 E17-E11 N19-N22
      3  815 1360 (N09E21 L= 33)   821    182        1 ( 763/1284- 854/1455) -84.8 E22-E19 N04-N15
      4 1125 1399 (N20E04 L= 50)   225     38        1 (1099/1375-1149/1424) -26.6 E06-E02 N18-N21
      5  751 1187 (S02E20 L= 34)   365    131        0 ( 707/1154- 811/1235)  -7.1 E23-E15 S03-N00
      6  385 1139 (S13E43 L= 11)   303     95        0 ( 358/1118- 423/1166)   0.0 E45-E39 S14-S11
      7 1734 1028 (N16W45 L= 99)  2099    313        4 (1665/ 870-1767/1163) -45.0 W36-W51 N07-N22
      8  240 1020 (S23E53 L=  1)  1259    235        1 ( 171/ 950- 280/1114)  57.5 E59-E50 S28-S16
      9  554 1040 (S15E28 L= 26)   725    249        0 ( 462/1001- 675/1076)  29.7 E34-E20 S19-S11
     10  774 1010 (S11E14 L= 40)   231     76        1 ( 729/ 996- 807/1030)  21.8 E16-E11 S13-S09
     11  584  866 (S24E23 L= 31)   221     75        0 ( 549/ 849- 629/ 887)   9.5 E25-E19 S24-S23
     12 1156  789 (S14W14 L= 68)   573    162        2 (1117/ 715-1214/ 848)  83.7 W11-W16 S18-S09
     13  372  723 (S39E38 L= 16)  2221    383        4 ( 234/ 661- 519/ 823)  -4.1 E52-E24 S42-S34
     14  982  702 (S23W06 L= 60)   590    205        1 ( 877/ 677-1086/ 721)  17.1 W00-W13 S26-S21
     15 1454  463 (S24W45 L= 99)  1594    431        0 (1251/ 386-1620/ 583)  55.7 W35-W53 S34-S12
  

    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