Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  910 1900 (N73W45 L= 76)   961     90        1 ( 888/1865- 934/1944)   6.3 W30-W84 N68-N75
      2 1734 1494 (N15W66 L= 98)   618     88        2 (1694/1474-1768/1521)   0.0 W60-W72 N13-N15
      3 1233 1499 (N30W26 L= 57)   279     99        0 (1185/1486-1283/1511) -26.6 W23-W29 N28-N31
      4 1070 1337 (N24W10 L= 41)   933    337        1 ( 983/1210-1129/1464)  40.9 W01-W16 N18-N31
      5 1723 1419 (N12W60 L= 91)   832    124        2 (1684/1380-1763/1459) -71.6 W55-W63 N08-N14
      6  712 1286 (N29E14 L= 17)   606    207        1 ( 658/1197- 741/1371) -85.2 E17-E12 N23-N35
      7 1742 1216 (N00W52 L= 83)   914    173        1 (1702/1134-1780/1291) -90.0 W50-W53 S05-N05
      8  752 1143 (N20E14 L= 17)   251     46        0 ( 728/1120- 780/1168) -45.0 E15-E12 N18-N21
      9  595 1066 (N18E26 L=  5)   339    124        0 ( 539/1028- 629/1104) -50.2 E29-E23 N15-N21
     10  221  945 (N16E60 L=331)   432     78        0 ( 191/ 923- 253/ 964)   0.0 E64-E56 N14-N17
     11 1637  880 (S16W36 L= 67)   662    132        0 (1577/ 846-1698/ 923)   5.2 W30-W41 S17-S14
     12 1515  658 (S27W23 L= 55)   656    109        2 (1490/ 611-1538/ 713) -90.0 W21-W24 S30-S22
     13  625  657 (S07E33 L=359)   227     77        0 ( 608/ 621- 656/ 689)  31.0 E34-E29 S08-S05
     14  861  416 (S27E26 L=  5)   866    156        2 ( 792/ 382- 935/ 451)   4.8 E31-E19 S28-S25
  

    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