Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  977 1632 (N29E17 L=278)   801    277        0 ( 935/1545-1057/1729)  86.4 E19-E14 N22-N38
      2  463 1697 (N25E60 L=235)   544     63        2 ( 438/1674- 490/1725)  26.6 E63-E56 N23-N26
      3 1128 1630 (N32E07 L=288)   711    182        0 (1074/1551-1172/1699) -39.3 E13-E02 N27-N36
      4  315 1577 (N15E68 L=228)  2347    186        3 ( 260/1515- 367/1647)  84.3 E74-E61 N10-N20
      5  534 1562 (N16E44 L=251)  1040    171        3 ( 497/1510- 585/1646) -33.7 E50-E38 N13-N21
      6 1549 1586 (N41W25 L=321)  1012    153        0 (1465/1549-1617/1609)   4.1 W17-W32 N38-N43
      7 1781 1467 (N40W51 L=347)   537     61        1 (1748/1446-1813/1485)   5.7 W46-W56 N39-N41
      8 1179 1286 (N11W04 L=299)   750    203        1 (1144/1199-1226/1377)  85.2 W02-W05 N05-N17
      9 1342 1258 (N13W14 L=309)   409    122        1 (1321/1209-1364/1315) -63.4 W12-W15 N10-N16
     10 1536 1111 (N09W29 L=324)   682    189        0 (1480/1045-1577/1189)  73.3 W26-W30 N04-N14
     11 1250 1070 (N00W12 L=308)   379     96        0 (1202/1042-1302/1090)   0.0 W08-W15 N00-N01
     12 1926 1052 (N17W68 L=  3)   600     63        1 (1900/1025-1961/1067)  21.0 W63-W76 N14-N19
     13 1868  999 (N12W60 L=355)   503     95        0 (1849/ 955-1885/1041)  90.0 W57-W61 N09-N14
     14 1123  919 (S11W08 L=303)   568    280        0 (1001/ 882-1247/ 944)  26.6 W01-W15 S15-S08
     15 1919  904 (N09W70 L=  5)   638     97        0 (1889/ 863-1940/ 940)  45.0 W65-W73 N05-N11
     16  677  887 (S21E18 L=277)   441    127        0 ( 620/ 854- 725/ 934)  54.5 E21-E15 S24-S17
     17 1244  728 (S19W20 L=315)   522    143        1 (1187/ 677-1294/ 786)  77.5 W17-W21 S23-S14
     18 1444  633 (S20W36 L=331)   552    192        0 (1367/ 572-1512/ 675)  58.0 W32-W39 S24-S15
     19 1248  405 (S38W34 L=329)   398     83        1 (1212/ 386-1292/ 436)   8.1 W30-W37 S39-S36
     20 1570  380 (S30W62 L=357)   659    134        0 (1505/ 353-1621/ 419)  40.6 W56-W64 S32-S26
  

    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