Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1738 1528 (N11W68 L=131)  1753    143        3 (1699/1459-1786/1585)  77.5 W63-W72 N06-N15
      2 1554 1536 (N18W50 L=114)   425     82        1 (1528/1508-1584/1567) -68.2 W47-W52 N15-N20
      3 1246 1462 (N23W26 L= 89)  2284    748        5 ( 958/1417-1600/1520) -29.4 W10-W49 N12-N34
      4  286 1474 (N52E56 L=  7)  2137    186        3 ( 195/1440- 367/1510)   0.0 E82-E43 N48-N53
      5  872 1399 (N30W01 L= 65)   248     52        2 ( 850/1381- 902/1419) -56.3 W00-W02 N28-N32
      6  496 1186 (N27E29 L= 34)   273     64        1 ( 455/1174- 531/1204) -18.4 E32-E26 N26-N28
      7  422 1000 (N18E38 L= 25)  1451    380        4 ( 390/ 854- 487/1187)  84.6 E41-E33 N08-N29
      8 1589 1100 (S06W35 L= 98)   262     43        1 (1569/1072-1608/1122)  71.6 W33-W36 S07-S04
      9 1840  952 (S23W54 L=117)   424     61        0 (1814/ 918-1860/ 986)  21.8 W50-W56 S24-S20
     10 1813  835 (S29W50 L=113)   375     31        0 (1792/ 812-1833/ 853)  33.7 W47-W52 S30-S27
     11 1262  677 (S21W04 L= 68)   607    251        1 (1148/ 662-1383/ 707) -19.7 E02-W12 S23-S17
     12  453  493 (S12E53 L= 10)   576     82        0 ( 425/ 458- 493/ 521)  18.4 E57-E48 S13-S10
     13  665  356 (S25E45 L= 18)   672    122        0 ( 618/ 315- 690/ 413)  22.6 E51-E39 S27-S21
     14  938  365 (S32E26 L= 37)   307     57        2 ( 910/ 344- 962/ 385)  11.3 E28-E23 S33-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