Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  460 1443 (N46E34 L= 55)   564    159        2 ( 387/1422- 540/1466)  -3.4 E42-E25 N44-N46
      2  992 1041 (N09E02 L= 87)   298    105        1 ( 965/1003-1011/1096)  53.1 E03-W00 N06-N11
      3  277  913 (N15E54 L= 35)  1365    232        5 ( 222/ 821- 323/1026) -65.2 E59-E50 N09-N22
      4  207  869 (N13E63 L= 26)   675    125        1 ( 191/ 815- 229/ 931) -90.0 E65-E60 N09-N16
      5  152  884 (N14E71 L= 18)   613    101        4 ( 130/ 844- 173/ 917)  59.0 E75-E67 N11-N16
      6 1488  823 (S16W23 L=112)   779    194        1 (1440/ 730-1545/ 898)  41.6 W18-W28 S20-S12
      7 1633  790 (S22W33 L=122)   412    178        0 (1613/ 713-1653/ 880)  56.3 W30-W36 S26-S17
      8 1121  683 (S15E02 L= 87)   679    313        2 (1065/ 588-1186/ 799)  42.3 E07-W04 S19-S09
      9 1289  594 (S25W06 L= 95)   985    239        1 (1219/ 522-1392/ 673)  19.7 W00-W14 S28-S22
     10 1705  644 (S35W40 L=128)   468     39        1 (1685/ 624-1731/ 670)  56.3 W37-W42 S36-S32
     11  270  613 (S03E66 L= 23)   620     66        0 ( 254/ 583- 294/ 648) -78.7 E68-E63 S05-N00
     12 1443  538 (S33W15 L=104)   710    185        1 (1388/ 475-1477/ 631)  48.4 W10-W18 S36-S27
     13 1088  480 (S27E10 L= 79)   765    202        1 (1041/ 434-1160/ 559) -78.7 E11-E05 S31-S21
     14  735  263 (S35E46 L= 43)  1883    261        2 ( 683/ 162- 782/ 392)  42.4 E62-E39 S44-S23
  

    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