Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1037 1653 (N46W14 L=235)   263     65        1 (1011/1622-1067/1673) -21.8 W11-W16 N44-N48
      2  478 1609 (N52E44 L=177)   937    129        3 ( 410/1584- 543/1630)   0.0 E56-E35 N50-N53
      3  580 1549 (N46E29 L=192)   578    125        0 ( 535/1508- 633/1590) -32.5 E34-E23 N42-N49
      4 1528 1486 (N26W44 L=266)   357     35        1 (1509/1458-1546/1511)  76.0 W42-W46 N23-N27
      5  925 1467 (N35W00 L=222)  1473    421        3 ( 731/1423-1113/1489)  -8.4 E14-W13 N31-N37
      6 1646 1364 (N16W49 L=270)  1152    155        6 (1592/1288-1684/1427)  77.5 W45-W52 N10-N19
      7 1116 1368 (N26W11 L=233)   345    117        1 (1073/1341-1161/1390) -21.8 W08-W13 N23-N27
      8 1832 1368 (N12W70 L=292)  1042    112        1 (1775/1340-1877/1388) -23.2 W63-W78 N08-N14
      9  507 1085 (N16E33 L=189)   230    104        0 ( 479/1035- 527/1126) -63.4 E34-E31 N12-N18
     10  293  987 (N12E52 L=170)  1244    290        0 ( 200/ 939- 414/1018)   2.6 E62-E40 N09-N13
     11 1092  808 (S08W01 L=223)   225     68        1 (1074/ 773-1115/ 836)  56.3 W00-W02 S09-S06
     12  936  750 (S09E09 L=212)   807    212        3 ( 872/ 691- 984/ 823)  48.8 E13-E06 S13-S04
     13  290  780 (S01E55 L=166)   611    145        0 ( 226/ 735- 345/ 812) -24.4 E61-E50 S04-N01
     14  292  721 (S05E57 L=165)   585     87        2 ( 261/ 675- 313/ 756) -53.1 E59-E54 S07-S02
     15 1485  716 (S20W25 L=247)   251     71        2 (1462/ 677-1498/ 746) -68.2 W23-W26 S22-S17
     16 1424  651 (S23W21 L=242)   332    120        1 (1389/ 604-1447/ 687)  80.5 W18-W22 S26-S20
     17  348  631 (S11E54 L=167)   476    123        1 ( 301/ 613- 415/ 650)   0.0 E59-E47 S11-S09
     18 1110  624 (S20E00 L=221)   244     47        0 (1093/ 597-1125/ 649)  90.0 E01-W00 S21-S18
     19 1153  573 (S24W02 L=223)   750    185        3 (1070/ 550-1243/ 602)   0.0 E04-W07 S25-S22
     20  494  559 (S17E44 L=178)   420     94        1 ( 466/ 512- 515/ 591)  68.2 E46-E41 S19-S14
     21  617  456 (S25E38 L=184)   866    267        2 ( 561/ 348- 665/ 551)  36.4 E49-E30 S32-S18
     22  380  512 (S19E57 L=164)   562     60        2 ( 357/ 479- 416/ 541)  68.2 E59-E53 S21-S16
  

    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