Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1053 1766 (N48W06 L=282)   987    115        2 (1007/1729-1110/1818) -48.8 W02-W10 N44-N53
      2 1494 1656 (N37W42 L=317)  1828    394        3 (1297/1611-1655/1691)  -6.7 W24-W59 N33-N40
      3 1279 1520 (N28W19 L=295)  3603    754        0 ( 942/1359-1559/1603) -20.6 E03-W37 N16-N34
      4  971 1386 (N20E02 L=273)   400    105        0 ( 931/1342-1019/1424) -56.3 E04-W00 N16-N22
      5 1823 1320 (N14W61 L=337)  2156    264        6 (1756/1245-1880/1402)  78.7 W52-W69 N09-N19
      6  570 1351 (N19E29 L=247)   433     90        1 ( 536/1325- 611/1384) -26.6 E31-E25 N17-N21
      7 1691 1294 (N12W47 L=322)   691    116        1 (1637/1252-1734/1327) -35.5 W42-W50 N09-N14
      8  623 1297 (N16E25 L=251)   210     37        0 ( 599/1281- 652/1315) -14.0 E26-E22 N14-N16
      9 1545 1254 (N10W34 L=310)   230     84        1 (1533/1215-1561/1300)  78.7 W33-W35 N07-N12
     10 1444 1257 (N10W27 L=303)   242     76        0 (1407/1238-1476/1278)  11.3 W24-W29 N09-N11
     11  727 1162 (N07E18 L=258)   456    115        1 ( 673/1124- 769/1213) -50.2 E21-E15 N04-N10
     12 1743  897 (S12W49 L=325)  2189    323        2 (1668/ 763-1818/1052)  64.8 W43-W56 S19-S02
     13  644  965 (S05E24 L=252)   222     46        0 ( 631/ 935- 657/ 994)  76.0 E24-E22 S06-S02
     14 1109  854 (S13W05 L=280)   230     48        0 (1089/ 824-1127/ 886)  56.3 W03-W05 S14-S11
     15 1385  768 (S19W22 L=298)   746    246        1 (1349/ 658-1442/ 868)  71.6 W20-W25 S26-S13
     16 1751  651 (S27W56 L=331)  4170    620        4 (1546/ 482-1908/ 839)  39.2 W40-W75 S38-S15
     17  290  655 (S21E58 L=218)  1027    174        3 ( 263/ 569- 335/ 720)  36.9 E66-E51 S26-S17
     18 1007  488 (S36E04 L=272)  1006    371        0 ( 900/ 405-1113/ 640)  43.2 E12-W04 S42-S26
     19 1291  462 (S39W18 L=294)   428    101        1 (1260/ 436-1343/ 501) -29.7 W15-W23 S41-S36
  

    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