Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  544 1660 (N58E37 L= 10)  2810    314        5 ( 429/1590- 676/1721)   3.3 E54-E19 N52-N61
      2  836 1566 (N44E04 L= 44)   740    136        2 ( 771/1538- 907/1598) -29.1 E09-W01 N41-N47
      3 1291 1537 (N33W30 L= 77)   252     37        1 (1271/1513-1311/1557)  14.0 W28-W32 N31-N34
      4 1055 1528 (N37W12 L= 59)   429    147        1 ( 987/1512-1125/1542)  -5.7 W07-W17 N35-N38
      5 1150 1299 (N21W13 L= 60)   817    252        0 (1098/1200-1236/1338)  29.1 W08-W18 N15-N23
      6  247 1271 (N32E60 L=347)   404     70        1 ( 215/1251- 287/1285)   0.0 E64-E54 N30-N32
      7  754 1094 (N15E16 L= 32)   648    183        2 ( 716/1017- 779/1175) -90.0 E17-E13 N10-N20
      8  270 1061 (N18E54 L=353)   955    164        1 ( 245/ 974- 295/1119) -77.5 E57-E51 N12-N21
      9  665  981 (N09E23 L= 24)   226     67        1 ( 634/ 959- 693/1019) -76.0 E24-E21 N07-N11
     10 1821  884 (S18W56 L=103)  1775    383        0 (1737/ 743-1887/1019)  39.5 W46-W65 S24-S10
     11 1568  871 (S12W32 L= 79)   328    101        2 (1540/ 833-1598/ 928)  51.3 W29-W35 S14-S09
     12 1559  698 (S23W30 L= 77)  1112    210        1 (1468/ 647-1632/ 770)  15.9 W22-W36 S25-S19
     13 1114  678 (S16E00 L= 47)   672    162        3 (1081/ 601-1160/ 743)  58.0 E03-W03 S20-S12
     14 1631  645 (S29W37 L= 84)   393    122        0 (1589/ 609-1678/ 682)  23.2 W32-W40 S30-S27
     15 1195  521 (S28W02 L= 50)   575     98        0 (1169/ 481-1232/ 563) -66.8 W00-W04 S31-S24
  

    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