Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1031 1773 (N54E12 L= 83)   314     66        1 (1000/1763-1071/1786)   8.1 E15-E08 N52-N55
      2 1377 1592 (N43W22 L=117)   355     31        0 (1347/1574-1401/1608)   9.5 W18-W24 N41-N44
      3 1572 1454 (N35W38 L=132)   854    280        1 (1465/1371-1668/1533) -27.9 W28-W45 N29-N39
      4 1182 1364 (N24W07 L=102)  1004    458        1 (1054/1231-1316/1491) -36.4 E03-W16 N16-N31
      5  291 1452 (N19E65 L= 30)   621     93        2 ( 260/1427- 338/1477)  -8.7 E70-E57 N18-N20
      6 1289 1302 (N21W14 L=109)   444     88        1 (1244/1281-1340/1330)   9.5 W11-W17 N19-N22
      7 1105 1245 (N16W03 L= 98)   238    119        0 (1089/1191-1122/1292) -80.5 W01-W03 N12-N18
      8  617 1006 (S04E25 L= 70)   233     91        0 ( 579/ 989- 645/1035)  26.6 E28-E23 S05-S02
      9 1006  712 (S18W02 L= 97)   646    208        2 ( 931/ 638-1088/ 758)  48.8 E01-W07 S23-S15
     10 1506  605 (S20W38 L=133)   517    132        3 (1450/ 554-1535/ 629) -18.4 W33-W42 S23-S18
     11 1775  594 (S18W67 L=161)   503     59        1 (1745/ 573-1802/ 619)  26.6 W62-W70 S19-S16
     12  325  556 (S38E56 L= 39)  1342    152        1 ( 264/ 516- 391/ 596)  15.4 E74-E45 S42-S33
     13 1530  367 (S37W54 L=149)   449     62        0 (1504/ 347-1562/ 385)  31.0 W50-W57 S38-S34
     14 1038  216 (S57W17 L=112)   473    101        1 (1024/ 166-1053/ 262) -50.7 W14-W23 S63-S52
  

    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