Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  884 1502 (N29E16 L= 52)  1347    354        3 ( 767/1378-1001/1630) -32.5 E28-E06 N21-N36
      2 1208 1597 (N40W05 L= 73)   278     37        0 (1184/1581-1239/1614) -11.3 W03-W08 N39-N41
      3  558 1418 (N19E37 L= 31)  1919    286        4 ( 475/1271- 619/1541) -39.8 E47-E29 N10-N25
      4 1272 1465 (N32W11 L= 79)   394    114        2 (1249/1413-1288/1507)  90.0 W09-W12 N27-N34
      5 1546 1245 (N20W32 L=100)   546    170        0 (1518/1161-1567/1330) -73.3 W29-W33 N15-N25
      6 1342 1241 (N18W17 L= 85)   791    280        0 (1261/1171-1391/1309)  66.0 W12-W20 N13-N22
      7 1796 1083 (N13W54 L=122)   905    138        1 (1772/1025-1832/1137)  66.8 W52-W58 N09-N16
      8  891 1111 (N04E09 L= 59)   350    138        0 ( 821/1097- 961/1124)  18.4 E13-E04 N02-N05
      9  245  970 (S12E55 L= 13)   983    199        1 ( 185/ 941- 306/1017) -13.0 E62-E48 S13-S10
     10 1838  992 (N08W60 L=128)   440    147        0 (1801/ 977-1880/1016)   0.0 W55-W65 N07-N09
     11  205  912 (S17E59 L=  9)   518    131        2 ( 176/ 884- 239/ 938) -15.9 E62-E55 S17-S15
     12 1586  728 (S11W41 L=109)   395    146        0 (1554/ 699-1641/ 776) -14.0 W38-W46 S12-S07
     13 1366  393 (S36W36 L=104)  1818    336        4 (1223/ 366-1521/ 425)  12.3 W25-W49 S39-S31
  

    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