Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  474 1657 (N17E58 L= 49)   493     80        2 ( 454/1626- 497/1688) -24.0 E62-E53 N15-N19
      2 1051 1421 (N16E09 L= 97)   474    172        0 (1009/1346-1082/1494) -41.2 E13-E05 N12-N19
      3 1184 1371 (N17E00 L=106)   394    101        0 (1138/1354-1231/1398)  21.8 E03-W02 N15-N18
      4 1718 1353 (N33W38 L=144)   316     64        0 (1695/1325-1741/1380) -21.8 W35-W40 N31-N34
      5 1285 1276 (N14W08 L=114)   229    101        0 (1269/1229-1312/1323) -51.3 W06-W10 N11-N16
      6 1715  790 (N00W50 L=156)   672     98        1 (1690/ 743-1739/ 834) -23.2 W46-W53 S01-N02
      7 1332  733 (S14W26 L=132)   199     72        0 (1312/ 713-1364/ 761) -14.0 W24-W28 S15-S13
      8 1020  551 (S34W15 L=121)  1555    480        3 ( 847/ 494-1232/ 672)  51.0 W04-W23 S42-S21
      9 1412  530 (S23W40 L=146)   566    135        4 (1360/ 498-1455/ 569)  26.6 W36-W44 S25-S20
     10 1465  460 (S25W48 L=154)   296     64        1 (1443/ 435-1479/ 490) -76.0 W45-W49 S26-S22
     11 1154  406 (S38W31 L=137)   266     65        0 (1141/ 375-1167/ 443) -51.3 W28-W32 S40-S35
     12 1537  370 (S27W61 L=168)   510     97        1 (1505/ 332-1579/ 415) -74.1 W59-W64 S29-S22
     13 1089  313 (S46W34 L=140)   346     91        1 (1045/ 301-1140/ 327)  26.6 W29-W37 S48-S43
  

    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