Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1579 1629 (N44W51 L= 45)   876    110        0 (1532/1585-1620/1660) -45.0 W46-W54 N40-N46
      2  730 1545 (N35E25 L=329)   600    133        0 ( 684/1497- 770/1589) -33.7 E29-E20 N31-N38
      3 1046 1461 (N31E00 L=354)   531    232        0 ( 955/1396-1133/1496) -22.6 E06-W06 N26-N32
      4 1720 1471 (N32W58 L= 52)   699     62        0 (1690/1438-1745/1496) -18.4 W54-W62 N30-N34
      5 1476 1436 (N30W32 L= 26)   361    163        0 (1410/1391-1536/1464) -16.7 W26-W36 N27-N31
      6 1028 1388 (N26E01 L=353)   448    216        0 ( 947/1318-1098/1438) -37.9 E06-W03 N21-N28
      7  594 1294 (N18E30 L=324)   240     73        0 ( 574/1264- 616/1325) -53.1 E31-E27 N15-N19
      8  214 1263 (N13E64 L=290)  1452    124        4 ( 171/1217- 246/1311)  35.5 E71-E60 N10-N16
      9 1320 1195 (N14W18 L= 12)   235     82        0 (1280/1169-1346/1225) -31.0 W15-W20 N12-N15
     10  933  966 (S01E05 L=349)   266     95        0 ( 891/ 934- 969/ 989) -21.8 E08-E03 S02-N00
     11 1812  921 (S02W58 L= 52)   983    111        2 (1779/ 873-1850/ 976) -40.6 W54-W63 S05-N01
     12  654  870 (S08E23 L=331)   424    173        3 ( 614/ 799- 682/ 932)  76.0 E25-E21 S12-S04
     13 1253  794 (S11W15 L=  9)   675    238        1 (1189/ 698-1312/ 885) -54.0 W10-W19 S16-S05
     14  250  784 (S16E58 L=296)   437     56        1 ( 225/ 750- 267/ 815) -68.2 E60-E56 S18-S13
     15 1067  650 (S21W04 L=358)   746    173        3 (1014/ 582-1108/ 729) -84.3 W00-W07 S25-S15
     16 1174  670 (S19W11 L=  5)   756    192        3 (1111/ 592-1206/ 718) -53.1 W06-W13 S24-S15
     17  272  579 (S30E64 L=290)  1806    139        2 ( 216/ 549- 332/ 622) -90.0 E87-W00 S33-S26
     18  552  534 (S31E34 L=320)  1279    191        3 ( 505/ 478- 620/ 617) -60.9 E36-E28 S35-S25
     19  934  542 (S28E05 L=350)   650    151        2 ( 858/ 512- 992/ 582)  29.1 E09-W00 S30-S25
     20 1630  491 (S31W52 L= 46)  1577    215        3 (1537/ 439-1714/ 540)  25.0 W43-W59 S34-S27
  

    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