Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  958 1799 (N39E34 L=348)   526     83        1 ( 923/1770- 994/1820)  -7.1 E38-E29 N37-N41
      2  486 1642 (N16E57 L=325)  1175    238        1 ( 453/1546- 543/1740) -60.3 E62-E51 N09-N23
      3  559 1576 (N13E46 L=336)  1599    277        2 ( 515/1466- 600/1712) -59.5 E54-E41 N05-N22
      4 1388 1514 (N33W07 L= 29)   886    194        3 (1355/1450-1434/1605) -42.0 W02-W12 N29-N39
      5  610 1451 (N07E37 L=345)  1975    375        6 ( 490/1368- 754/1555)  60.6 E44-E31 N00-N16
      6 1052 1393 (N15E09 L= 13)   311    142        2 (1006/1333-1108/1434) -14.0 E12-E04 N13-N16
      7  212 1272 (S12E65 L=317)  1679    193        2 ( 126/1235- 271/1320)  10.3 E82-E58 S13-S07
      8  199 1127 (S20E62 L=320)   720    140        3 ( 180/1059- 217/1181)  76.0 E64-E59 S24-S16
      9 1345 1133 (N09W15 L= 36)   245     81        2 (1332/1084-1356/1171) -68.2 W13-W15 N06-N11
     10  442 1120 (S16E38 L=344)   262     54        0 ( 417/1099- 466/1148)  63.4 E39-E36 S17-S13
     11  345 1088 (S20E45 L=336)   263     77        1 ( 305/1073- 379/1102)   8.1 E49-E42 S20-S18
     12  200  985 (S29E60 L=322)   540     43        3 ( 174/ 968- 231/1010)   6.3 E64-E55 S30-S27
     13  170  930 (S33E65 L=317)   965    123        3 ( 133/ 872- 215/ 966)  20.6 E73-E57 S36-S30
     14  727  764 (S29E10 L= 12)   554    142        2 ( 655/ 741- 790/ 792)  41.2 E14-E06 S32-S25
     15 1431  699 (S12W33 L= 55)   383    190        1 (1342/ 678-1517/ 725)  18.4 W27-W39 S13-S09
     16 1243  567 (S24W28 L= 50)   400    169        0 (1163/ 556-1327/ 578)  24.4 W22-W33 S26-S21
     17 1518  519 (S18W48 L= 70)   978    177        0 (1447/ 492-1601/ 565)  37.9 W42-W52 S20-S12
     18  964  540 (S35W12 L= 34)   272     95        0 ( 919/ 524-1013/ 562)  15.9 W08-W15 S36-S33
     19 1129  402 (S38W30 L= 52)  1723    349        2 ( 995/ 322-1277/ 480)  69.8 W25-W34 S47-S28
  

    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