Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  955 1552 (N32E01 L=130)  1398    452        4 ( 796/1428-1104/1677) -45.0 E12-W07 N22-N42
      2 1423 1633 (N34W36 L=167)   273     47        0 (1394/1614-1445/1651)  11.3 W33-W38 N33-N35
      3 1252 1571 (N31W20 L=152)   584    149        1 (1184/1529-1315/1616) -40.6 W16-W24 N27-N34
      4  635 1529 (N33E24 L=107)   348     61        0 ( 607/1506- 666/1550) -31.0 E26-E21 N31-N34
      5 1404 1415 (N20W28 L=159)   219     90        0 (1370/1403-1452/1439) -31.0 W25-W30 N18-N21
      6  274 1327 (N22E54 L= 78)  1257    185        2 ( 216/1277- 316/1396)  26.6 E60-E48 N18-N26
      7  559 1323 (N20E28 L=103)   233     92        2 ( 518/1292- 600/1358) -26.6 E31-E25 N17-N21
      8  368 1317 (N21E44 L= 88)   417     75        2 ( 333/1282- 397/1357)  90.0 E46-E41 N18-N23
      9 1750 1128 (N00W50 L=181)   702    113        1 (1712/1090-1781/1160) -18.4 W46-W52 S01-N02
     10 1731  861 (S15W48 L=179)  1120    242        0 (1636/ 789-1814/ 946)  32.7 W40-W55 S19-S10
     11  606  845 (S10E27 L=104)   380     78        1 ( 575/ 807- 632/ 886)  45.0 E29-E25 S11-S07
     12 1539  585 (S32W35 L=166)  2798    606        5 (1352/ 416-1778/ 759)  34.1 W21-W54 S43-S21
     13  661  600 (S25E28 L=103)   777    198        2 ( 623/ 535- 732/ 687) -73.3 E30-E23 S29-S19
     14 1237  443 (S40W12 L=143)   789    142        3 (1195/ 394-1288/ 504) -48.4 W08-W16 S44-S35
     15 1314  257 (S57W24 L=155)   523     67        1 (1280/ 239-1348/ 282)   0.0 W19-W28 S59-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