Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  953 1786 (N38E33 L= 65)   511     74        1 ( 909/1759- 992/1807)   0.0 E37-E29 N37-N40
      2  831 1696 (N28E35 L= 63)   335     91        0 ( 796/1661- 854/1730) -20.6 E39-E31 N26-N30
      3 1120 1572 (N28E11 L= 87)   728    224        1 (1041/1489-1161/1657) -26.6 E19-E05 N24-N32
      4  763 1479 (N13E28 L= 70)   224     84        0 ( 750/1436- 780/1517) -68.2 E29-E26 N10-N15
      5 1449 1337 (N24W16 L=114)   302     51        0 (1413/1317-1476/1357)  33.7 W14-W18 N22-N25
      6 1110 1289 (N11E03 L= 95)   659    260        0 (1010/1193-1167/1350) -18.4 E09-W03 N06-N12
      7 1654 1082 (N16W36 L=134)   624    129        0 (1602/1033-1711/1134) -11.3 W31-W41 N14-N17
      8  935  615 (S31W07 L=106)   240     50        0 ( 914/ 591- 954/ 636)   0.0 W05-W09 S32-S29
      9 1036  605 (S29W14 L=112)   403     81        0 ( 999/ 587-1082/ 624)  31.0 W11-W16 S30-S26
     10  511  546 (S50E24 L= 74)   293     25        0 ( 493/ 526- 533/ 569) -45.0 E25-E21 S51-S47
     11 1078  442 (S37W24 L=122)   432     85        0 (1038/ 403-1118/ 480)  81.9 W23-W25 S40-S33
     12 1288  446 (S30W37 L=135)   285     95        0 (1236/ 427-1336/ 461)  45.0 W34-W40 S32-S27
     13 1468  429 (S24W51 L=149)   322     80        1 (1435/ 416-1504/ 452)  45.0 W47-W52 S26-S22
     14 1522  380 (S25W59 L=157)   563    120        0 (1471/ 345-1566/ 425)  81.9 W56-W60 S28-S21
     15 1391  325 (S33W54 L=152)   557     74        0 (1345/ 306-1430/ 344)  20.6 W49-W58 S34-S31
  

    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