Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1033 1381 (N27W11 L=  1)   505    177        1 ( 945/1363-1111/1406) -15.3 W05-W16 N24-N28
      2 1567 1281 (N06W39 L= 30)   367     73        0 (1535/1261-1599/1303)  11.3 W36-W41 N04-N07
      3 1006 1248 (N20W05 L=356)   265     99        1 ( 950/1231-1051/1260)  -9.5 W01-W07 N18-N20
      4 1492 1194 (N04W31 L= 22)   441    145        1 (1420/1169-1559/1215) -18.4 W26-W35 N01-N04
      5  417 1113 (N26E37 L=314)  1450    284        3 ( 294/1070- 546/1151) -23.2 E48-E27 N20-N30
      6  182  946 (N20E64 L=287)  1329    180        2 ( 112/ 906- 264/ 985) -15.9 E75-E54 N16-N23
      7 1506  945 (S10W26 L= 16)   222     71        0 (1474/ 920-1533/ 969)  11.3 W22-W27 S11-S09
      8 1172  784 (S10W02 L=353)   874    239        0 (1106/ 694-1221/ 886)  41.6 E03-W06 S13-S05
      9 1369  838 (S12W15 L=  6)   203     48        0 (1352/ 818-1398/ 860) -18.4 W13-W16 S13-S10
     10  364  762 (N07E49 L=302)   491    148        1 ( 329/ 698- 395/ 828) -90.0 E50-E47 N02-N11
     11  654  594 (S08E33 L=318)   252    100        0 ( 631/ 564- 690/ 643) -78.7 E34-E31 S10-S05
     12  923  561 (S17E18 L=333)   414    131        1 ( 884/ 513- 961/ 617)  26.6 E22-E14 S18-S14
     13  461  533 (S08E50 L=301)   543    122        2 ( 428/ 496- 504/ 590)  81.9 E52-E46 S11-S04
     14 1687  558 (S42W35 L= 26)   519     65        1 (1658/ 538-1722/ 580) -14.0 W31-W39 S43-S39
     15  755  488 (S17E31 L=320)   269     94        1 ( 739/ 448- 779/ 523)  45.0 E33-E28 S19-S15
     16 1605  489 (S44W26 L= 17)   352     55        2 (1575/ 471-1637/ 512)  -9.5 W23-W29 S45-S42
     17  475  372 (S19E59 L=292)  1488    192        7 ( 446/ 291- 526/ 446)  25.5 E70-E49 S24-S14
     18  924  396 (S27E25 L=326)   356    113        2 ( 905/ 334- 939/ 444)  49.4 E27-E21 S31-S24
     19 1008  244 (S41E29 L=322)   552     98        1 ( 993/ 203-1031/ 297)  48.8 E32-E25 S45-S36
     20 1312  218 (S57E08 L=343)  1508    201        4 (1217/ 191-1401/ 257) -15.5 E18-W01 S60-S52
     21  954  174 (S46E39 L=311)   565     54        1 ( 926/ 154- 980/ 198)  68.2 E43-E36 S48-S42
  

    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