Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1058 1439 (N25W10 L=145)  1357    244        5 ( 912/1365-1183/1533) -45.0 W02-W16 N18-N33
      2  557 1489 (N38E24 L=110)   335     68        1 ( 525/1466- 587/1506) -18.4 E27-E21 N36-N39
      3 1705 1438 (N13W55 L=190)   813    102        2 (1669/1394-1748/1479) -56.3 W52-W57 N09-N15
      4 1021 1216 (N12W03 L=138)   569    178        2 ( 936/1168-1120/1265) -41.6 E01-W08 N08-N16
      5 1386 1134 (N01W23 L=158)   219     92        0 (1346/1107-1428/1175)  18.4 W20-W26 N00-N02
      6 1543 1037 (S07W32 L=166)   245    112        0 (1488/1021-1592/1049) -26.6 W28-W34 S08-S05
      7 1223  939 (S07W10 L=145)   573    190        2 (1174/ 850-1260/1037)  55.0 W05-W12 S11-S01
      8 1501  784 (S21W26 L=160)  1618    564        2 (1242/ 661-1623/ 982)  23.4 W06-W36 S25-S11
      9  239  898 (N07E56 L= 79)  1846    466        4 ( 111/ 798- 344/ 968) -25.6 E70-E47 N00-N12
     10 1532  636 (S32W27 L=162)  1726    317        0 (1395/ 530-1659/ 768)  24.4 W15-W37 S36-S25
     11 1824  671 (S36W54 L=189)   605    155        1 (1793/ 656-1865/ 696) -12.5 W50-W59 S37-S33
     12  520  490 (S22E45 L= 90)   561    206        2 ( 493/ 415- 550/ 550)  37.9 E50-E41 S25-S17
     13  381  509 (S18E56 L= 79)   369     86        0 ( 361/ 468- 407/ 543)  80.5 E57-E53 S21-S15
  

    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