Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1457 1652 (N40W32 L=110)   340     36        0 (1439/1625-1481/1674)  53.1 W29-W34 N37-N41
      2 1535 1483 (N27W34 L=112)   273     22        1 (1515/1463-1553/1500) -33.7 W32-W35 N26-N28
      3  270 1358 (N15E57 L= 21)   607    105        0 ( 245/1311- 302/1414)  66.8 E58-E54 N11-N18
      4  480 1265 (N09E36 L= 42)   238     77        0 ( 450/1250- 522/1284)   0.0 E38-E33 N07-N10
      5 1831 1095 (N05W57 L=135)   697     95        3 (1805/1036-1859/1139) -71.6 W54-W60 N01-N07
      6  977  880 (S13E02 L= 76)   268    113        0 ( 930/ 850-1029/ 895)  11.3 E05-W00 S14-S11
      7  194  839 (S17E63 L= 15)   815    148        2 ( 140/ 790- 250/ 877)  12.5 E73-E55 S19-S14
      8 1155  750 (S20W10 L= 88)   603    134        2 (1093/ 697-1203/ 814)  81.9 W05-W12 S23-S16
      9  173  753 (S22E69 L=  9)   942    100        3 ( 133/ 716- 199/ 784) -29.7 E75-E65 S24-S19
     10  893  735 (S22E07 L= 71)   511    168        0 ( 816/ 707- 972/ 765) -10.3 E12-E01 S23-S20
     11 1628  718 (S19W44 L=122)   520     87        0 (1585/ 691-1667/ 750)  38.7 W40-W46 S21-S16
     12 1287  517 (S35W22 L=100)   573    105        1 (1253/ 482-1321/ 556)  45.0 W19-W24 S37-S32
     13 1009  164 (S68W07 L= 85)   475     54        0 ( 982/ 142-1036/ 189) -26.6 W02-W12 S71-S65
  

    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