Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  545 1583 (N42E39 L=325)   382     52        0 ( 523/1561- 570/1602) -26.6 E41-E35 N40-N43
      2  335 1484 (N34E55 L=309)  1706    373        4 ( 282/1402- 391/1553) -39.8 E62-E47 N28-N38
      3 1480 1509 (N33W37 L= 41)   382     79        0 (1437/1488-1528/1531) -23.2 W33-W40 N31-N34
      4  912 1454 (N32E07 L=357)   376     86        0 ( 865/1439- 961/1469) -15.9 E10-E03 N30-N32
      5  681 1298 (N22E22 L=342)  2479    609        5 ( 445/1132- 853/1423) -28.7 E41-E10 N11-N30
      6 1338 1400 (N27W23 L= 27)   319     84        0 (1292/1374-1386/1417) -26.6 W20-W26 N24-N27
      7 1168 1386 (N26W11 L= 15)   258     56        0 (1143/1358-1198/1409)  36.9 W09-W13 N24-N27
      8  248 1219 (N17E58 L=307)  1206    220        3 ( 222/1153- 283/1310) -68.2 E60-E53 N12-N22
      9 1529 1221 (N14W34 L= 39)   449    116        1 (1477/1186-1582/1268) -45.0 W31-W38 N11-N17
     10  648  616 (S21E27 L=337)  1634    556        1 ( 464/ 490- 813/ 774)  32.3 E44-E14 S29-S10
     11 1398  742 (S15W23 L= 27)   290     53        2 (1368/ 725-1427/ 763)  14.0 W21-W25 S15-S13
     12 1760  634 (S25W55 L= 59)   440     69        0 (1735/ 621-1785/ 650) -18.4 W52-W58 S26-S23
     13  960  530 (S27E06 L=358)   618    121        0 ( 904/ 506-1029/ 561)  12.5 E10-E01 S29-S25
     14  851  454 (S33E15 L=349)   422    122        2 ( 824/ 398- 879/ 492)  54.5 E17-E12 S37-S29
  

    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