Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  913 1644 (N47W12 L=161)   357    109        0 ( 878/1600- 953/1684)  21.8 W07-W17 N45-N49
      2 1025 1396 (N28W10 L=159)   567    205        0 ( 936/1341-1106/1437)   4.1 W02-W16 N27-N29
      3 1174 1258 (N17W14 L=163)   363    168        0 (1098/1214-1241/1304)   0.0 W09-W19 N15-N18
      4 1792 1213 (S03W55 L=204)   405     94        0 (1774/1171-1810/1262) -90.0 W54-W56 S05-N00
      5 1860 1098 (S12W59 L=208)  5375    481       12 (1779/ 875-1950/1251)  40.6 W46-W76 S22-S04
      6  689 1192 (N24E16 L=133)   801    205        1 ( 599/1139- 776/1242)   0.0 E23-E10 N22-N26
      7  408 1107 (N25E39 L=110)   489    120        3 ( 353/1065- 458/1145)  12.5 E43-E34 N23-N26
      8  919  930 (N04E08 L=141)   312    117        0 ( 873/ 900- 982/ 964) -56.3 E10-E05 N01-N07
      9 1466  805 (S16W21 L=170)  2071    555        4 (1283/ 685-1605/ 954)  13.5 W06-W32 S20-S09
     10 1421  869 (S11W19 L=168)   445    112        3 (1396/ 822-1451/ 917)  51.3 W17-W22 S14-S08
     11  253  892 (N15E56 L= 93)   334     45        2 ( 230/ 870- 277/ 911) -11.3 E58-E53 N13-N16
     12 1495  831 (S16W23 L=172)   221     96        0 (1447/ 810-1536/ 854)   0.0 W19-W26 S16-S14
     13 1568  644 (S30W26 L=175)  1037    337        0 (1445/ 552-1687/ 769)  17.7 W14-W36 S32-S25
     14  521  593 (S07E42 L=107)  1029    253        2 ( 413/ 528- 609/ 675) -47.7 E47-E36 S12-N00
     15 1105  470 (S28E10 L=139)  1442    391        6 (1009/ 379-1192/ 552)  18.4 E17-E02 S33-S23
     16  802  425 (S23E30 L=119)   764    185        2 ( 750/ 340- 851/ 495)  34.7 E37-E24 S28-S19
     17 1599  461 (S45W28 L=177)   342     63        0 (1564/ 437-1631/ 479)   0.0 W24-W31 S46-S43
     18 1145  386 (S35E10 L=139)  1175    233        2 (1056/ 317-1224/ 471)  17.4 E18-E02 S39-S29
     19  637  369 (S24E45 L=104)  1207    260        1 ( 579/ 292- 719/ 460)  85.9 E48-E41 S30-S16
     20 1401  362 (S46W08 L=157)   467     72        0 (1359/ 335-1433/ 389)   9.5 W04-W11 S47-S43
     21 1027  139 (S54E37 L=112)   754     97        1 ( 994/ 117-1066/ 165)  -8.1 E42-E31 S57-S50
  

    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