Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1450 1754 (N37W61 L=289)  1523    214        1 (1362/1716-1541/1780) -12.8 W50-W73 N33-N39
      2 1558 1399 (N15W44 L=271)   980    216        2 (1530/1301-1585/1491)  57.5 W40-W48 N08-N19
      3 1263 1179 (N10W17 L=245)   233     45        0 (1247/1147-1277/1215)  63.4 W16-W18 N08-N12
      4 1039 1125 (N13W03 L=231)   434    203        0 ( 961/1048-1091/1175) -66.0 W00-W05 N07-N16
      5  168 1127 (N29E66 L=161)   740    100        2 ( 119/1105- 202/1150)  -3.8 E75-E60 N27-N29
      6 1384 1091 (N03W22 L=250)   240     43        2 (1359/1067-1402/1116) -90.0 W20-W23 N00-N03
      7 1221  980 (N00W10 L=238)   974    309        1 (1151/ 845-1326/1044)  21.0 W03-W17 S05-N03
      8  233  920 (N15E58 L=170)   651     98        1 ( 194/ 879- 263/ 956) -45.0 E62-E55 N12-N17
      9 1579  894 (S14W31 L=258)   478    131        0 (1551/ 838-1629/ 931)  26.6 W27-W34 S16-S11
     10  208  837 (N11E63 L=165)   496     44        1 ( 184/ 804- 230/ 863) -36.9 E66-E60 N08-N12
     11 1594  819 (S19W31 L=258)   401     58        0 (1567/ 784-1614/ 849)  45.0 W28-W32 S20-S16
     12 1070  796 (S07E02 L=225)   267    112        1 (1024/ 778-1126/ 821) -26.6 E04-W00 S08-S04
     13  246  724 (N04E62 L=166)   627    115        0 ( 189/ 711- 303/ 739)   0.0 E69-E55 N02-N04
     14  697  648 (S08E28 L=200)   350     57        1 ( 681/ 610- 718/ 684)  68.2 E29-E26 S10-S05
     15  401  585 (S07E52 L=176)  1995    226        4 ( 323/ 504- 483/ 666) -67.4 E56-E45 S12-N00
     16 1830  629 (S41W58 L=286)   693     67        1 (1805/ 604-1856/ 655) -33.7 W52-W64 S43-S37
     17 1478  605 (S29W19 L=247)   307     39        1 (1459/ 575-1497/ 627)  33.7 W17-W20 S31-S27
     18 1096  593 (S20E06 L=222)   231     59        1 (1075/ 570-1118/ 617)  33.7 E07-E04 S20-S17
     19  424  452 (S16E57 L=170)  5855    330       14 ( 333/ 341- 517/ 563)  63.4 E74-E48 S23-S07
     20  506  536 (S11E45 L=182)   308     29        1 ( 488/ 512- 530/ 558)  45.0 E47-E43 S12-S09
     21 1273  477 (S32W02 L=230)   307     76        0 (1254/ 447-1304/ 515) -78.7 W01-W03 S35-S29
     22  645  363 (S25E44 L=184)  1900    356        7 ( 539/ 246- 769/ 497)  20.2 E66-E28 S33-S18
     23  366  434 (S16E66 L=162)   675     50        2 ( 338/ 417- 395/ 456)  -8.1 E70-E62 S17-S14
     24 1384  241 (S58W06 L=233)   531     47        1 (1359/ 224-1416/ 257)  -8.1 W02-W09 S60-S55
  

    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