Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1692 1537 (N29W64 L=196)  2106    212        4 (1646/1453-1736/1609)  65.6 W59-W75 N22-N33
      2 1377 1549 (N35W34 L=166)   531     96        1 (1344/1503-1402/1583)  35.5 W30-W37 N31-N36
      3 1007 1399 (N29W03 L=135)   342    121        0 ( 984/1336-1048/1445) -76.0 W01-W04 N24-N32
      4  573 1309 (N27E29 L=103)  2106    475        2 ( 441/1189- 767/1363)  11.8 E39-E14 N19-N30
      5 1491 1278 (N16W34 L=166)   828    219        1 (1429/1217-1555/1341) -71.6 W29-W38 N11-N20
      6  240 1199 (N21E60 L= 73)   886    143        3 ( 220/1140- 269/1246)  63.4 E62-E56 N17-N23
      7  597 1091 (N13E27 L=105)   488    125        1 ( 534/1053- 648/1131) -20.6 E31-E23 N10-N15
      8 1751  856 (S14W50 L=182)   514     46        0 (1723/ 833-1775/ 879)   0.0 W47-W52 S15-S12
      9  415  721 (S09E45 L= 87)   603    157        2 ( 393/ 633- 437/ 778)  66.0 E46-E41 S14-S05
     10 1279  503 (S31W13 L=145)   338     98        1 (1227/ 487-1321/ 515)  -8.1 W08-W15 S32-S29
     11  595  393 (S33E42 L= 90)   702    139        0 ( 562/ 343- 640/ 461) -90.0 E43-E39 S37-S27
     12 1021  428 (S34E07 L=125)   374    109        0 ( 966/ 413-1081/ 441) -20.6 E10-E02 S35-S32
     13 1049  196 (S57E11 L=121)   671     87        0 (1002/ 181-1106/ 210)   0.0 E16-E04 S58-S54
  

    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