Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1539 1625 (N24W53 L=116)  1264    326        3 (1412/1530-1642/1703) -65.0 W48-W56 N16-N31
      2 1358 1663 (N31W42 L=105)   291     75        0 (1342/1625-1378/1700)  20.6 W38-W46 N29-N33
      3 1730 1591 (N16W70 L=133)  1026    141        1 (1682/1545-1776/1634) -60.3 W67-W73 N12-N19
      4 1446 1493 (N19W39 L=102)  1142    302        1 (1338/1431-1578/1583) -54.5 W34-W45 N12-N26
      5  403 1488 (N47E37 L= 27)   718    124        1 ( 357/1453- 459/1512)   5.2 E41-E30 N44-N48
      6  979 1480 (N30W09 L= 72)  1010    234        2 ( 877/1430-1087/1512)  -7.6 W01-W16 N28-N32
      7 1312 1436 (N19W28 L= 91)   967    265        1 (1204/1354-1413/1487) -53.1 W22-W31 N12-N24
      8 1638 1449 (N11W50 L=114)   391     39        2 (1614/1422-1663/1470)  76.0 W48-W52 N09-N13
      9 1047 1321 (N19W09 L= 72)   300    134        0 ( 982/1305-1118/1337) -26.6 W04-W12 N17-N21
     10 1744 1204 (S04W50 L=113)   530     91        1 (1725/1147-1769/1244)  45.0 W47-W53 S07-S02
     11 1805 1166 (S08W54 L=117)   409     64        0 (1791/1127-1822/1199)  53.1 W52-W56 S10-S06
     12 1940 1040 (S19W69 L=132)   676     94        1 (1912/1005-1973/1075)   4.1 W64-W78 S20-S17
     13  168 1035 (N22E62 L=  1)   698     28        0 ( 145/1007- 193/1064) -53.1 E65-E58 N20-N24
     14 1266 1002 (S03W13 L= 76)   393    135        1 (1239/ 939-1299/1055)  45.0 W09-W15 S06-N00
     15 1362  913 (S11W16 L= 80)   301    105        1 (1307/ 894-1409/ 943)  -9.5 W13-W19 S11-S09
     16  854  750 (S08E16 L= 47)  1297    392        6 ( 742/ 671- 999/ 847)  11.9 E24-E05 S10-S04
     17  517  681 (S04E39 L= 25)  3017    553        5 ( 342/ 524- 710/ 845) -48.0 E49-E30 S16-N06
     18 1028  561 (S23E11 L= 52)  2093    551        3 ( 922/ 476-1229/ 740) -49.1 E16-W01 S29-S10
     19  873  650 (S14E18 L= 46)   292    113        0 ( 812/ 630- 907/ 682)   0.0 E21-E15 S14-S12
     20  369  653 (S03E51 L= 12)   350     63        0 ( 350/ 625- 400/ 674)  21.8 E52-E47 S04-S01
     21  339  521 (S10E61 L=  2)  6065    421       15 ( 242/ 347- 468/ 657)  46.5 E79-E49 S21-S01
     22  828  287 (S36E37 L= 26)  4227    513        7 ( 710/ 124- 916/ 483)  32.0 E67-E25 S47-S22
  

    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