Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1135 1724 (N51W22 L=  6)   334     71        1 (1096/1710-1175/1739)  -7.1 W18-W26 N49-N52
      2  386 1566 (N46E57 L=287)   546     37        1 ( 364/1537- 408/1588) -24.0 E62-E52 N43-N47
      3 1427 1447 (N27W34 L= 17)   316     99        2 (1381/1430-1479/1470) -26.6 W30-W37 N25-N28
      4  682 1369 (N30E20 L=323)  1365    373        2 ( 540/1243- 798/1454) -36.9 E32-E12 N21-N36
      5  251 1203 (N22E58 L=286)   626    148        1 ( 215/1140- 275/1265)  76.0 E61-E55 N17-N25
      6  729 1173 (N17E17 L=326)   249     91        0 ( 700/1139- 768/1204)  31.0 E19-E14 N15-N18
      7 1664 1138 (N04W44 L= 27)   825    173        2 (1605/1089-1735/1191)  17.1 W38-W51 N02-N06
      8 1845 1042 (S04W61 L= 44)   685    101        2 (1824/ 985-1859/1093)  71.6 W58-W62 S07-S01
      9  278 1034 (N11E53 L=290)   317     80        2 ( 249/1016- 309/1062) -18.4 E56-E50 N10-N13
     10 1817  903 (S12W56 L= 40)   357     79        0 (1785/ 873-1844/ 932)  15.9 W52-W59 S13-S10
     11 1495  729 (S18W28 L= 11)   385    114        1 (1479/ 682-1520/ 793)  82.9 W26-W29 S21-S13
     12 1373  771 (S14W19 L=  3)   232     58        0 (1341/ 747-1403/ 787) -26.6 W17-W21 S15-S12
     13  342  765 (S05E50 L=293)   325     52        0 ( 315/ 747- 369/ 781)   0.0 E52-E47 S06-S04
     14  730  704 (S11E22 L=321)   659    170        1 ( 696/ 634- 759/ 771)  71.6 E24-E19 S16-S07
     15 1442  725 (S18W24 L=  7)   271     81        0 (1404/ 692-1462/ 761)  45.0 W21-W25 S19-S15
     16  292  593 (S17E62 L=281)  2252    269        4 ( 260/ 462- 336/ 696)  62.1 E69-E54 S26-S09
     17 1832  659 (S29W65 L= 48)   564     44        1 (1806/ 641-1854/ 680) -16.7 W59-W70 S31-S27
     18 1184  589 (S24W06 L=349)   658    161        1 (1144/ 522-1240/ 659)  53.1 W02-W09 S27-S19
     19 1505  542 (S32W30 L= 13)  1157    180        2 (1431/ 491-1569/ 598)  20.0 W23-W34 S34-S28
     20 1600  494 (S37W40 L= 23)  1233    245        1 (1491/ 459-1710/ 554)   5.2 W29-W51 S38-S34
     21  402  478 (S25E56 L=288)   481     79        0 ( 390/ 436- 419/ 510)  36.9 E59-E51 S28-S22
     22 1212  318 (S45W06 L=349)  2008    263        4 (1137/ 243-1304/ 406)  40.6 E01-W14 S52-S38
     23 1152  367 (S40W02 L=345)   458     65        1 (1117/ 349-1193/ 387) -31.0 E01-W04 S41-S38
     24  618  292 (S41E47 L=296)   978     96        0 ( 586/ 248- 655/ 335)  26.6 E56-E40 S45-S37
  

    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