Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  842 1867 (N66W24 L= 41)   592     40        0 ( 825/1830- 856/1896)  36.0 W18-W31 N62-N70
      2 1100 1771 (N47W33 L= 51)  1489    324        0 (1022/1656-1195/1889)  16.1 W19-W57 N40-N52
      3  752 1817 (N65W08 L= 25)   677     56        2 ( 729/1782- 776/1845)  26.6 W03-W13 N60-N68
      4  845 1739 (N54W11 L= 29)   307     27        0 ( 821/1720- 871/1757) -11.3 W08-W13 N52-N55
      5  812 1699 (N51W06 L= 23)   297     65        0 ( 778/1686- 851/1716) -33.7 W03-W09 N49-N53
      6 1319 1586 (N28W36 L= 53)   590    128        0 (1268/1548-1370/1634) -66.8 W34-W37 N25-N32
      7 1405 1402 (N15W33 L= 50)   260     48        0 (1383/1374-1423/1431)  33.7 W31-W34 N13-N16
      8 1451 1344 (N11W33 L= 51)   660    115        0 (1421/1291-1480/1399)  39.8 W30-W37 N08-N13
      9  765 1346 (N28E08 L=  9)   465    149        0 ( 701/1288- 808/1377) -60.3 E11-E05 N24-N31
     10 1117 1336 (N19W13 L= 30)   588    200        0 (1021/1294-1205/1371) -41.6 W08-W17 N14-N23
     11  957 1285 (N20W02 L= 20)   323    129        0 ( 898/1262-1020/1313) -45.0 W00-W05 N17-N22
     12  298 1116 (N25E47 L=330)   281     33        0 ( 283/1089- 315/1140)  71.6 E48-E45 N23-N26
     13  228 1083 (N25E55 L=322)   490     57        1 ( 207/1055- 255/1114) -45.0 E57-E52 N22-N26
     14  227  925 (N15E57 L=320)  1256    146        2 ( 172/ 871- 282/ 988) -38.7 E63-E52 N11-N19
     15 1369  897 (S11W17 L= 34)   407    139        0 (1300/ 875-1415/ 932)  -7.1 W12-W20 S13-S09
     16  192  869 (N13E63 L=314)   893    116        3 ( 161/ 828- 237/ 920) -68.2 E66-E57 N10-N15
     17  645  563 (S14E35 L=343)   526    105        0 ( 628/ 505- 659/ 617)  66.8 E37-E32 S17-S10
     18 1166  392 (S38E09 L=  9)   940    190        0 (1092/ 313-1239/ 457)  25.0 E16-E01 S42-S35
     19 1056  289 (S43E21 L=356)   478     32        0 (1031/ 269-1087/ 312) -45.0 E23-E18 S44-S40
     20 1389  239 (S61W04 L= 21)   516     23        0 (1366/ 220-1414/ 256)   0.0 W01-W07 S63-S59
  

    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