Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  575 1684 (N32E52 L=  7)   843    154        1 ( 557/1600- 602/1746) -47.7 E57-E46 N25-N36
      2 1510 1500 (N39W27 L= 85)   373     76        2 (1478/1464-1530/1528)  56.3 W23-W28 N35-N41
      3  740 1463 (N20E27 L= 31)   872    193        2 ( 671/1429- 810/1524)  40.6 E32-E23 N17-N23
      4  855 1495 (N25E21 L= 38)   224     41        1 ( 837/1476- 881/1513) -14.0 E22-E18 N23-N25
      5 1297 1442 (N30W10 L= 69)   492    217        0 (1208/1409-1385/1509) -12.1 W02-W16 N28-N32
      6 1643 1269 (N26W38 L= 97)   284     47        1 (1626/1245-1660/1297) -56.3 W36-W39 N24-N27
      7  169 1243 (S03E72 L=347)   728     79        1 ( 144/1208- 189/1274) -13.0 E79-E66 S04-S01
      8 1681 1163 (N20W42 L=101)   762     93        2 (1637/1130-1721/1207)  -8.1 W38-W45 N17-N22
      9  410  875 (S21E39 L= 20)  3524    673        5 ( 188/ 692- 629/1108)  36.5 E71-E25 S37-S03
     10 1736 1068 (N15W48 L=107)   509     65        0 (1695/1049-1767/1086)  26.6 W44-W51 N13-N16
     11  152  978 (S19E69 L=350)  4553    215        8 ( 105/ 894- 198/1066)  40.2 E81-E61 S24-S13
     12 1683  941 (N06W45 L=104)   416     94        0 (1655/ 899-1717/ 977) -26.6 W41-W48 N04-N08
     13 1493  893 (S00W31 L= 90)   677    131        1 (1438/ 866-1561/ 931)  12.5 W27-W36 S01-N01
     14 1489  751 (S09W35 L= 93)   261    182        0 (1456/ 723-1547/ 806)   0.0 W32-W38 S10-S05
     15 1132  699 (S18W13 L= 72)   912    367        3 ( 969/ 654-1302/ 728)  30.1 W03-W22 S24-S13
     16 1694  591 (S14W58 L=117)  2119    299        2 (1607/ 496-1788/ 704)  59.0 W53-W64 S21-S06
     17  655  539 (S39E17 L= 42)   353     50        2 ( 636/ 510- 675/ 568)  68.2 E18-E15 S41-S36
     18 1450  395 (S31W48 L=107)  1076    130        1 (1380/ 370-1501/ 438)  32.0 W43-W52 S34-S28
     19 1268  380 (S37W34 L= 93)   305     46        0 (1242/ 359-1290/ 401)  -9.5 W31-W37 S37-S35
  

    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