Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  806 1677 (N48W02 L=220)   251     61        0 ( 773/1658- 834/1690) -36.9 W00-W04 N46-N49
      2 1581 1630 (N24W56 L=274)   696    118        3 (1559/1564-1602/1677)  41.2 W52-W60 N20-N27
      3  611 1632 (N51E16 L=202)   444     66        0 ( 578/1605- 637/1663)  26.6 E19-E13 N49-N52
      4 1341 1594 (N28W36 L=254)  3085    638        9 (1073/1494-1627/1651) -27.2 W18-W54 N16-N35
      5 1635 1603 (N21W59 L=277)   378     48        1 (1600/1583-1660/1617) -21.8 W56-W62 N20-N22
      6 1690 1539 (N16W60 L=278)  1110    157        3 (1638/1483-1753/1583)   6.0 W52-W71 N14-N17
      7 1675 1349 (N06W49 L=267)  1251    264        5 (1550/1294-1752/1411) -37.6 W41-W55 N02-N12
      8  201 1252 (N33E58 L=160)   630     98        1 ( 162/1212- 240/1285) -21.0 E65-E52 N30-N35
      9  624 1178 (N20E21 L=197)  1407    437        5 ( 429/1120- 788/1242) -31.3 E34-E11 N13-N27
     10  220 1129 (N25E55 L=163)   492     62        0 ( 190/1102- 247/1157)  21.8 E58-E51 N23-N26
     11  143 1110 (N25E65 L=153)   682     54        3 ( 111/1086- 180/1133)  -9.5 E71-E59 N23-N27
     12  338  962 (N13E45 L=173)   376     76        2 ( 311/ 929- 361/1002) -76.0 E46-E42 N11-N15
     13 1487  945 (S11W25 L=243)   255     77        1 (1468/ 920-1513/ 987) -78.7 W24-W26 S13-S08
     14  904  732 (S11E13 L=205)   475    159        0 ( 875/ 676- 969/ 780)  31.0 E15-E08 S14-S08
     15 1886  747 (S34W63 L=281)  1067    112        0 (1829/ 722-1941/ 767)  -6.8 W53-W78 S36-S33
     16 1536  666 (S30W25 L=243)   595    122        0 (1493/ 620-1568/ 719)  39.8 W20-W27 S31-S26
     17  877  447 (S28E24 L=194)  1900    466        2 ( 692/ 368-1079/ 565)   7.1 E39-E07 S29-S24
     18  454  503 (S15E50 L=168)   304     13        0 ( 435/ 485- 472/ 524) -90.0 E52-E48 S16-S13
     19  467  438 (S19E53 L=165)   317     49        0 ( 442/ 415- 490/ 456) -76.0 E54-E51 S21-S17
     20 1236  338 (S45E04 L=214)  1759    386        2 (1071/ 294-1390/ 446)   4.2 E17-W10 S47-S40
  

    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