Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  991 1647 (N40E14 L=123)   556    111        2 ( 960/1603-1010/1684)  90.0 E17-E11 N36-N43
      2 1406 1566 (N41W20 L=157)   596    164        0 (1355/1523-1460/1601)  35.0 W15-W25 N37-N44
      3  379 1454 (N17E53 L= 84)   605    145        1 ( 328/1421- 423/1503)  54.5 E57-E50 N13-N20
      4 1299 1465 (N32W12 L=149)   266     38        1 (1274/1441-1322/1483)  33.7 W10-W13 N30-N33
      5  948 1263 (N13E08 L=129)   364     78        1 ( 904/1239- 976/1294)  53.1 E10-E06 N11-N15
      6  958 1158 (N07E06 L=131)   834    311        1 ( 846/1035-1062/1235) -29.7 E13-W01 N01-N10
      7 1879 1083 (N16W64 L=201)   674    123        0 (1853/1030-1898/1130) -39.8 W59-W67 N12-N18
      8  231  990 (S14E56 L= 81)   674    140        3 ( 198/ 930- 260/1055)  82.9 E59-E53 S17-S09
      9  626  967 (S09E24 L=113)   519    174        0 ( 546/ 934- 693/1007)  26.6 E29-E19 S11-S05
     10  960  872 (S10E02 L=136)   817    156        3 ( 927/ 780- 987/ 955) -79.7 E04-W00 S15-S04
     11 1409  772 (S09W28 L=165)   316    107        0 (1380/ 729-1455/ 829)  66.8 W26-W29 S12-S05
     12 1562  749 (S09W39 L=177)   452    118        0 (1520/ 695-1594/ 810)  76.0 W37-W41 S12-S04
     13  411  565 (S39E41 L= 97)   450    148        1 ( 367/ 542- 456/ 590)  21.8 E45-E35 S41-S36
     14 1137  379 (S40W21 L=158)   289    101        0 (1095/ 360-1192/ 399)  -6.3 W17-W26 S40-S38
  

    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