Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1099 1817 (N48E26 L=359)   339     41        0 (1071/1803-1125/1833)  14.0 E27-E23 N46-N49
      2  406 1681 (N18E67 L=317)  2521    248        5 ( 354/1635- 459/1733)  49.4 E71-E61 N14-N23
      3 1155 1707 (N40E14 L= 10)   296     51        0 (1136/1682-1177/1728) -63.4 E16-E13 N38-N42
      4 1179 1666 (N38E11 L= 13)   279     51        1 (1161/1640-1197/1689) -78.7 E12-E09 N35-N40
      5  592 1597 (N17E45 L=340)   645    197        0 ( 567/1530- 620/1680) -51.3 E48-E39 N12-N22
      6  463 1548 (N11E52 L=332)  1082    306        6 ( 397/1454- 530/1630)  85.9 E55-E48 N03-N17
      7 1250 1544 (N32E02 L= 23)   835    187        2 (1212/1453-1293/1617) -45.0 E06-W03 N26-N35
      8 1785 1404 (N42W45 L= 70)   574    148        2 (1747/1381-1818/1422)  29.1 W40-W49 N39-N44
      9 1652 1267 (N27W33 L= 57)   839    205        2 (1599/1168-1681/1367) -54.0 W27-W35 N21-N32
     10 1201 1187 (N09W05 L= 30)   242     68        1 (1181/1164-1235/1212)  71.6 W04-W06 N07-N10
     11  744 1058 (S10E17 L=  8)   229     85        0 ( 697/1022- 785/1090)  56.3 E18-E14 S13-S07
     12  814 1057 (S09E13 L= 12)   185     28        0 ( 796/1035- 831/1082) -33.7 E14-E11 S09-S07
     13 1827  915 (N13W56 L= 81)  2281    383        4 (1787/ 769-1873/1053) -43.0 W49-W68 N06-N20
     14 1435  969 (N03W25 L= 49)   389    133        1 (1362/ 945-1483/ 994)  45.0 W20-W27 N00-N06
     15 1505  948 (N04W30 L= 54)   220     17        0 (1486/ 927-1524/ 968)  71.6 W28-W30 N02-N05
     16 1253  796 (S11W19 L= 44)   471    176        0 (1179/ 732-1344/ 827)  52.1 W16-W23 S16-S07
     17  179  801 (S39E58 L=326)   740    189        2 ( 136/ 787- 212/ 823)  18.4 E63-E54 S40-S37
     18  998  667 (S26W09 L= 33)   618    154        1 ( 910/ 646-1079/ 690)  29.1 W03-W13 S28-S22
     19 1166  518 (S29W25 L= 49)   317     60        0 (1133/ 499-1202/ 541)  11.3 W22-W27 S30-S28
     20  944  471 (S39W13 L= 38)   574    144        0 ( 880/ 452-1025/ 494)  21.8 W08-W18 S42-S36
  

    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